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Page  Change  Record 


This  document  is  a complete  re-issue  of  MSC  Internal  Note  No. 

69-FS-4,  "Programmed  Guidance  Equations  for  LUMINARY  IB  Manned 
LM  Earth  Orbital  and  Lunar  Program,"  dated  September  1969,  updated 
to  reflect  the  information  in  the  LUMINARY  1C  program  to  be  flown 
on  the  Apollo  H2  mission.  The  coding  changes  between  LUMINARY  IB  and  1C 
are  indicated  by  a vertical  line  to  the  left  of  the  affected  area. 


This  document  supercedes  all  previous  Issues  and  changed  pages  will 
be  based  on  this  issue  in  the  future. 


Abstract 


The  information  presented  in  this  document  on  the  LUMINARY  1C 
guidance  program  was  produced  with  the  intention  that  it  be  used 
together  with  a symbolic  tabulation  of  the  program.  The  information 
is  divided  into  a series  of  separate  sections,  each  of  which  describes 
a basic  eirea  of  guidance  computation  and  contains  a list  of  def- 
initions of  variables  and  constants  used  in  that  area  of  the  program. 

In  order  to  assist  the  user  in  finding  the  computations  in  which  he 
is  interested,  summeiries  of  each  section  have  been  included,  and  all 
routine  tags  used  in  this  document  (generally  identical  to  but  a subset 
of  those  in  the  program  listing)  are  indexed  at  the  end  of  the  doc- 
ument along  with  a list  of  references  to  each  routine  listed.  A list 
of  references  to  flagwords  and  channels  has  been  included  as  well,  as 
a supplement  to  the  list  of  references  to  variables  and  constants 
supplied  in  the  program  listing  itself. 

The  program  from  which  this  document  was  prepared  is  identified 
"LUM131A  Revision  3"  and  was  released  on  January  23,  1970  for 
fabrication  of  the  LM  Guidance  Computer  memory  ropes  for  the  Apollo 
H2  mission. 

Because  of  the  purposes  for  which  the  information  in  this 
docToment  was  originally  prepared,  and  the  methods  used  in  its 
production,  this  material  should  not  be  used  as  definitive  infor- 
mation on  the  LUMINARY  1C  program  but  as  an  aid  in  the  reading  and 
understanding  of  the  program  listing.  If  definitive  information 
is  required,  the  G&N  contractor  is  the  proper  source  for  it. 
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Introduction 


Under  the  egis  of  the  Program  Development  Group,  Apollo  Guidance 
Program  Section,  Flight  Software  Branch  of  MSG,  in  order  to  facilitate 
the  reading  of  the  detailed  symbolic  listing,  a "Programmed  Guidance 
Equations  Document"  has  been  prepared  for  the  "LUMINARY"  program.  A 
major  purpose  of  this  document  has  been  to  provide  more  effective 
identification  and  analysis  of  various  program  performance  features 
and  to  permit  more  effective  review  of  published  computer  program 
documentation . 

During  reviews  of  previous  programs  written  for  the  Apollo  Gui- 
dance Computers,  it  was  found  desirable  to  assemble  a set  of  working- 
paper  information  on  the  equations  actually  programmed  for  these 
flights.  This  material  has  proven  to  be  useful  to  the  various  groups 
associated  with  these  flights,  in  that  it  can  be  used  to  bridge  the 
gap  between  the  extreme  detail  of  the  program  listing  and  the  occasional 
lack  of  detail  available  elsewhere  on  the  guidance  equations.  Conse- 
quently, the  material  on  the  following  pages  has  been  assembled  in  a 
fashion  similar  to  that  used  for  previous  programs  and  follows  the  same 
general  format. 

Certain  aspects  of  the  program  are  quite  complex,  and  this  programmed 
guidance  equation  material  should  not  be  considered  as  a substitute  for 
actual  study  of  the  program  symbolic  listing  itself.  No  complete  set  of 
equation  information  was  available  from  the  C^N  contractor  against  which 
the  programmed  equations  could  be  validated,  and  in  the  interest  of 
timely  publication,  the  review  of  the  assembled  document  against  the 
program  assembly  has  not  been  as  detailed  as  would  be  desired. 

The  program  assembly  listing  which  was  used  to  prepare  this  pro- 
grammed equation  information  bears  the  heading  print: 

GAP:  ASSEMBLE  REVISION  003  OF  AGC  PROGRAM  LUMI3IA  BY  NASA  2021112-111 
and  is  dated  January  23,  1970,  The  function  of  virtually  all  the  program 
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steps  of  interest  to  the  flight  is  described  either  on  the  following 
pages,  or,  for  general  computer  system  control,  in  TRW  Working  Paper 
( 3420.5-27  (revision  2). 

Recipients  of  this  document  are  cautioned  against  misusing  it 
as  a definitive  description  of  the  "LUMINARY"  guidance  equations. 
Instead,  it  might  be  used  to  achieve  a better  understanding  of  the 
program  assembly  listing,  since  it  is  intended  as  an  aid  in  review 
of  the  listing,  not  as  a substitute  for  it.  Definitive  guidance 
equation  information  can  be  provided  only  by  the  G&N  contractor 
through  the  appropriate  MSC  channels. 

A great  deal  of  credit  goes  to  TRW  Systems  MTCP  Tasks  A-90  and 
A-201  (Support  of  Apollo  Guidance  Program  and  Guidance  Document  Review) 
personnel,  in  particular  Mr.  William  G.  Koelsch,  who  conducted  a simi- 
lar review  of  the  "SUNDANCE"  program.  This  document  has  drawn  heavily 
upon  the  results  of  that  review  and  could  not  be  published  at  this  time 
without  the  earlier  work  done  by  TRW  Systems. 
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Summary  of  Individual  Sections 

The  contents  of  this  description  of  the  "LUMINARY"  guidance  and 
control  equations  are  divided  into  twenty-five  semi-independent 
sections,  each  of  which  is  assigned  a four  letter  code.  Pages  are 
numbered  consecutively  within  each  section  and  the  sections  them- 
selves are  arranged  in  alphabetical  order  by  code.  Familiarity  with 
the  information  in  "Notation  and  Terminology"  is  helpful  in  under- 
standing the  somewhat  specialized  type  of  notation  used  in  describing 
the  program,  but  each  section  includes  a list  of  "Quantities  in 
Computations"  which  is  intended  to  describe  all  variables  and  constants 
in  the  section  that  are  not  described  in  the  list  of  "Major  Variables". 

Alignment  of  the  Inertial  Subsystem  (ALIN) 

Programs  used  to  align  the  ISS  to  any  of  several  specified  align- 
ments and  to  compute  the  "reference  to  stable-member"  transforma- 
tion matrix,  based  on  measurements  of  the  positions  of  celestial 
bodies  with  respect  to  the  spacecraft. 

Ascent  Guidance  (ASCT) 

Programs  used  to  initiate,  control,  and  terminate  the  LM  ascent 
from  the  limar  surface  (P12)  and  aborts  from  powered  descent 
(P70  and  P7l)  , 

Attitude  Maneuver  Routines  (ATTM) 

Computations  performed  to  determine  the  axis  about  which  space- 
craft rotation  should  take  place  and  the  magnitude  of  the 
rotation  to  go  from  present  vehicle  attitude  to  final  attitude, 
including  logic  controlling  the  maneuver  rates  and  DAP  interface. 

Biirn  Control  Routines  (BURN) 

Programs  used  to  initiate,  control,  and  terminate  all  three  types 
of  LM  burns  (RCS,  APS,  and  DPS). 


3 


Conic  Subroutines  (CONC) 


Subroutines  used  by  navigation  and  targeting  routines  to  compute 
various  conic  parameters. 


Coordinate  Transformations  (COOR) 

Subroutines  defining  the  transformations  between  the  several 
coordinate  systems  used  by  the  LGC,  including  routines  for 
determination  of  lunar  and  solar  position  and  selenographic 
latitude  and  longitude. 


Digital  Autopilot  Control  Routines  (PAPA) 

P-axis  and  Q,R-axis  RCS  control  for  free  or  powered  flight; 
Q,R-axis  Gimbal  Trim  System.  (Includes  jet  fail  monitor.) 

Digital  Autopilot  Phase  Plane  Logic  (DAPB) 

Equations  used  to  compute  jet  accelerations,  jet  firing  times 
and  disturbing  accelerations;  deadband  selection  and  astronaut 
interface  routines. 


Data  Input/Output  Routines  (DATA) 

Logic  used  to  control  display  and  loading  of  various  LGC 
registers  under  control  of  the  DSKY  or  internal  programs, 
including  noun  definitions. 


Descent  Guidance  (DESC) 

Programs  used  to  initiate,  control,  and  terminate  the  LM 
powered  descent  maneuvers  (P60's). 

Display  Interface  Routines  (DINT) 

Routines  governing  program  use  of  the  DSKY  and  the  priority  of 
displays . 
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Display  and  Keyboard  Interface  Logic  (DSKY) 


Routines  defining  the  mechanics  of  interpreting  inputs  from  the 
DSKY  keyboard  or  uplink  and  for  changing  the  status  of  numerical 
character  lights  on  the  display. 


Extended  Verbs  (EXVB) 

Definition  of  the  functions  of  the  extended  yerbs  (40-99) 
including  those  controlling  block  updates  of  LGC  E-memory,  AGS 
initialization,  calculation  of  TFF  and  rendezvous  displays. 


IMU  Computations  ( IMUC ) 

Computations  associated  with  the  Inertial  Measurement  Unit, 
including  those  for  controlling  CDU  pulse  outputs,  for  checking 
and  setting  IMU  modes  and  switching  between  them,  for  accelerometer 
and  gyro  compensation,  and  for  gyro  torquing. 


Program  Interrupts  (INTR) 

Short  description  of  all  eleven  program  interrupts;  the  routines 
associated  with  program  interrupt  No.  4- 


Mathematical  Fiinctions.  Executive.  Waitlist  (MATX) 

Various  built-in  trigonometric,  logarithm  and  root  extraction 
functions  used  by  the  programs,  and  some  of  the  logic  associated 
with  the  operations,  such  as  "Establish,"  or  "Call." 


Orbital  Integration  (ORBi) 

The  equations  used  for  precision  integration  of  the  state  vector, 
and  logic  to  switch  between  powered  flight  and  coasting  flight 
navigation. 


Program  Service  Routines  (PGSR) 

Routines  used  for  initialization  of  the  LGC,  re-initialization  in 
case  of  restart,  and  for  change  of  program  (major  mode).  Also 
includes  alarm  routines. 
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RadEir  Control  Routines  (RADR) 


Routines  controlling  the  positioning  and  reduction  of  data  from 
the  Landing  Radar  and  the  Rendezvous  Radar. 


Rendezvous  Navigation  (RNAV) 

Programs  using  the  rendezvous  radar  to  update  both  state  vectors 
maintained  in  the  LGC  and  to  update  the  "error  transition  matrix" 
based  on  tracking  of  the  CSM. 


Servicer  ( SERV ) 

Average-G  navigation  routines  and  other  routines  used  for  burn 
control  and  monitoring. 


Up  and  Down  Telemetry  (TELE) 

Uplink  character  processing  and  computations  performed  for 
periodic  dovmlink  transmission,  including  a brief  summary  of  the 
information  on  the  downlink. 


Testing  Routines  (TEST) 

Computer  self -test  routines  and  externally  initiated  tests. 
Targeting  - Lambert  (TRGL) 

Burn  targeting  using  the  Lambert  computation  of  velocity-to-be- 
gained. 


Targeting  - External  Delta-V  (TRGX) 

Burn  targeting  for  constant  attitude  burns. 
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Notation  and  Terminology 


Because  of  some  of  the  special  design  features  of  the  Apollo 
Guidance  Computer,  a set  of  special  notation  and  terminology  has  been 
found  useful  in  describing  the  equations  programmed  for  this  computer. 

In  most  cases,  this  notation  and  terminology  follows  that  which  seems 
to  be  employed  by  the  G<SN  contractor,  and  also  follows  that  which  was 
used  in  documents  previously  prepared  on  Block  1 and  Block  2 programs. 

The  following  document  may  be  found  useful  for  supplemental  infor- 
mation on  the  symbolic  listing,  and  for  a more  detailed  discussion  of 
the  computer  hardware  and  general  computer  system  control; 

3420.5-27,  "Apollo  Guidance  Program  Symbolic  Listing  Information 
for  Block  2,"  Revision  2,  dated  27  June  1968, 
prepared  under  MTCP  Task  A-90. 

Copies  of  that  document,  together  with  revision  information  as  it  is 
published,  may  be  obtained  from  the  Flight  Software  Branch  of  MSC . 


Numbers 


A.  General 

The  guidance  computer  is  designed  with  a memory  word  length  of 
15  bits  (plus  a sixteenth  bit,  not  sensed  by  the  program,  used  to  achieve 
"odd  parity",  i.e.,  an  odd  number  of  binary  ones  in  the  total  16-blt 
word).  It  is  also  designed  as  a fractional  machine,  so  that  all  numbers 
in  the  computer  are  less  than  one:  "equation  values"  greater  than  1.0 
are  accommodated  by  suitable  scaling,  as  described  below.  Arithmetic 
is  all  one's  complement  except  in  special  instances  where  two's  complement 
is  required  for  hardware  interface  information.  There  is  no  hardware 
floating  point  capability  in  the  computer,  although  a facsimile  to 
floating  point  computations  is  sometimes  used  (and  identified  as  "quasi- 
floating point")  in  the  program,  particularly  when  the  quantities  involved 
can  have  a large  dynamic  range. 


7 


The  15-bit  word  is  divided  into  a sign  bit  and  14  magnitude  bits, 
with  the  bits  numbered  from  the  sign  (#15)  to  the  least  significant, 
magnitude  bit  (#1)  as  shown; 


Value : 

„-l 

„-2 

^-3  ^-4 

^_5  ^_6  „-7 

n-8 

^-9 

-,-10 

0-11 

0-12 

0-13 

0-14 

Sign 

2 

2 

2 2 

2 2 2 

2 

2 

2 

2 

2 

2 

2 

Number : 

15, 

14, 

13, 

12,  11, 

10,  9,  8, 

7, 

6, 

5, 

4, 

3, 

2, 

1 

Once  the  stored  value  of  a number  in  the  computer  register  (evaluated  using 
the  bit  weights  shown)  has  been  determined,  its  equation  value  may  be 
determined  by  multiplying  the  stored  value  by  some  power  of  two  which  is 
called  the  "scale  factor": 

The  scale  factor  of  a quantity  is  the  power  of  two  by  which 
the  number  in  the  computer  (considered  as  a fraction  in  the 
range  between  -1  and  +1)  must  be  multiplied  to  obtain  its 
equation  value.  For  convenience,  the  scale  factor  is  shown 
as  "Bxx" , where  "xx"  is  some  positive  or  negative  integer. 

For  example,  if  a word  has  a scale  factor  B14,  this  means  that  the  indi- 

14 

vidual  bits  have  a weight  2 (or  16384)  times  the  values  shown  in  the 

above  table.  A counter  in  the  program  with  this  scale  factor,  therefore, 

would  have  its  least  significant  magnitude  bit  (or  least  Increment) 

equal  to  1 (2"^^  x 2^^  =1).  See  Appendix  A of  3420.5-27  (Revision  2)  for  more 

details . 

In  many  instances,  the  word  length  of  15  bits,  permitting  a number 
to  be  expressed  to  1:±16384  (1  part  in  ±16384),  is  insufficient  to  give 
the  required  precision  in  the  computations.  In  these  instances,  a double 
precision  number  (stored  in  two  consecutive  memory  cells)  is  used. 

Scale  factor  information  for  double  precision  numbers  has  the  same  inter- 
pretation as  for  single  precision  numbers,  and  the  less  significant  half 

-14 

of  the  word  has  weights  that  are  2 times  the  weights  shown  above.  A 

quantity  that  is  double  precision  with  a scale  factor  of  B28,  for  example, 

28 

would  have  a least  significant  bit  of  1 and  a maxlnium  value  of  (2  - 1), 

or  268,435,455.  In  a few  cases  (usually  Involving  time  information), 
triple  precision  quantities  are  required,  which  follow  similar  rules. 


In  cases  where  it  is  not  reasonably  self-evident,  the  single,  double,  or 
triple  precision  nature  of  the  quantity  is  specified  (by  subscripts  sp, 
dp,  and  tp,  respectively). 


In  addition  to  the  scale  factor  information,  it  is  necessary  to 
know  the  units  in  which  the  quantities  are  expressed.  Times  are  usually 
expressed  in  units  of  "centiseconds"  (0.01  seconds).  The  navigation 
equations  give  a position  output  in  units  of  meters  and  a velocity  output 
in  units  of  meters  per  centisecond.  Angles  are  usually  expressed  in  units 
of  revolutions  (of  360°).  Where  not  reasonably  obvious,  units  on  the 
quantities  are  given. 


Unless  otherwise  specified,  numbers  with  explicit  values  are  quoted 
in  decimal.  A notation  such  as  "lE-S"  means  10  Octal  numbers  are 

indicated  by  a subscript  of  8 (such  as  34g  for  octal  34);  binary  numbers 
have  a subscript  2 (such  as  lllOO^  for  34g  expressed  in  binary).  The 
quantity  +0  is  OOOOOg ; -0  is  77777g  (in  some  cases,  the  distinction 
is  important,  since  a computer  instruction  can  distinguish  between  them). 


B.  Constants 


Fixed  scalar  constants  are  denoted  by  K:xxx,  where  xxx  is  a symbol 
of  arbitrary  type  and  length,  selected  generally  for  similarity  with  the 
program  notation  (capital  letters)  or  for  mnemonic  usefulness  (small 
letters).  A subscript  can  be  used  to  indicate  one  of  several  constants 
stored  in  a table. 


Constants  stored  in  erasable  memory  (so  they  can  be  changed  with- 
out hardware  implications)  are  not  distinguished  from  variables.  Some 
are  set  by  the  fresh  start  or  restart  routines;  some  are  loaded  as  part 
of  the  erasable  load. 


In  a few  cases,  vector  or  matrix  constants  are  employed.  They  are 
so  designated  by  an  underline  or  brackets  as  are  vector  and  matrix 
variables. 
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C.  Variables 


Variables  are  generally  designated  by  several  upper  case  capital 
letters,  sometimes  with  subscripts  (the  symbol  K;  is  reserved  for  constants). 
Lower  case  letters  sometimes  appear  with  the  symbol  for  a variable,  and 
have  the  following  special  meanings: 

d:  A division  indication  appears  as  part  of  the  symbol  in 
the  program  (IdANET  appears  in  the  listing  as  1/ANET). 

i:  A suitable  number  or  capital  letter  is  substituted  as 
defined  in  the  related  equation  information  for  "i” 

(VACiUSE  = VAC3USE  if  i = 3 , etc.) 

m:  A minus  sign  appears  as  part  of  the  symbol  in  the  program 
(mTPER  appears  in  the  listing  as  -TPER). 

p:  A plus  sign  appears  as  part  of  the  symbol  in  the  program 
(pMGA  appears  in  the  listing  as  +MGA). 


An  underline  of  the  first  character  of  a symbol  means  a quantity 
with  several  components,  frequently  a vector  but  sometimes  a quantity 
having  vector-type  properties,  such  as  gyro  compensation  about  different 
axes.  Individual  components  of  a vector  are  identified  by  a subscript 
using  the  same  symbol  as  for  the  vector,  but  without  the  underline; 

TS^,  for  example,  would  be  the  X component  of  the  vector  TS, 


Matrices  are  designated  by  enclosing  their  identification  mnemonics 
in  brackets:  [reFSMMAT]  for  instance.  Interpretive  language  operations 
in  the  guidance  computer  (see  TRW  Working  Paper  3420.5-27  (Revision  2))  permit  conven- 
ient manipulations  of  3x3  matrices  whose  elements  are  stored  double 
precision.  Therefore,  larger  matrices  are  handled  nine  elements  at  a time. 

Both  pre-multiplication  and  post-multiplication  of  a vector  by  a matrix 
are  Incorporated  (post-multiplication  is  equivalent  to  pre-multiplication 
by  the  transpose).  Elements  of  a 3x3  matrix  are  stored  "first  row,  then 
second  row,  then  third." 
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D.  Addresses 


The  value  of  an  address  is  designated  by  the  symbol  used  in  the 
program,  enclosed  in  quotation  marks:  without  the  quotation  marks,  the 
contents  of  the  cell  with  that  address  would  be  indicated.  In  order  to 
improve  presentation  clarity,  many  of  the  program-step  symbols  are 
omitted  from  the  equations,  and  others  may  not  precisely  correspond  to  the 
program  divisions  actually  located  by  the  symbol  in  question.  It  is 
sometimes  necessary  to  refer  to  a computer  address  as  actually  packed 
into  a 15-bit  word:  for  this,  the  term  "CADR"  (see  3420.5-27  (Revision  2}} 
is  employed  (erasable  and  fixed  memory  CADR  formats  differ). 

A number  of  subroutines  are  used  within  the  program,  each  of  which 
require  information  on  the  "main"  program  to  which  program  control  must 
be  transferred  at  the  end  of  the  subroutine.  For  clarity  in  showing  the 
computation  flow  performed,  the  retention  of  the  necessary  return  address 
information  is  shown  explicitly  in  a few  places.  The  "return  address" 
is  the  address  to  which  control  is  to  be  transferred  after  completion  of 
the  subroutine;  the  "calling  address"  is  the  address  from  which  transfer 
to  the  subroutine  was  made.  In  many  cases,  the  return  address  is  one 
greater  than  the  calling  address,  but  in  some  instances,  such  as  trans- 
fers to  the  "ALARM"  routine,  the  cell  following  the  calling  address  con- 
tains information  pertinent  to  the  subroutine  (such  as  the  alarm  pattern), 
and  therefore  the  return  address  may  be  several  address  locations  after 
the  calling  address.  To  save  program  steps,  in  some  cases  the  complement 
of  the  address  may  actually  be  used  by  the  program  for  storage  purposes; 
but  this  fact,  since  it  has  no  effect  on  the  computation  flow,  is  not 
indicated  in  the  equations. 
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E . Subscripts 


Subscripts  are  used  for  relative  addressing  or  for  informational 
purposes.  As  relative  addresses,  they  index  one  of  several  variables  or 
constants  stored  in  a table  with  only  one  explicit  address.  DSPTEMlj^ 
indicates  the  cell  after  DSPTEMl , and  DSPTEMI2  indicates  the  cell  after 
DSPTEMl^.  Sometimes  the  subscript  contains  the  complete  address  and  any 
arbitrary  erasable  memory  is  selected  by  the  notation  where  the 

address  of  the  cell  desired  is  stored  in  ADR.  When  used  for  informational 
purposes,  the  subscript  does  not  change  the  address  of  the  cell  but  merely 
Indicates  its  nature.  The  following  subscripts  are  frequently  used: 


sp:  Single  precision 

dp:  Double  precision 
tp;  Triple  precision 

ms.  Is:  More  and  less  significant  halves  of  a double 
precision  number 

X,  y 


z:  First,  second  and  third  components  of  a three- 
dimensional  vector 


2 (with  a number):  Binary 
8 (with  a number):  Octal 

(Numbers  without  a subscript  are  quoted  in  decimal) 


11, 

12, 

13, 

1^, 

15, 

, . . : Elements 
matrix 

of 

the 

first  row 

of  a 

21, 

22, 

23, 

24, 

25,  ,, 

. . . : El ement  s 
a matrix 

of 

the 

second  row 

of 

31, 

32, 

33, 

34, 

35,  .. 

, . . : Elements 
a matrix 

of 

the 

third  row 

of 

^1, 

^3, 

44, 

45,  .. 

, Elements 

of 

the 

fourth  row 

of 

etc , 


a matrix 
Program  Control 


Three  types  of  program  sub-units  occur  within  the  complete  program: 

a)  A subroutine,  which  performs  a certain  function  and  then 
returns  control  to  the  program  sub-unit  which  called  it 
(subroutines,  of  course,  may  have  other  subroutines  within 
them) . 
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b)  A task,  which  is  a short  sequence  of  computations  performed 
based  on  a time  criterion,  or  upon  some  external  signal. 

c)  A job,  which  is  a program  entity  (such  as  targeting  compu- 
tations, steering  computations,  processing  of  a 
keyboard  character,  etc.)  of  long  duration  which  must  be 
done  in  a definite  sequence.  (Accelerometer  data,  for 
example,  must  be  corrected  for  biases  before  navigation 
computations  are  performed,  and  navigation  before  steering 
commands,  so  they  all  form  part  of  the  same  job.) 

Time-dependent  tasks  are  implemented  by  a "waitlist"  system  (see 
section  VIIA  of  3420.5-27),  for  which  the  programmer  merely  specifies 
the  time  delay  (from  "now")  when  he  wants  a computation  done,  and  the 
starting  address  of  that  computation.  The  time  delay  has  a least  incre- 
ment of  10  milliseconds.  Unless  interrupts  are  inhibited,  a program 
interrupt  (which  can  be  caused  by  a signal  from  the  telemetry  system,  the 
uplink,  the  "waitlist"  hardware,  separate  ("T4RUPT")  waitlist-type 
hardware,  a keyboard  input, etc.)  causes  suspension  of  a job  and  performance 
of  the  task.  Tasks,  however,  are  not  subject  to  interruption  by  other 
tasks,  but  continue  to  completion.  There  is  also  a hardware  monitoring 
function  which  can  cause  a "program/hardware  restart"  which,  if  necessary, 
could  interrupt  a task;  in  general,  however,  these  should  not  be 
encountered . 

Jobs  are  sequenced  with  the  aid  of  a priority  system  (see  section  VIIB  of 
3024. 5-27 (Rev.  2))  and  are  performed  only  if  no  tasks  must  be  performed. 

If  no  "productive"  computations  are  required,  then  a "dummy  job"  is 
performed,  which  checks  periodically  for  the  availability  of  a job  to  be 
performed,  and  of  course  is  subject  to  interruption  for  a task.  A job 
can  be  "established"  (put  into  a list  to  be  selected  when  its  priority 
Is  sufficiently  high)  by  another  job  or  by  a task.  A job  can  be  "put  to 
sleep"  to  wait  for  some  external  event  (such  as  an  uplink  input),  the 
occurrence  of  which  will  "awaken"  the  job.  Jobs  can  optionally  be  assigned 
a set  of  "working  storage"  erasable  memory  cells,  called  a "VAC  area" 

(see  Section  VID  of  3420.5-27  (Revision  2)). 

A program  "step"  is  a step  in  the  computation  sequence  shown  on  the 
page,  and  should  not  be  confused  with  a line  of  the  program  assembly 
listing. 
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The  following  program-control  terms  are  employed: 

a.  Awaken  a job;  Cause  a job  (if  any)  with  the  indicated 
starting  address  to  be  restored  to  its  original  priority 
after  a period  of  being  "asleep",  during  which  the  per- 
formance of  the  job  was  suspended  by  making  its  priority 
negative. 

b.  Call  "XXX"  in  yy  seconds:  Cause  a task  with  starting 
address  of  "XXX"  to  be  performed  in  yy  seconds  from  the 
present  time  (yy  has  a least  increment  of  10  milliseconds). 

c.  Delay  yy  seconds:  Cause  the  present  string  of  computations 
to  be  suspended  for  yy  seconds,  and  then  restart  at  next 
line.  Delays  to  a Waitlist  Task  are  implemented  by  a 
waitlist  call  to  the  following  step,  and  then  an  end  task; 
delays  for  a job  are  achieved  by  using  the  "DELAYJOB" 
routine. 

d.  End  job:  Terminate  performance  of  the  job,  and  transfer 
control  to  an  executive  routine  to  initiate  performance 

of  the  job  which  has  the  highest  priority  of  those  remain- 
ing. The  "dummy  job"  is  the  only  one  which  is  not  ended  in 
this  fashion. 

e.  End  task:  Terminate  performance  of  the  waitlist-initiated 
task,  and  transfer  control  to  a routine  which  checks  for 
other  waitlist  tasks,  causing  resumption  of  previous  compu- 
tations if  there  are  no  such  tasks. 

f.  Establish  "XXXX":  Enter  the  job  with  starting  address 
"XXXX"  in  the  priority  list  to  be  performed  when  appropri- 
ate (each  job  has  a priority  associated  with  it,  not 
necessarily  shown  in  the  equations).  A job  can  optionally 
be  established  with  or  without  a working  storage  (VAC)  area 
(not  generally  shown  in  the  equations). 

g.  If;  Carry  out  the  indicated  manipulations  provided  the 
indicated  conditions  are  satisfied.  The  "indicated  manipula- 
tions" are  "indicated"  by  being  indented,  if  the  "If" 
statement  is  followed  by  a colon,  or  by  being  on  the  same 
line  as  an  "If"  statement  followed  by  a comma.  Should  the 
conditions  not  be  satisfied  or  after  performing  "indicated 
manipulations"  that  do  not  end  with  a "Proceed  to...", 
continue  on  in  sequence  at  the  next  non-indented  line. 

h.  Perform  "XXXX":  Cause  a subroutine  with  starting  address 
"XXXX"  to  be  entered.  The  specific  memory  cell  to  which  the 
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subroutine  returns  control  depends  in  some  cases  on  the 
piirpose  of  the  routine,  but  generally  is  the  step  after 
the  "Perform"  instruction. 

i.  Proceed  to  "XXXZ":  Cause  the  program  step  with  address 
"XXXX"  to  be  the  next  one  to  be  performed,  and  continue 
the  performance  of  the  program  from  that  point. 

j . Proceed  to  XXXX:  Cause  the  program  step  whose  address  is 
stored  in  cell  XXXX  to  be  the  next  one  performed,  and 
continue  the  performance  of  the  program  from  that  point. 

k.  Put  to  sleep:  Cause  the  present  job's  computations  to  be 
suspended  (by  making  its  priority  negative)  until  some 
event  takes  place  causing  the  job  to  be  "awakened." 

Differs  from  End  job  and  Establishing  a job  in  that  the 
VAC  area  and  Job  Register  Set  are  retained.  When  a job 
is  put  to  sleep,  a starting  address  identification  is 
provided  for  use  in  awakening  the  job  (and  also  to  specify 
the  starting  point  for  the  job  when  it  is  performed). 

l.  Resume:  Resiune  computations  which  were  interrupted  to 
perform  the  task  (used  for  tasks  not  initiated  through 
waitlist  means,  cf.  End  task). 

m.  Return  (or  "Return  via  XXX"  where  the  return  address  has 
been  stored  in  XXX):  Return  to  the  subroutine's  calling 
program  (which  in  some  cases  could  have  been  either  a 
task  or  a job). 

n.  When  no  transfer  instruction  occurs  at  the  end  of  a 
routine,  computations  continue  down  the  page  through 
subsequent  routine  or  routines. 

In  addition  to  the  above  terms,  a special  notation  is  used  with 
display  interface  routines: 

Proceed  to  "GOFLASH" 

(If  terminate,  ...;  if  proceed,  ...;  if  other  response, 

) 

or 

Perform  "GOFLASHR" 

(If  terminate,  ...;  if  proceed,  ...;  if  other  response, 

) 
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X = I 


End  j ob 

In  the  first  case,  control  is  transferred  to  the  display  interface 
routine  and  the  program  is  terminated  until  the  astronaut  responds. 

In  the  second  case,  a display  interface  routine  is  established  and 
the  subsequent  steps  (X  = Y)  are  executed  before  the  astronaut 
responds  to  the  display  (usually).  The  four  possible  astronaut 
responses  that  are  recognized  are:  "Terminate"  via  verb  34;  "Proceed" 
via  verb  33  or  the  proceed  button;  "Resequence"  via  verb  32;  and 
"Enter"  by  pushing  the  enter  button  in  response  to  a "please  perform" 
type  verb  or  after  loading  data  via  one  of  the  load  verbs.  The  last 
two  types  of  response  will  initiate  the  "if  other  response"  branch. 

A capability  also  exists  to  "kill"  a task  that  has  been  inserted 
in  the  "waitlist"  but  has  not  yet  been  executed.  It  is  simply  removed 
from  the  waitlist. 


Operations 


Several  mathematical  manipulations  are  available  to  the  programmer 
and  are  indicated  either  by  special  characters  or  by  lower  case  symbols. 
The  trigonometric,  logarithm  and  square  root  functions  are  described 
in  the  MATX  section. 

1 )  Standard  Arithmetic  Operations 
+ : plus 
- : minus 


/ 

|A| 

|A| 


(blank)  multiply;  scalar  by  scalar,  vector  by  scalar,  etc. 
divide;  scalar  by  scalar;  vector  by  scalar 
Magnitude  of  scalar  (absolute  value) 

Magnitude  of  vector  (length) 


2)  Special  scalar  operations  (see  MATX  section) 


arccosA 

arcsinA 

arcsin  A 
sp 

cos  A 

cos  A 
sp 

slnA 

sin  A 
sp 

InA 


square  root 

double  precision  arc  cosine  of  A 
double  precision  arc  sine  of  A 
single  precision  arc  sine  of  A 
double  precision  cosine  of  A 
single  precision  cosine  of  A 
double  precision  sine  of  A 
single  precision  sine  of  A 
natural  logarithm  of  A 


3)  Vector  operations 

^ (A  * B)  : vector  cross  product 

* (A  * B)  : vector  dot  product 
2 

A : square  of  length  of  A 

Fa  3 B or  B [aJ'^:  premultiply  the  vector  B by  the  matrix 

[a] (3x3;  interpretive  instruction  MXV) . 
The  X component  of  the  answer  is  equal 
to  the  dot  product  of  the  first  row 
of  [a]  with  B,  etc. 
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T 

B [a]  or  [a]  B : post  multiply  the  vector  B by  the  matrix  [a] 

(3x3,  interpretive  instruction  VXM).  The 
X component  of  the  answer  is  equal  to  the 
dot  product  of  the  first  column  of  [a]  with 
B,  etc. 


4)  Bit  operations 

Switch  bit  a of  B to  1 or  0: 

Set  bit  a of  A = bit  b of  B: 

Invert  bit  a of  A: 


Set  or  reset  bit  a of  erasable  memory 
register  B. 

Set  or  reset  bit  a of  erasable  memory 
register  A according  to  whether 
bit  b of  B is  set  or  reset. 

Set  bit  a of  A = the  complement  of 
bit  a of  A. 


A (A  AB):  Bit  by  bit  logical  product.  If  a given  bit  in  both 

A and  B is  a binary  1,  then  the  result  is  a binary  1; 
otherwise,  the  result  is  a binary  0. 


(B)i 


Bit  by  bit  complement  of  B, 


5)  cycle:  Shift  in  a cyclic  fashion,  with  bits  "spilling  out"  of 

one  end  of  the  register  appearing  at  the  other  end. 

For  example,  bit  14  cycled  left  2 places,  since  the 
word  length  of  the  computer  is  15  bits  for  data,  becomes 
bit  1,  as  does  the  same  bit  cycled  right  13  places  (or, 
in  this  case,  shifted  right  13  places). 

6)  limit:  Cause  the  maximum  value  (usually  K:posinax)  to  be  stored 

if  the  quantity  or  its  computed  value  exceeds  that  maximum. 
(Unless  otherwise  specified,  the  magnitude  is  limited, 
with  sign  information  preserved;  frequently  done  by 
means  of  a check  for  overflow.) 

7)  modulo:  Form  a quantity,  for  A modulo  B,  equivalent  to  the 

value  of  B times  the  remainder  from  (A/B).  For 
example,  380°  modulo  one  revolution  is  20  . 


8)  overflow:  Exceed  the  capacity  of  the  computer  register  (l.e. 

the  maximum  value  of  the  number  allowed  by  its 
scaling).  The  interpretive  language  (section  VI  of 
3420.5-27  (Revision  2))  has  a special  cell  which  is 
set  if  such  an  overflow  is  encountered,  and  which 
may  be  sensed  to  cause  program  branching.  The  divide 
instruction  in  the  interpretive  language,  if  the 
numerator  exceeds  the  denominator  (using  the  numbers 
in  the  computer  register),  sets  the  answer  to  the 
maximum  capacity  of  the  computer  register  with  the 
proper  sign. 
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9)  quasi-floating  point;  Carry  out  a computation  (usually 

involving  a division)  by,  in  general, 
normalizing  both  numerator  and  denominator 
before  performing  the  division  (with 
suitable  provisions  to  avoid  division 
overflow),  and  then  shifting  the  result 
the  appropriate  number  of  places.  Norma- 
lization Involves  shifting  a number  so 
that  there  are  no  leading  magnitude  zeroes, 
and  counting  the  number  of  shifts  required. 

10)  set  A = B and  B = A:  Exchange  the  contents  of  "A"  and  "B"  • 

11)  signA:  Complement  the  accumulator  if  A is  negative;  otherwise, 

leave  the  accumulator  alone.  Unless  otherwise  specified, 
if  A = 0 the  accumulator  is  also  left  alone,  i.e.  0 is  a 
"positive"  number  . 

12)  shift:  Shift  in  a non-cycllc  fashion,  with  exclusion  of  the 

sign  bit:  bits  "spilling  out"  of  the  least  significant 
end  of  the  register  (for  shifting  right)  are  lost. 

Cf . "cycle".  Vacated  bits  are  set  to  sign  bit. 

13)  sign  agreement:  Force  the  signs  of  the  various  parts  of  a 

multiple-precision  word  to  be  the  same. 

14)  unit(A  + B);  Form  or  use  a unit  vector  from  the  vector  infor- 

mation specified.  The  scale  factor  of  the  unit 
vector  when  formed  is  B1 . The  magnitude  of  the 
vector  is  left  in  push-down  list  address  36D  and 
its  square  in  34D.  Operation  "overflows"  if 
magnitude  of  vector  (before  forming  unit)  is 
less  than  2“^^  as  stored  in  computer  register: 
if  a cross  product  of  2 unit  vectors  involved, 
this  would  be  a "true  value"  of  2“^^,  or  about 
0.002  mr. 

15)  A = , ^2  ’ ^3^'  Form  a vector  with  x,  y,  and  z components  = 

a^  , Si ^ and  ^3  * 

16)  B = (bj^  , 62):  Form  a double  precision  number  B with  more 

significant  half  = b^^,  less  significant  half  = b2. 

17)  The  difference  between  two  angles  expressed  in  two's  complement 
form  can  be  performed  by  a special  instruction  to  produce  a 
result  in  one's  complement  form. 
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Ma.ior  Variables 
(and  constants) 


The  following  quantities  are  used  at  several  points  in  the  program; 
a general  knowledge  of  their  significance  will  be  valuable  in  any 
effort  to  understand  the  program. 


CADRFI^H^  (i=0,l,2),  CADRSTOR,  DSPLIST:  Single  precision  address 
storage  registers  in  the  display  interface  routines.  Three 
internally  generated  displays  can  be  handled  by  the  display 
interface  routines  at  any  one  time,  one  "priority"  display,  one 
"mark/extended  verb"  display  and  one  "normal"  display.  Ihe 
addresses  of  the  routines  requesting  these  displays  are  stored  in 
CADRFLSHq,  CADRFLSH.  and  CADRFLSH2  respectively.  If  the  active 
display  rinds  that  the  astronaut  is  using  the  DSKY  (Display  and 
Keyboard  Assembly),  it  is  put  to  sleep  and  its  address  stored  in 
DSPLIST  until  the  astronaut  releases  the  DSKY.  If  the  active 
display  requires  astronaut  response,  it  is  put  to  sleep  and  its 
address  stored  in  CADRSTOR  until  the  response  is  received. 


®U  (CDU  , CDU  , CDU  ):  LGC  input  counters  incremented  directly  from 
the  Couplin^’Data^Unit  to  maintain  L3C  knowledge  of  the  position 
of  the  outer,  inner  and  middle  gimbal  angles  of  the  Inertial 
Measurement  Unit.  These  counters  are  coupled  directly  to  the 
"Read  Counters"  in  the  three  ICDU  channels  of  the  CDU,  and  the 
two  coTjnters  associated  with  each  gimbal  angle  are  incremented 
simultaneously.  In  order  to  synchronize  the  LGC  counters  with 
the  Read  Counters,  the  LGC  counters  must  be  set  to  zero  while 
the  ICDU  Read  Counters  are  maintained  at  zero  by  setting  bit  5 
of  channel  12.  The  gimbal  angle  data  thus  maintained  is  scaled 
B-1  in  iinits  of  revolutions  (one  least  increment  is  equivalent 
to  2“^^  revolution)  and  is  in  two's  complement  form. 


The  manipulation  of  two's  complement  numbers  in  the  LGC  maintains 
a periodic  regularity  by  propagating  an  overflow  bit  into  the 
sign  bit.  In  the  case  of  angles  scaled  B-1  in  \mits  of  revolutions, 
the  overflow  bit  represents  one-half  of  a revolution  (180  degrees), 
and  eingular  sums  over  one  half  of  a revolution  in  magnitude  are 
"automatically"  adjusted  to  lie  within  the  range  ^ angle  J. 
For  example:  0.35  + 0.42  = -0.23  (126.0®  + 151.2®  = -82. 8*’). 


CDU  , CDU,  : LGC  input  counters  incremented  directly  from  the 

^Coupling  Data  Unit  to  maintain  LGC  knowledge  of  the  Rendezvous 
Radar  shaft  and  trunnion  angles.  These  counters  are  coupled  to 
the  Read  Counters  in  the  two  RRCDU  channels  of  the  CDU  and  are 
exactly  like  the  CDU-linked  coimters  described  above.  The  RRCDU 
Read  Coimters  are  zeroed  by  bit  1 of  channel  12. 
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OTUD:  Single  precision  vector  containing  the  latest  specification 
of  desired  IMIJ  gimbal  angles  for  the  Digital  Autopilot,  scaled 
B-1  in  units  of  revolutions  and  stored  in  two's  complement  form. 

See  the  description  of  LGC  two's  complement  included  with  the 
definition  of  CDU. 

Channels:  Fifteen  bit  interface  registers  for  input  and  output  of 

discrete  information.  See  TRW  Working  Paper  3420.5-27  (Revision  2)  for  more 
precise  and  complete  information.  Channels  5,6,11-16  and  30-33 
are  described  in  the  section  entitled  "Channels,  Flagwords  and 
Other  Discrete  Information  Registers." 

1,2:  Identical  to  L and  Q registers;  see  MATX  section. 

3,4:  Standby  Clock;  continues  to  count  when  the  LGC  is  put  into 
standby  mode  (see  "P06"). 

7:  Bits  15-8  and  4-1  have  no  function;  bits  7-5  are  the  fixed- 
memory  address  extension  bits  (SUPERBNK);  see  MATX  section. 

10:  Channel  used  by  "T4RUPT"  to  set  the  relays  in  the  DSKY; 
bits  15-12  contain  the  relay  address;  bits  11-1  contain  the 
desired  setting.  Called  OUTO  in  the  programs;  see  INTR  section. 

34,35:  Two  channels  loaded  with  information  to  be  telemetered 
by  the  downlink;  see  TELE  section. 

DELCDU:  Single  precision  vector  subtracted  from  CDUD  every  100 
milliseconds  to  control  the  rate  during  an  automatic  attitude 
maneuver,  scaled  B-1  in  units  of  revolutions  and  stored  in 
two's  complement  form.  See  the  description  of  LGC  two's  com- 
plement included  with  the  definition  of  OTU. 

DELV:  Double  precision  sensed-change-in-velocity  vector,  scaled 
B14  in  units  of  centimeters  per  second  and  expressed  in  stable 
member  (IMU)  coordinates.  (One  pulse  from  the  accelerometer 
is  equivalent  to  one  centimeter  per  second;  DELV  is  loaded 
directly  from  the  accelerometers.) 

DISPDEK:  Single  precision  index  controlling  the  periodic  and  other- 
wise independent  display  (by  "CLOKTASK")  of  burn  parameters. 

See  BURN  section. 

DNLSTCOD:  Single  precision  index  (range  0-5)  indicating  which  of  the 
downlists  is  to  be  telemetered,  scaled  B14  a-nd  unitless.  Loaded 
by  various  programs  to  select  the  proper  downlist.  See  K:DNTABLE 
in  TELE  section. 
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DSPTAB.  (i=0-10):  Computer  storage  for  the  DSKY  illumination  relay 
set^^ings,  complemented  when  they  are  changed  to  signal  to  the 
"TARUFT"  routine  that  the  relays  are  to  be  re-set  as  soon  as 
possible.  A numerical  record  of  vrtiat  is  displayed  via  DSPTAB^q  p ^ 
is  maintained  in  MODREG,  VERBRBG  and  NOUNREG.  The  contents  of  ’ ’ 
XREG,  YREG  and  ZREG  do  not  necessarily  reflect  what  is  currently 
being  displayed  via  DSPTABy_Q.  See  DSKY  and  DATA  sections. 


DSPTAB.  ^ : Single  precision  flagword  vdiose  bits  designate  relays 
to  be  set  to  illuminate  lamps  on  the  DSKY.  Bit  9 lights  the 
"program  alarm"  (PROG)  lamp  vdien  set;  bit  8 lights  the  "tracker 
fail"  (TRACKER)  lamp  when  set;  bit  6 lights  the  "gimbal  lock 
warning"  (GIMBAL  LOCK)  lamp  when  set;  bit  5 lights  the  "LR  altitude 
fail"  lamp  when  set;  bit  4 lights  the  "no  attitude"  (NO  ATT) 
lamp  when  set  (via  "TAROTT");  bit  3 lights  the  "LR  velocity  fail" 
lamp  when  set. 

^ADR'  Notation  used  to  denote  any  cell  in  erasable  memory  whose 
^address  is  stored  in  the  quantity  used  as  the  subscript  (here 
denoted  by  ADR).  If  access  is  required  to  an  E-memory  cell  in 
a switched  bank  other  than  that  in  -which  the  program  is  oper- 
ating, the  EBANK  register  must  be  re-set  first. 


FLAGWRDO-1 1 : Single  precision  registers  whose  bits  are  used  indi- 
vidually for  storage  of  on-off/yes-no  type  information.  The 
flagwords  are  described  in  the  section  entitled  "Channels, 
Flagwords  and  Other  Discrete  Information  Registers"  and 
references  to  the  flagwords  are  listed  in  the  section  entitled 
"List  of  References  to  Flagwords  and  Channels." 


i,  j,  k,  n,  p,  s,  t,  v:  Letters  used  to  denote  various  temporary 
storage  cells  in  the  programs,  usually  indexes  scaled  B14  and 
unitless. 


Krdvtoacc:  Constant  implicit  in  the  2 second  navigation  cycle, 

scaled  B-1  in  units  of  seconds  to  the  minus  one  power.  Equation 
value:  J.  If  the  navigation  cycle  is  changed  to  something 
other  than  2 seconds,  this  constant  will  have  to  be  changed  to 
an  explicit  one  wherever  it  appears. 

Kiposmaxsp,  Krposmaxdp:  Notation  for  the  maximum  positive  value 
that  can  be  stored  in  a single  or  double  precision  LGC  register. 
The  stored  value  of  the  constants  is  37777 
respectively.  The  equation  value  of  each 
scale  factor  of  the  variable  involved.  If  B is  the  scale  factor, 
the  equation  values  are: 

K:posmaxsp  = 2®  (1  - 2 ^^) 

R —PA 

K:posmaxdp  =2  (1-2  ) 


g and  37777q  37777^ 
IS  determined  by  the 
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K:VxxNxx:  Single  precision  constant  verb-noun  code.  The  two-digit 
decimal  noun  number  is  stored  in  bits  1-7  of  the  constant;  the 
two-digit  decimal  verb  number  is  stored  in  bits  8-14. 

MPAC^  (i=0-7):  Multiple  precision  accumulator  and  storage  used 
by  jobs  coded  in  interpretive  language  (via  the  interpretive 
decoder)  and  sometimes  by  jobs  coded  in  basic  language.  A 
set  of  eight  single  precision  cells  associated  with  each  job 
and  used  exclusively  by  that  job.  When  a job  is  put  to  sleep 
or  is  interrupted  by  a job  of  higher  priority,  MPACq-MPAC„  ai’e 
saved  as  part  of  the  "job  core"  reserved  for  that  job,  and  they 
are  re-set  exactly  as  they  were  vdien  the  interrupted  job  is  re- 
established. 

MUDEX,  PBODY:  Single  precision  indexes  used  to  differentiate  between 
constants  and  program  branches  that  differ  according  to  whether 
the  center  of  attraction  is  the  earth  (.0)  or  the  moon  (8  and  2 
respectively) . See  CONG  section  and  ORBI  aectlon  respectively. 


PRIOTIME:  Single  precision  time  when  a priority  display  is  activated, 
used  to  enforce  the  two  second  delay  before  the  response  to  a 
priority  display  is  accepted  (to  avoid  the  problem  of  a response 
to  a just  interrupted  normal  display  being  interpreted  as  the 
response  to  the  priority  display.)  See  DINT  section. 

RATT,  VATT,  TAT:  State  vector  output  from  orbital  integration 

with  constant  scaling  (B29,  B7,  B28)  or  variable  scaling  (RATTl, 
VATTl,  TAT)  in  units  of  meters,  meters  per  centisecond,  and 
centiseconds. 

RCVCSM,  RCVIEM:  The  permanent  state  vectors  for  the  GSM  and  LM 
contain  six  double  precision  vectors  and  three  do\ible  precision 
scalars.  They  are  listed  below  along  with  the  name  of  the 
equivalent  variable  used  in  the  precision  integration  of  each. 


Dd 

GSM 

Integration 

RGVLEM 

RCVGSM 

RGV 

VGVLEM 

VCVGSM 

VGV 

TGLEM 

TGGSM 

TC 

DELTALEM 

DELTAGSM 

TDELTAV 

NUVLEM 

NUVGSM 

rauv 

TETLEM 

TETCSM 

TET 

RREGTLEM 

RREGTGSM 

RRECT 

VREGTLEM 

VREGTCSM 

VRECT 

XKEPLM 

XKEPGSM 

XPREV 
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[rEFSMMA'^  ; Double  precision,  3x3  transformation  matrix,  scaled  B1 
and  unitless.  Defined  such  that  Asm  = [REFSMMAT]  Arf  vdiere  A is 
a vector  expressed  in  stable  member  and  reference  coordinates 
respectively.  (Other  transformation  matrices  are  not  continuously 
maintained  but  only  generated  when  needed.) 

M,  YN,  PIPTIME,  R-OTHER,  V-OTHER,  TETCSM:  Double  precision  vectors 
describing  the  navigation  state  of  the  IM  and  CSM  respectively, 
scaled  nominally  (B29,  B7,  B28). 

TDECl:  Double  precision  time  input  to  orbital  integration  routines 
(GET)  specifying  the  endpoint  of  the  integration,  scaled  B28  in 
units  of  centiseconds.  (Only  input  necessary  if  the  permanent 
state  vector  is  used  as  the  origin. ) 

TEPHEM:  Triple  precision  elapsed  time  from  the  beginning  of  the  near- 
est Besselian  year  to  the  time  when  the  LGC  clock  (TIMENOW)  is  zeroed, 
for  use  in  the  calculation  of  ephemerides;  scaled  B42  in  units  of 
centiseconds  and  included  in  the  pre-launch  erasable  load. 


THETAD:  Single  precision  vector  containing  the  final  desired  gimbal 
angles  that  define  a desired  orientation  of  the  spacecraft  with 
respect  to  the  Inertial  Mleasiirement  Unit  (IMU)  for  large  attitude 
maneuvers  or  IMU  alignment;  scaled  B-1  in  units  of  revolutions 
and  stored  in  two ' s complement  form.  See  the  description  of  LGC 
two's  complement  included  with  the  definition  of  OTU. 

TIG:  Double  precision  time  of  ignition  (or  predicted  cutoff  time, 
once  the  engine  has  been  ignited)  input  to  the  bum  programs 
from  the  targeting  programs.  The  parameters  required  of  the 
targeting  programs  by  the  bum  programs  (in  addition  to  the 
LM  state  and  mass  estimate,  vAiich  are  assiimed  always  available) 
are: 

External  Delta-V  Lambert  Targetted 

(XDELVFLG  = l)  (XDELVFLG  = 0) 


TIG 

RTIG 

VTIG 

DELVSIN 

DELVSAB 


TIG 

RTARG 

TPASS4 

NORMSW  (FL7,  bit  10) 


TIME3,  TIME4,  TIME5,  TIME6:  LGC  clocks  in  addition  to  TIMENOW  which 
are  used  to  control  interrupts  of  one  kind  or  another.  See 
INTR  section. 


TIMENOW:  Double  precision  computer  clock,  inci’emented  every  centi- 
second  (one  hmdredth  of  a second)  by  the  LGC  oscillator;  scaled 
B28  in  vmits  of  centiseconds. 
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TS  (arid  various  transmutations  such  as  TSl,  TSnoun  ^vec): 

Read  or  dumny  temporary  storage  cells  used  for  convenience  in 
describing  the  performance  of  the  equations.  When  used  as  a 
communication  cell  between  routines,  TS  generally  represents 
what  the  program  transfers  via  the  accumulator. 

WPREV:  Double  precision  previous  value  of  velocity-to-be-gained 
vector,  program  notation  also  "VGTIG, " scaled  B7  in  units  of 
meters  per  centisecond. 

UPSVFLAG:  Single  precision  flag  loaded  with  a state  vector  update 
(address  of  UPSVFLAG  is  just  before  that  of  ERECT)  to  indicate 
iidiether  the  update  is  for  the  124  or  CSM  state  and  whether  it 
is  in  moon-centered  or  earth-centered  reference  coordinates. 

See  ORBI  section. 

3KC,  3^,  ]KCD,  etc.:  Double  precision  unit  vectors  in  the  directions 
of  the  X spacecraft  axis,  the  X stable  member  axis,  the  desired 
X spacecraft  axis,  etc.  Such  unit  vectors  are  always  scaled  B1 
and  unitless,  but  they  may  be  expressed  in  various  coordinate 
systems.  An  effort  has  been  made  to  indicate  the  coordinate 
system  in  cases  where  it  was  not  immediately  obvious  by  adding 
small  letters  (sc,  sm,  rf)  to  the  tagj  the  notations  YSCsm, 

YSCsc,  and  YSC  all  represent  the  same  cell  - the  indication 
of  coordinate  system  is  purely  explanatory. 


Erasable  Memory  Initialization 


The  quantities  listed  below  constitute  the  "erasable  memory  load" 
which  supplements  the  initialization  performed  by  verb  36  (fresh  start 
routine  "SLAPl")  in  order  to  prepare  the  LGC  erasable  memory  for  the 
beginning  of  the  mission.  The  list  shows  the  absolute  address  of  each 
quantity  in  the  list  (single,  double  or  triple  precision)  in  ECADR  form 
(EBANK  in  bits  11-9;  address  = 1400g  + bits  8-1 ) ; the  tag  assigned  to 
that  address  by  this  document;  the  tag  assigned  to  that  address  by  the 
LUMINARI  program  if  it  differs  from  that  used  in  this  document;  the 
scale  factor  and  the  units  which  the  program  assmnes  when  handling  each 
quantity;  and  the  section  of  this  document  in  which  the  quantity  is 
defined. 


Following  this  alphabetical  list  are  the  erasable  memory  quantities 
listed  in  order  of  increasing  ECADR. 


ECADR 

Tag  (alternate  tag)  Scale 

Units 

Section 

01516 

01517 

2LATE466 

B28 

centiseconds 

DESC 

02566 

02567 

ABTRDOT 

B7 

meters/ centisecond 

ASCT 

01463 

ADIAX 

B-6 

gyro  pulses/cm 

per  sec 

IMUC 

01464 

ADIAY 

B-6 

gyro  pulses/cm 

per  sec 

IMUC 

01465 

ADIAZ 

B-6 

gyro  pulses/cm 

per  sec 

IMUC 

01466 

ADSRAX 

B-6 

gyro  pulses/cm 

per  sec 

IMUC 

01467 

ADS  RAY 

B-6 

gyro  pulses/cm 

per  sec 

IMUC 

01470 

ADSRAZ 

B-6 

gyro  pulses/cm 

per  sec 

IMUC 

(Because  one  gyro  pulse  is  equivalent  to  2“21  revolutions, 
the  above  six  quantities  could  also  be  assumed  to  be  scaled 

B-26  in  units  of  revolutions.) 

02020 

02021 

AGSK 

B28 

centiseconds 

EXVB 

02512 

AHZLIM 

B-4 

m/cs^ 

DESC 

03404 

AOTAZq  (AOTAZ) 

B-1 

revolutions  ( 2 

' s comp ) 

ALIN 

03405 

AOTAZ2  (AOTAZ+1) 

B-1 

revolutions  ( 2 ' 

's  comp) 

ALIN 

03406 

AOTAZ3  (AOTAZ+2) 

B-1 

revolutions  ( 2 ' 

's  comp) 

ALIN 

03407 

AOTAZ4  (AOTAZ+3) 

B-1 

revolutions  ( 2 ' 

's  comp) 

ALIN 

25 


EC.\DR 

Tag  (alternate  tag) 

Scale 

Units 

Section 

03410 

AOTAZ5  (AOTAZ+4) 

B-1 

revolutions 

(2 

' s 

comp) 

ALIN 

03411 

AOTAZ^,  (AOTAZ+5) 

B~1 

revolutions 

(2 

's 

comp) 

ALIN 

03412 

AOTELj  (AOTEL) 

B-1 

revolutions 

(2 

' s 

comp) 

ALIN 

03413 

AOTEL2  (AOTEL+1) 

B-1 

revolutions 

(2 

's 

comp) 

ALIN 

03414 

AOTEL3  (AOTEL+2) 

B-1 

revolutions 

(2 

's 

comp) 

ALIN 

03415 

AOTEL4  (AOTEL+3) 

B-1 

revolutions 

(2 

' s 

comp) 

ALIN 

03416 

AOTEL5  (AOTEL+4) 

B-1 

revolutions 

(2 

's 

comp) 

ALIN 

03417 

A0TEL6  (AOTEL+5) 

B-1 

revolutions 

(2 

's 

comp) 

ALIN 

(2's  comp  indicates  that  these  quantities  are  stored  in 
two's  complement  form,  not  the  usual  one's  complement  form) 


0 H 
0 0 

0 0 

ATIGINC 

B28 

centiseconds 

TRGL 

03373 

AZBIAS 

B-1 

revolutions 

DESC 

01711 

01712 

AZO 

BO 

revolutions 

COOR 

02570 

02571 

COSTHETl 

B2 

unitless 

ASCI 

02572 

02573 

C0STHET2 

B2 

unitless 

ASCT 

01327 

CSMMASS 

B16 

kilograms 

DAPB 

02520 

02521 

DELQFIX 

B24 

meters 

SERV 

03425 

DELTTFAP 

B17 

centiseconds 

DESC 

02474 

02475 

DESIGNRX; 

(RIGNX) 

B24 

meters 

DESC 

02476 

02477 

DESIGNRZ 

(RIGNZ) 

B24 

meters 

DESC 

02472 

02473 

DESIGNV 

(VIGN) 

BIO 

meters/ centisecond 

DESC 
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ECADR 

Tag  (alternate  tag) 

Scale 

Section 

02504 

02505 

DESKIGNV  (KIGNV/B4) 

BIS 

centiseconds 

DESC 

02500 

02501 

DESKIGNX  (KIGNX/B4) 

B4 

unities s 

DESC 

02502 

02503 

DESKIGNY  (KIGNY/B8) 

B-16 

meters"^ 

DESC 

03011 

DKD3 

B15 

revolutions"^ 

DAPB 

03005 

DKKA03N 

BI4 

unities s 

DAPA 

03004 

DXOMffiAN 

BI4 

unitless 

DAPA 

03003 

DKTRAP 

B-3 

revolutions /second 

DAPA 

■JJ- 

02634 

thru 

02641 

BLAND 

B24 

m«t«rs 

DESC 

03113 

DOWNTORKq  (postorkp) 

B5 

seconds 

DAPA 

03114 

DOWNTORKi  (NEGTQREP) 

B5 

seconds 

DAPA 

03115 

DOWNTORK2  (POSTORKU) 

B5 

seconds 

DAPA 

03116 

DOWNTORK3  (NEGTORKU) 

B5 

seconds 

DAPA 

03117 

DOWNTORJ'C^  (POSTORKV) 

B5 

seconds 

DAPA 

03120 

DOWNTORK5  (NEGTORKV) 

B5 

seconds 

DAPA 

01350 

E32C31RM 

B80 

meters^/ centisecond^ 

ORBI 

01347 

E3J22R2M 

B58 

meters^/ centisecond^ 

ORBI 

01356 

E LB  IAS 

B-1 

revolutions 

DESC 

02432 

02433 

GAINo  (GAINBRAK) 

BO 

unitless 

DESC 

02466 

02467 

GAIN28  (GAINAPPR) 

BO 

unities s 

DESC 

03000 

HIASCENT 

B16 

kilograms 

DAPB 

02507 

HIGHCRIT 

BI4 

DPS  throttle  pulses 

DESC 

02514 

HLROFF 

B24 

meters 

SERV 

03012 

IGNAOSQ 

B-2 

2 

revolutions/  second 

BURN 

03013 

IGNAOSR 

B-2 

2 

revolutions/ second 

BURN 

ECADR 

Tag  (alternate  tag) 

Scale 

Units 

Section 

02550 

02551 

JIPARM 

B24 

meters 

ASCT 

02554 

02555 

J2PARM 

B24 

meters 

ASCT 

02552 

02553 

K1PARM 

B24 

meters / revolution 

ASCT 

02556 

02557 

K2PARM 

.B24 

meters/ revolution 

ASCT 

* See  note  on  page 

ASCT-1 4 , 

02542 

02543 

LAGdTAU  (LAG/TAU) 

BO 

unities s 

DESC 

03426 

LEADTIME 

B17 

centiseconds 

DESC 

01326 

LEMMAS S 

B16 

kilograms 

DAPB 

02012 

thru 

02017 

LM504  (504LM) 

BO 

radians 

COOR 

03010 

LMKAOSN 

BI4 

unitless 

DATA 

03007 

LMOMEGAN 

BI4 

unitless 

DAPA  ^ 

03006 

LMTRAP 

B-3 

revolutions/ second 

DAPA  ^ 

02506 

LOWCRIT 

BI4 

DPS  throttle  pulses 

DESC 

02522 

LRALPHAi  (LRALPHA) 

B-1 

revolutions  (2's  comp) 

SER\r 

02524 

LRALPHA2  (LRALPHA2) 

B-1 

revolutions  (2's  comp) 

SERV 

02523 

LRBETAi  (LRBETAl) 

B-1 

revolutions  (2's  comp) 

SERV 

02525 

LRBETA2  (LRBETA2) 

B-1 

revolutions  (2's  comp) 

SERV 

03420 

LRHMAX 

BI4 

meters 

SERV 
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EGADii 

Tag  (alternate  tag) 

Scale 

Units 

Section 

02527 

LEVF 

B7 

meters/ centisecond 

SERF 

02526 

LKTMAX 

B7 

meters/ centisecond 

SERF 

03421 

LKWK 

BO 

unitless 

SERF 

02530 

LE.'Nq  (LRWVZ) 

BO 

unitless 

SERF 

02531 

LRWVi  (LRWVY) 

BO 

unitless 

SERF 

02532 

LRWV2  (LRWVX) 

BO 

unities s 

SERF 

02533 

LKWVFq  (LRWVFZ) 

BO 

unities s 

SERF 

02534 

LRWVF^  (LRWVFY) 

BO 

unities s 

SERF 

02535 

L.RWVF2  (LRWVFX) 

BO 

unities s 

SERF 

02536 

L.RWVFF 

BO 

unities s 

SERF 

01243 

01244 

MASS 

B16 

kilograms 

SERF 

DAP3 

02546 

02547 

MAXFORCE 

B12 

kg  meters/centisecond^ 

DESC 

02544 

02545 

MINFORCE 

B12 

kg  meters/centisecond^ 

DESC 

01460 

NBDX 

B-5 

gyro  pulses/centisecond  IMUC 

01461 

NBDY 

B-5 

gyro  pulses/centisecond  IMUC 

01462 

NBDZ 

B-5 

gyro  pulses/centisecond  IMUC 

(B-5  gyro  pulses/cs 

equivalent 

to  B-26  revolutions/cs) 

01452 

PIPABIAS^  (PBIASX) 

B-3 

PIPA  counts/centisecond 

IMUC 

01454 

PIPABIASy  (PBIASY) 

B-3 

PIPA  coionts/centisecond  IMUC 

01456 

PIPABIAS^  (PBIASZ) 

B-3 

PIPA  counts/centisecond  IMUC 

01453 

PIPASCF^  (PIPASCFX) 

B-9 

unitless 

IMUC 

01455 

PIPASCF^  (PIPASCFY) 

B-9 

unities 3 

IMUC 
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EC  ADR 

Section 

01457 

PIPASCF„  (PIPASCFZ) 

B-9  • 

unitless 

DflJC 

03002 

PITTIME 

B14 

centl seconds 

DAPB 

03402 

03403 

PTIGINC 

B28 

centiseconds 

TRGL 

02511 

QHZ 

BO 

unitless 

DESC 

01351 

01352 

RADSKAL 

B21 

LR  low  scale  altitude 
blts/meter/cs 

SER7 

02562 

02563 

RAMIN 

B24 

meters 

ASCT 

01770 

01771 

RANGEVAR 

B-12 

unitless 

RNAV 

01772 

01773 

RATEVAR 

B-12 

unities s 

RNAV 

02022 

thru 

02027 

RLS 

B27 

meters 

CONG 

02004 

RMAX 

B19 

meters 

RNAV 

02537 

RODSCALE 

B-7 

meters/ centisecond 

DESC 

03001 

ROLLTIME 

B14 

centiseconds 

DAPB 

03427 

RPGRTIME 

B17 

centiseconds 

SERV 

03430 

RPCRTQSW 

B1 

unities s 

SERV 

01774 

RVARMIN 

B12 

meters 2 

RNAV 

02010 

SHAFTVAR 

B-12 

radians 2 

RNAV 

01353 

SKALSKAL 

BO 

unitless 

SERV 

02416 

thru 

02423 

TARGADGq  (ADGjABHFG) 

B-4 

meters/ centisecond^ 

DESC 

02452 

thru 

02457 

TARGADG28  (AAPFG) 

B-4 

meters/ centisecond^ 

DESC 
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ECADR 

Tae  (alternate  tae) 

Scale 

Units 

Section 

02402 

thru 

02407 

TARGRDGq  (RDGjRBREG) 

B24 

meters 

DESC 

02436 

thru 

02443 

TARGRDG2g  (RAPFG) 

B24 

meters 

DESC 

02410 

thru 

02415 

TARGVDGo  (VDG,VBRFG) 

BIO 

meters/ centisecond 

DESC 

02444 

thru 

02451 

TAEGVDG28  (VAPFG) 

BIO 

meters/ centisecond 

DESC 

02510 

TAUHZ 

B11 

centiseconds 

DESC 

02540 

02541 

TAUROD 

B9 

centiseconds 

DESC 

02434 

TCGFq  (tcgfbrak) 

B17 

centiseconds 

DESC 

02470 

TCGF28  (TCGFAPPR) 

B17 

centiseconds 

DESC 

02435 

TCGIq  (TCGIBRAK) 

B17 

centiseconds 

DESC 

02471 

TCGI28  (TCGIAPPR) 

B17 

centiseconds 

DESC 

03423 

TENDq  (TENDBRAK) 

B17 

centiseconds 

DESC 

03424 

TEND^  (tendappr) 

B17 

centiseconds 

DESC 

01706 

01707 
01710 

TEPHEM 

B42 

centiseconds 

COOR 

01570 

01571 

TETCSM 

B28 

centiseconds 

ORBI 

01642 

01643 

TETLEM 

B28 

centiseconds 

ORBI 

02560 

02561 

THETCRIT 

BO 

revolutions 

ASCT 
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ECADR 

Tae  (alternate  tag) 

Scale 

Units 

Section 

02400 

02401 

TLAM) 

B28 

centiseconds 

DESC 

03431 

03432 

TNEWA 

B28 

centiseconds 

BURN 

02513 

TOOFEW 

BI4 

unities 3 

DESC 

02011 

TRUNVAR 

B-12 

radians^ 

RMV 

02426 

02427 

TTFADGZq  (ABRFG^  and 
ADG2TTF+0) 

B-4 

2 

meters/ centisecond 

DESC 

02J,G2 

02463 

TTFADGZpg  (AAPFG^  and 
ADG2TTF+28) 

B-4 

2 

meters/centisecond 

DESC 

02430 

02431 

TTFJDGZq  (JBRFG*  and 
JDG2TTF+0) 

B-21 

3 

meters/centisecond 

DESC 

02464 

02465 

TTFJDGZ23  (JAPFG*  and 
(JTO2TTF+28) 

B-21 

3 

meters/centisecond 

DESC 

02424 

02425 

TTFVDGZq  (VBRFG*  and 
VDG2TTF+0 

BI3 

meters/centisecond 

DESC 

02460 

02461 

TTFVDGZ23  (VAPFG*  and 
VDG2TTF+28 

BI3 

meters/centisecond 

DESC 

01713 

01714 

UWITWx  (mAYO) 

BO 

unitless 

COOR 

01715 

01716 

UNITWy  (AXO) 

BO 

unitless 

COOR 

03371 

03372 

VELBIAS 

B6 

meters/ centisecond 

SERV 

02005 

VMAX 

B7 

meters/centisecond 

RNAV 

01775 

WARMIN 

B-12 

meters^/centlsecond^ 

RNAV 

02000 

WRENDPOS 

BI4 

meters 

RNAV 

02001 

WRENWEL 

BO 

meters/centisecond 

RNAV 

02002 

WSHAFT 

B-5 

radians 

RNAV 

02006 

WSURFPOS 

BI4 

meters 

RNAV 
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ECADR 

Tag  (alternate  tag) 

Scale 

Units 

Section 

02007 

WSURFVEL 

BO 

meters/centisecond 

RNAV 

02003 

WTRUE 

B-5 

radians 

RNAV 

01700 

thru 

01705 

X789 

("Scaling  is 

B5  for 

radians 

earth  and  B3  for  moon) 

RNAV 

02564 

02565 

YLIM 

B24 

meters 

ASCT 

03422 

ZOOiMTIME 

B14 

centiseconds 

BURN 

* These  quantities  are  also  loaded  by  the  fresh  start  routine  entered  ^ 
from  verb  36. 


In  addition  to  the  quantities  listed  on  the  previous  pages,  the 
indicated  bits  of  the  following  flagwords  must  be  padloaded  as  they  are 
not  initialized  by  the  fresh  start  ("3LAP1")  routine. 


FLAGWRD3 

bit  13 

(REFSMFLG) 

FLAGWRD8 

bit  8 

(SURFFLAG) 

bit  11 

(LMOONFLG) 

bit  12 

(CMOONFLG) 

FLGWRDIO 

bit  13 

(APSFLAG) 
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The  following  pad  loaded  variables  are  listed  by  ascending 
ECADR.  The  tag  name  is  that  given  by  this  document. 


ECADR 

Tag 

ECADR 

Tag 

01243-4 

MASS 

01700-5 

X789 

01326 

LEMMASS 

01706-10 

TEPHEM 

01327 

CSMMASS 

01711-2 

AZO 

01347 

E3J22R2M 

01713-4 

UNITWx 

01350 

E32C31RM 

01715-6 

UNITWy 

01351-2 

RADSKAL 

01770-1 

RANGEVAR 

01353 

SEALS  KAL 

01772-3 

RATEVAR 

01356 

ELBIAS 

01774 

R7ARMIN 

01452 

PIPABIASx 

01775 

WARMIN 

01453 

PIPASCFx 

02000 

WRENDPOS 

01454 

PIPABIASy 

02001 

WRENDVEL 

01455 

PIPASCFy 

02002 

WSHAFT 

01456 

PIPABIAS2 

02003 

WTRUN 

01457 

PIPASCFy 

02004 

RMAX 

01460 

NBDX 

02005 

VMAX 

01461 

NBDY 

02006 

WSURFPOS 

01462 

NBDZ 

02007 

WSURFVEL 

01463 

ADIAX 

02010 

SHAFTVAR 

01464 

ADIAY 

02011 

TRUNVAR 

01465 

ADIAZ 

02012-7 

m504 

01466 

ADS  RAX 

02020-1 

AGSK 

01467 

ADS  RAY 

02022-7 

^S 

01470 

ADSRAZ 

02400-1 

TLAND 

01570-1 

TETCSM 

02402-7 

TAHGRDGq 

01642-3 

TETLEM 
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ECADR 

Tag 

ECADR 

Tag 

02410-5 

TARGVDGo 

02513 

TOOFEW 

0241 6-23 

TAEGADGo 

i 02514 

HEROFF 

02424-5 

TTFVDGZq 

02516-7 

2LATE466 

02426-7 

TTFADGZq 

02520-1 

DELQFIX 

02430-1 

TTFJDGZo 

02522 

LRALPHA]_ 

02432-3 

GAINq 

02523 

LRBETAi 

02434 

TCGFq 

02524 

LRALPHA2 

02435 

TCGIo 

02525 

LRBETA2 

02436-43 

TARGRDG28 

02526 

LR7MAX 

02444-51 

TARIVDG28 

02527 

LR7F 

02452-7 

TARGADG28 

02530 

LRWVq 

02460-1 

TTFVDGZ28 

02531 

LROT]_ 

02462-3 

TTFADGZ28 

02532 

LRWV2 

02464-5 

TTFJDGZ28 

02533 

LBWVFq 

02466-7 

GAIN28 

02534 

LRWVFi 

02470 

TCGF28 

02535 

LRWVF2 

02471 

TCGI28 

02536 

LRWVFF 

02472-3 

DESIGNV 

02537 

RODSCALE 

02474-5 

DESIGNRX 

02540-1 

TAURDD 

02476-7 

DSSIGNRZ 

02542-3 

LAGdTAU 

02500-1 

DESKIGNX 

02544.-5 

MINFORCE 

02502-3 

DE3KIGNY 

02546-7 

MAXFORCE 

02504-5 

DESKIGNV 

02550-1 

J1PARM 

02506 

LOWCRIT 

02552-3 

K1PARM 

02507 

HIGHCRIT 

02554-5 

J2PARM 

02510 

TAUHZ 

02556-7 

K2PARM 

02511 

QHZ 

02560-1 

THETCRIT 

02512 

AHZLIM 

02562-3 

RAMIN 
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ECADR 

Tag 

ECADR 

Tag 

02564-5 

YLIM 

03422 

ZOOMTIME 

02566-7 

ABTRDOT 

03423 

TENDq 

02570-1 

C0STHET1 

03424 

TENDi 

02572-3 

C0STHET2 

03425 

delttfap 

02634-41 

BLAND 

03426 

LEADTIME 

03000 

HIASOENT 

03427 

RPCRTIME 

03001 

ROLLTIME 

03430 

RPCRTOSW 

03002 

PITTIME 

03431-2 

TNEWA 

03003 

DKTRAP 

03004 

DKOMEGAN 

03005 

DKKAOSN 

03006 

LMTRAP 

03007 

LMOl-IEGAN 

03010 

LMKAOSN 

03011 

DKDB 

03012 

IGNAOSQ 

03013 

IGNAOSR 

031 1 3-20 

DOWNTORKo_5 

03371-2 

VELBIAS 

03373 

AZBIAS 

03400-1 

ATIGINC 

03402-3 

PTIGINC 

03404-1 1 

AOTAZi_£, 

03412-7 

AOTELi_£, 

03420 

LRHMAX 

03421 

LEWH 

Channels.  Flagwords  and  Other  Discrete  Information  Registers 


Channels  l-4j  7,  10,  34»  and  35  are  discussed  in  the  list  of  Major 
Variables 

Channel  5 


Bits  15-9  have  no  significance;  bits  8-1  are  set  to  command  RCS  jet 


firings  and 

resets 

to  terminate  the 

firing. 

Bit 

Code 

Jet  Number 

System 

Rotation 

Translation 

Effect 

Effect 

8 

ID 

14 

B 

+U 

+X 

7 

lU 

13 

A 

-U 

-X 

6 

2D 

10 

A 

+V 

+X 

5 

2U 

9 

B 

-V 

-X 

4 

3D 

6 

B 

-U 

+X 

3 

3U 

5 

A 

+U 

-X 

2 

4D 

2 

A 

-V 

+X 

1 

4U 

1 

B 

+V 

-X 

Channel 

_6 

Bits  15-9  have  no 

significance;  bits  8-1  are 

set  to  command  RCS 

jet  firings 

and  reset  to  terminate 

the  firing 

• 

Bit 

Code 

Jet  Number 

System 

Rotation 

Translation 

Effect 

Effect 

8 

IS 

16 

B 

-P 

+Y 

7 

4S 

4 

A 

+P 

-Y 

6 

33 

8 

A 

-P 

-Y 

5 

2S 

12 

B 

+P 

+Y 

4 

2F 

11 

A 

-P 

+Z 

3 

IF 

15 

A 

+P 

-Z 

2 

4^ 

3 

B 

-P 

-Z 

1 

3F 

7 

B 

+P 

+Z 

Channel  11 


Bits  15,  12,  11,  and  8 are  spare. 


37 


Bits  14  (engine  off)  and  13  (engine  on)  are  assigned  to  the  main 
engine  on/off  function.  The  normal  engine-off  command  configuration 
is  IO2J  the  normal  engine -on  command  configuration  is  OI2.  The 
following  information  concerns  the  performance  of  the  LM  when  either 
of  the  two  other  possible  binary  states  (OO2  or  II2)  occurs  (as  in 
a hardware  restart  - "GOPROG" ) . 

"All  Block  2 computers  have  the  englne-on  and  engine  off  discretes 
in  bits  13  and  14  respectively  of  channel  11.  If  the  LEM  Descent 
engine  sees  a 1,1  condition  (both  output  transistors  conducting) 
or  a 0,0  condition  (both  output  transistors  non-conducting),  it 
will  Ignore  the  signal  and  remain  in  the  state  it  was  previously 
in.  This  allows  the  computer  to  zero  all  the  output  bits  during 
a restart  and  not  shut  the  engine  off.  There  is  no  time  limit 
as  to  how  long  an  improper  state  (l,l)  or  (0,0)  can  last  with 
the  descent  engine. 

"The  LEM  ascent  engine  will  be  turned  on  by  an  erroneous  1,1 
condition  which  lasts  longer  than  1 millisecond.  Therefore  the 
LGC  must  be  programed  to  set  the  bits  to  the  proper  state  within 
0.5  millisecond  following  recovery  from  a restart." 

It  is  assumed  that  the  ascent  engine  will  remain  off  if  staging  occurs 
with  the  bits  in  the  configuration  OO2. 

A fresh  start  sets  bit  I4  to  1 and  sets  remaining  bits  to  0. 

Meaning  when  set  and  reset  (channel  11  is  an  output  or  command 
channel) 

10  1 - Caution  Reset  signal;  resets  the  flip-flop  holding  the  Restart 

lamp  in  the  energized  state, 

0 - Allow  the  Restart  lamp  to  light 

9 1 - Test  connector  discrete  used  in  bench  tests 

0 - 

7 1 - Light  the  "Operator  Error"  lamp  (automatic  flash) 

0 - Extinguish  the  "Operator  Error"  lamp 

6 1 - Start  flash  of  verb  and  noiin  registers  on  the  DSKY 

0 - Stop  the  verb-noun  flash 

5 1 - Light  the  "Key  Release"  lamp  (automatic  flash)  to  request  key 

release 

0 - Extinguish  the  "Key  Release"  lamp 
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4 1 - Light  the  "Temperature  Caution"  lamp 

0 - Extinguish  the  "Temperature  Caution"  lamp 

3 1 - Light  the  "Uplink  Activity"  lamp 

0 - Extinguish  the  "Uplink  Activity"  lamp 

2 1 - Light  the  "Computer  Activity"  lamp 

0 - Extinguish  the  "Computer  Activity"  lamp 

1 1 - Light  the  "ISS  Warning"  lamp 

0 - Extinguish  the  "ISS  Warning"  lamp 

Channel  12 

Bit  and  initial  value  (fresh  start) 

Meaning  (channel  12  is  an  output  or  command  channel) 

15  0 Bit  energizes  a latching  relay  that  signals  that  the  ISS 

turn-on  delay  is  complete,  removing  the  signal  from  bit  14 
of  channel  30  and  switching  the  ISS  into  the  normal  operate 
mode.  Reset  after  remaining  set  for  about  ten  and  one  fourth 
seconds. 

14  0 1 - Enable  RR  lock -on  and  automatic  tracking. 

0 - Disable  Rendezvous  Radar  lock -on  and  automatic  tracking, 

13  0 Command  provided  via  a DSKY  relay  to  change  landing  radar 

from  position  #1  to  position  #2.  (Returned  to  position  #1 
by  a spacecraft  switch. ) 

12  0 Bit  set  to  cause  rotation  of  the  DPS  bell  around  the  +Z  LM 

axis  to  produce  a negative  angular  jerk  around  the  +Z  axis 

(-R). 

11  0 Bit  set  to  cause  rotation  of  the  DPS  bell  around  the  -Z  LM 

axis  to  produce  a positive  angular  jerk  around  the  +Z  axis 

(+R). 

10  0 Bit  set  to  cause  rotation  of  the  DPS  bell  around  the  +Y  LM 

axis  to  produce  a negative  angular  jerk  around  the  +Y  axis 

( -Q)  • 

9 0 Bit  set  to  cause  rotation  of  the  DPS  bell  around  the  -Y  LM 

axis  to  produce  a positive  angular  jerk  around  the  +Y  axis  (+Q). 

8 0 Bit  set  to  display  inertial  data. 
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7 


0 spare 

6 0 1 - Enable  ICDU  Error  Covinters  - coarse  align,  or  display  on  FDAI. 

I 

0 - Disable  ICDU  Error  Counters  (3). 

5 0 1 - Zero  the  ICDU  Read  Counters;  force  the  ICDU  gimbal  angle 

follower  counters  to  zero. 

0 - Allow  the  ICDU  Read  Counters  to  follow  the  IMU  gimbal 
angles,  incrementing  the  CDU  counters  in  the  LGC  as  they  do. 

40  1 - Enable  coarse  align  of  the  IMU;  connect  the  ICDU  Read 

Counters  with  the  ICDU  Error  Counters  so  that  the  latter  may 
be  decremented  as  the  IMU  is  coarse  aligned. 

0 - Disable  coarse  align  of  the  IMU. 

3 0 Bit  not  set  in  LUMINARY  program. 

2 0 1 - Enable  Rendezvous  Radar  CDU  Error  Counters. 

0 - Disable  RRCDU  Error  Counters  (2). 

1 0 1 - Zero  the  RRCDU  Read  Counters.  (Like  bit  5) 

0 - Allow  the  RRCDU  Read  Counters  to  follow  the  HR  position 
angles . 


Channel  13 

Bit  and  initial  value  (fresh  start) 

Meaning  (channel  13  is  an  output  or  command  channel) 

15  0 Bit  set  to  1 to  permit  cell  000318  (TIME6)  to  be  decremented 

by  1 each  0.000625  second.  When  cell  has  been  reduced  to  -0, 
the  next  decrement  resets  bit  to  0 and  causes  program  interrupt 
#1. 


14 

0 

Bit  set  to  1 to  permit  the  RCS  jet  fail  switches  or  the  DPS 
gimbal  fail  switch  to  cause  interrupt  #10;  always  0 in 
LUMINARY. 

13 

0 

Bit  set  to 
controller 

1 to  permit  signals  from  the  translational  hand 
to  cause  interrupt  #10;  always  0 in  LUMINARY. 

12 

0 

Bit  set  to 
controller 

1 to  permit  signals  from  the  rotational  hand 
to  cause  interrupt  #10. 

11 

0 

Bit  set  to  1 to  cause  the  PRO  key  on  the  DSKY  to  be  inter- 
preted as  a "standby"  key  and  put  the  LGC  into  standby  mode 
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Chanriel  13  (Continued) 


10  0 Bit  set  to  1 to  test  the  DSKY  lights  and  relays  not  otherwise 

accessible  to  the  software;  energizes  the  Restart,  Standby 
and  Computer  Warning  lamps  (the  latter  through  a "warning 
filter") . 

9 0 1 - Initiate  readout  of  analog-to-digital  converters  associated 

with  the  displacement  of  the  rotational  hand  controller  into 
cells  RHCP,  RHCQ,  and  RHCR  (428-448) . 

0 - Stop  readout  of  RHC  analog-to-digital  converters 

8 0 1 - Enable  input  to  RHCP,  RHCQ,  and  RHCR  from  rotational  hand 

controU-er  analog-to-digital  converter 
0 - Disable  input  to  RHCP,  RHCQ,  and  RHCR 

7 0 Bit  used  as  the  "word  order  code"  bit  (first  bit  in  the  40-bit 

downlink  sequence  sent  from  the  LGC  containing  digital  data) 
for  telemetry. 

6 0 Bits  used  to  block  all  inputs  to  INLINK;  not  set  in  LUMINARY. 

5 0 Not  used  in  LUMINARY. 

4 0 Bit  set  to  1 to  initiate  transmission  of  radar  information 

to  the  LGC.  Bit  is  reset  to  0 when  program  interrupt  #9 
is  generated  after  the  end  of  the  pulse 

train  from  the  radar  to  cell  463  (RNRAD). 

3-1  Bits  set  to  determine  the  routing  of  radar  information  into 
RNRAD  when  bit  4 is  set.  Information  into  RNRAD  is:  RR 
range  information  if  bits  3-1  are  OOI2;  RR  range  rate  if  OlOp; 
LR  X-velocity  if  lOOp;  LR  Y-velocity  if  IOI2;  LR  Z -velocity  if 
IIO2;  and  LR  altitude  information  if  bits  3-1  are  lll2.  Bits 
are  initially  000. 

Channel  14 

Bit  and  initial  value  (fresh  start) 

Meaning  (channel  14  is  an  output  or  command  channel) 

15  0 Bit  set  to  1 to  cause  output  piilses  (at  a 3200  pps  rate)  to 

be  generated  from  CDUXCMD,  cell  000508.  When  cell  is  counted 
down  to  zero,  the  bit  is  reset,  stopping  the  pulses.  The  ICDU 
Error  Counter  is  loaded  by  these  pulses  if  bit  6 of  channel  12 
is  1. 
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Channel  IM,  (Continued) 


14  0 Bit  set  to  1 to  cause  output  pulses  to  be  generated  from 

CDUYCMD,  cell  OOOSlg.  Like  bit  15. 

13  0 Bit  set  to  1 to  cause  output  pulses  to  be  generated  from 

CDUZCMD,  cell  000528.  Like  bit  15. 

12  0 Bit  set  to  1 to  cause  output  pulses  (at  a 3200  pps  rate)  to 

be  generated  from  CDUTCMD,  cell  000538*  When  cell  is  counted 
down  to  0,  the  bit  is  reset,  stopping  the  pulses.  The  RRCDU 
Error  Counter  is  loaded  by  these  pulses  if  bit  2 of  channel 
12  is  1. 

11  0 Bit  set  to  1 to  cause  output  pulses  to  be  generated  from 

CDUSCMD,  cell  00054^*  Like  bit  12. 

10  0 Bit  set  to  1 to  specify  "gyro  activity" ; it  causes  the 

pulse  train  whose  magnitude  is  in  cell  000478,  GIROCMD,  to 
be  sent  with  polarity  and  destination  specified  by  bits  9-7 
of  this  channel,  if  bit  6 of  this  channel  is  1.  Bit  reset 
after  the  pulses  are  sent. 

9 0 1 - Gyro  torquing  pulses  from  GYROCMD  specify  a negative 

torque . 

0 - Gyro  torquing  pulses  from  GYROCMD  specify  a positive 
torque.  (Other  pulse -type  outputs  from  the  computer  have  the 
polarity  indicated  by  the  polarity  of  the  information  in  the 
counter  cell  itself.) 

8-7  Bits  used  to  specify  the  axis  for  gyro  compensation  infor- 
mation from  GYROCMD.  Conventional  output  sequence  is  inner 
(Y),  middle  (Z),  and  outer  (X) . The  settings  of  bits  8 and 
7 are;  OO2  for  no  output;  OI2  for  X-axis  gyro;  IO2  for  Y- 
axis  gyro;  II2  for  Z-axis  gyro.  Bits  are  initially  000. 

6 0 Bit  set  to  1 to  enable  the  power  supply  that  produces  the 

torquing  pulses  used  to  torque  the  gyros.  Generally  remains 
set  after  the  first  gyro  torquing  operation. 

5 0 Not  used  in  LUMINARY. 

4 0 Bit  set  to  1 to  cause  output  pulses  to  be  generated  from 

cell  000558  (THRUST)  for  use  in  controlling  the  position 
of  the  descent  engine  throttle. 
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Channel  IL  (Continued) 


Bit  set  to  1 to  initiate  shifting  of  data  from  cell  00060g 
(ALTM)  to  spacecraft  indicator  for  altitude  or  altitude 
rate  information.  (See  bit  2 of  this  word.)  Bit  reset 
to  0 just  after  start  of  data  shift. 

Bit  set  to  1 to  indicate  that  altitude  rate  information  is 
being  shifted  from  cell  OOObOg;  if  bit  is  0 altitude  in- 
formation is  being  shifted  from  cell  OOO6O3. 


Not  used  in  LUMINARY. 


Channel  15 


Bits  15-6  have  no  function. 

Bits  5-1  contain  the  five -bit  binary  key code  generated  by  the 
depression  of  one  of  the  keys  on  the  DSKY  (Display  and  Keyboard 
Assembly) . The  depression  of  any  key  causes  program  interrupt 
#5  which  reads  the  keycode  immediately,  while  the  key  is  depressed. 

The  release  of  the  key  resets  channel  15  and  resets  an  interrupt 
trap  (#15)  to  re-enable  the  interrupt. 

Channel  16 

Bits  15-8,  2 and  1 have  no  function. 

Bit  7 is  set  to  1 if  an  increase  in  the  rate  of  descent  is  desired 
by  the  crew  (i.e.  a lower  thrust).  Generated  by  moving  a rate -of - 
descent  switch  in  the  -X  direction  (towards  the  engine). 

Bit  6 is  set  to  1 if  a decrease  in  the  rate  of  descent  is  desired 
by  the  crew  (i.e.  a higher  thrust).  Generated  by  moving  a rate- 
of-descent  switch  in  the  +X  direction. 

/ 

Bits  5-3  are  set  by  depression  of  the  mark  reject,  X mark,  and  X 
mark  buttons.  The  depression  of  any  of  these  buttons  causes  program 
interrupt  #6  which  reads  the  Information  on  channel  16  immediately 
while  the  button  is  depressed.  The  release  of  the  button  resets 
channel  16  and  resets  interrupt  trap  #16A  to  re-enable  interrupt  #6. 
Bits  5-3  are  processed  by  the  "MARKRUPT"  routine. 

A special  capability  is  programmed  into  the  restart  routine  to  enable 
the  astronaut  to  extricate  the  LGC  from  a multiple-restart  loop.  The 
restart  program  exits  to  the  fresh  start  program  if  it  senses  that 
the  mark  reject  button  and  the  error  reset  key  (channel  15  code  223) 
are  depressed  simultaneously. 

Channel  30 

Bit  Meaning  (channel  30  is  an  input  or  information  channel) 

15  1 - Stable  Member  temperature  outside  design  limits . 

0 - Stable  Member  temperature  within  design  limits. 

(Connected  directly  to  lamp  controlled  by  bit  4 of  channel  ll) 

14  1 - IMU  power-on  switch  off;  or,  IMU  power-on  switch  on  and 

IMU  in  normal  operate  mode  ("turn-on  delay  complete"  discrete 
sent  from  the  LGC) (bit  15  of  channel  12) . 
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Channel  30  (Continued) 

Bit  Meaning  (Channel  30  is  an  input  or  information  channel) 

14  0 - IMU  power-on  switch  on  and  IMU  caged,  waiting  for 

"turn-on  delay  complete"  discrete  from  the  LGC.  (The 
discrete  from  the  LGC  sets  a relay  which  switches  the 
IMU  to  normal  operate  mode . ) 

13  1 - IMU  good. 

0 - IMU  fail  due  to  excessive  servo  errors  or  degradation 
of  3200  pps  or  800  pps  supply  . (See  IMUMON  routine.) 

12  1 - ICDU  good. 

0 - ICDU  fail  (due  to  excessive  errors  or  low  voltage). 

(See  IMUMON  routine.) 

11  1 - IMU  not  caged  by  crew  switch  setting. 

0 - IMU  caged  by  setting  of  crew  switch.  (See  IMUMON  routine.) 

10  1 - SCS  control  of  spacecraft.  (Panel  switch) 

0 - PGNCS  control  of  spacecraft. 

9 1 - IMU  power-on  switch  switched  to  off  (panel  lOO). 

0 - IMU  power-on  switch  switched  to  on. 

8 spare 

7 1 - RRCDU  good. 

0 - RRCDU  fail  (due  e.g.  to  excessive  errors  or  low  voltage). 
(See  RRCDUCHK  routine.) 

6 1 - Display  of  inertial  data  from  the  computer  is  not  desired 

by  the  crew. 

0 - Display  of  inertial  data  from  the  computer  is  desired  by 
the  crew.  When  the  appropriate  information  has  been  loaded 
by  the  program,  bit  8 of  channel  12  is  set  to  1. 

5 1 - LGC  DPS  throttle  commands  disabled. 

0 - LGC  DPS  throttle  commands  enabled. 


4 Bit  sensed  0 is  "ABORT  STAGE"  command. 

J 3 1 - Engine  not  armed. 

0 - Engine  armed. 


2 


1 - Ascent  configuration.  ( not  examined  in  Luminary) 
0 - Ascent  and  descent  configuration. 
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Bit 

1 


Bit 

15 


14 


13 


12 


11 


10 

9 

8 

7 


Channel  30  (Continued) 

Meaning  (channel  30  is  an  input  or  information  channel) 


Bit  sensed  0 is  "ABORT"  command. 

Channel  31 

Meaning  (channel  31  is  an  input  or  information  channel) 

1 - RHC  (Rotational  hand  controller)  is  in  detent. 

0 - RHC  is  displaced  from  detent. 


1 - The  PGNS  Mode  Control  switch  is  not  set  to  "Auto". 

0 - The  PGNS  Mode  control  switch  is  set  to  "AUTO",  indicating  that 
the  LGC  has  complete  authority  for  control  of  the  spacecraft. 

1 - The  PGNS  Mode  Control  switch  is  nob  set  to  "Attitude  Hold". 

0 - The  PGNS  Mode  Control  switch  is  set  to  "Attitude  Hold", 
indicating  that  LGC  Digital  Autopilot  authority  is  limited 
to  rate  damping, 

1 - -Z  translation  not  commanded  via  the  THC  (Translational 
Hand  Controller) . 

0 - -Z  translation  commanded  via  the  THC, 


1 - +Z  translation  not  commanded  via  the  THC. 
0 - +Z  translation  commanded  via  the  THCt 


1 - -Y  translation  not  commanded  via  the  THC. 
0 - -Y  translation  commanded  via  the  THC« 


1 - +Y  translation  not  commanded  via  the  THC. 
0 - +Y  translation  commanded  via  the  THC* 


1 - -X  translation  not  commanded  via  the  THC. 

0 ^X  translation  commanded  via  the  THC. 

1 - +X  translation  not  commanded  via  the  THC. 

0 - +X  translation  commanded  via  the  THC. 
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Channel  31  (Continued) 


Bits  6-1  carry  discrete  information  about  the  displacement  of  the 
Rotational  Hand  Controller  (RHC  - also  denoted  by  ACA) . The  bits 
are  normally  1 and  are  set  to  0 by  the  RHC  to  Indicate  the  following 
directions  of  desired  rotation; 

Bit  6 5 4 3 2 1 

Desired  Rotation  -R  +R  -P  +P  -Q  +Q 

Channel  32 

Bits  15,  13,  12,  and  11  of  channel  32  are  spares. 

Bit  14  is  activated  by  the  "Proceed"  key  on  the  DSKY  (formerly  the 
"Standby"  key  and  still  functional  as  such  when  program  6 has  enabled 
standby).  It  is  normally  set  (l)  and  is  reset  to  0 only  while  the 
proceed  key  is  depressed.  It  is  examined  every  120  milliseconds  by 
the  "T4RUPT"  program  and  functions  like  a verb  33  except  when  program 
6 has  enabled  standby.  Proceed  is  rejected  if  V21 , V22  or  V23  on  DSKY. 

Bit  10.  Bit  state  of  0 indicates  that  the  descent  engine  gimbal 
failure  monitor  detects  an  apparent  gimbal  fail  in  the  pitch  or 
roll  gimbal  trim  system.  Not  used  by  the  LUMINARY  program. 


Bit  9 is  sensed  as  0 if  action  is  taken  by  the  crew  to  turn  off  the 
descent  engine  gimbal  system.  This  prevents  bits  12-9  of  channel  12 
from  having  any  effect  on  the  flight  and  causes  the  software  to 
avoid  using  the  gimbal. 

Bits  8-1  are  normally  set  (l) . They  are  reset  by  astronaut  panel 
switches  that  disable  RCS  jets  (indicate  that  they  are  not  functional). 
Each  switch  disables  two  jets,  one  with  thrust  around  the  P axis  and 
one  with  thrust  around  the  Q or  R axis.  The  bits  disable  the  following 
jets  (see  "RCSMONIT"  routine): 


Bit 

Jet  Numbers 

Action  (rotation) 

Quad 

System 

Code 

8 

10 

+V 

2 

A 

2D 

11 

-P 

2 

A 

2F 

7 

9 

-V 

2 

B 

2U 

12 

+P 

2 

B 

23 

6 

13 

-U 

1 

A 

lU 

15 

+P 

1 

A 

IF 
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Channel  32  (Continued) 


Bit 

Jet  Numbers 

Action  (rotation) 

Quad 

System 

Code 

5 

14 

+U 

1 

B 

ID 

16 

-F 

1 

B 

IS 

4 

6 

-U 

3 

B 

3D 

7 

3 

B 

3F 

3 

1 

+V 

4 

B 

4U 

3 

-F 

4 

B 

4F 

2 

5 

+U 

3 

A 

3U 

8 

-F 

3 

A 

3S 

1 

2 

-V 

4 

A 

4D 

4 

+P 

4 

A 
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Channel  33 

Bit  Meaning  (channel  33  is  an  input  or  information  channel) 

15  1 - Computer  oscillator  operating}  reset  to  1 by  channel  load 

instruction. 

0 - Computer  oscillator  failure;  flip-flop  that  can  be  set': 
by  a power  transient  momentarily  interrupting  the  oscillator. 
Not  sensed  by  the  LUMINARY  program. 

14  Flip-flop  sensed  as  0 if  a "computer  warning"  indication  has 
been  produced  (e.g.  multiple  restarts,  counter  fail,  voltage 
fail  in  standby,  or  alarm  test  by  bit  10  of  channel  13) . 

Reset  to  1 by  channel  load  instruction.  Not  sensed  by 
LUMINARY  program. 

13  Flip-flop  input  sensed  as  0 if  a FIFA  fail  indication  generated 
by  the  FIFA  (accelerometer)  electronics.  Reset  to  1 by  channel 
load  instruction. 

12  Flip-flop  input  sensed  as  0 if  a telemetry  end  pulse  occurs 
too  soon  after  the  previous  pvilse  (faster  than  100  pps). 

Reset  to  1 by  channel  load  instruction. 

11  Flip-flop  input  sensed  as  0 if  an  input  bit  to  cell  000458 

(inlink)  is  rejected  due  to  an  excessive  bit  rate  (faster  than 
6400  pps).  Reset  to  1 by  channel  load  instruction. 

10  Not  examined  by  the  LUMINARY  program. 

9 1 - Landing  radar  high  scale. 

0 - Landing  radar  low  scale. 
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Channel  33  (Continued) 


Bit  Meaning  (channel  33  is  an  input  or  information  channel) 

8 1 - At  least  one  of  the  three  LR  velocity  trackers  not  locked 

on. 

0 - Landing  radar  velocity  data  good. 

7 1 - Landing  radar  not  in  position  2. 

0 - Landing  radar  in  position  2. 


6 1 - Landing  radar  not  in  position  1. 

0 - Landing  radar  in  position  1. 

5 1 - LR  range  tracker  or  rear  velocity-beam  tracker  (2)  not 

locked  on. 

0 - Landing  radar  range  (altitude)  data  good. 


4 

3 

2 


1 


1 - RR  range  tracker  and  frequency  tracker  not  both  locked  on. 

0 - RR  range  and  range  rate  data  good. 

1 - Rendezvous  radar  range  high  scale. 

0 - Rendezvous  radar  range  low  scale. 

1 - RR  power  off  or  RR  mode  switch  not  in  the  "LGC"  position. 

0 - RR  on  and  under  LGC  control;  can  be  positioned  via  cells 

538-548. 

spare 
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FIAGWRDO 


Bit  and  initial  value  (fresh  start) 


Mnemonic  Meaning  when  1 and  0 


15  (0)  NEED2FLG 

14  (0)  J3WITCH 
13  (0)  MIDFIAG 

12  (0)  MOONFMG 

11  (0)  P21FUG 

10  (0)  FSPASFLG 

9 (0)  P25FUG 

8 (0)  IMJSE 

7 (0)  RNDVZFLG 

6 (0)  RBNBSW 

5 (0)  LOKONSW 

4 (0)  NEEDLFLG 

3 (0)  ntEEFIAG 

2 (0)  RIOFLAG 


1 - E|*For  needles  driven  with  LGC  DAP  computed 
body  rates 

0 - Error  needles  driven  with  attitude  errors 

1 - Intagratlon  of  W-matrix 

0 - Intagration  of  state  vector 

1 - Integration  with  secondary  body  and  solar 
perturbations  (should  remain  zero  in  LUMINARY  ) 

0 - Integration  without  solar  perturbations 

1 - In  the  sphere  of  Influence  of  the  moon 

0 - In  the  sphere  of  influence  of  the  earth 

1 - Use  base  vectors  already  calculated 

0 - 1st  pass  — calculate  base  vectors 

1 - First  pass  through  reposition  routine 

0 - Not  first  pass  through  reposition  routine 

1 - P25  in  operation  (preferred  tracking  attitude) 

0 - P25  not  in  operation 

1 - IMU  in  use  (being  switched,  torqued  or  aligned) 

0 - IMU  not  in  use 

1 - P20  or  P22  has  been  enabled  , 

0 - P20  or  P22  has  not  been  enabled 

1 - RETARGET  in  navigation  base  coordinates 

0 - RETARGET  in  stable  member  coordinates 

1 - Radar  lock-on  desired 

0 - Radar  lock-on  not  desired 

1 - Display  total  attitude  error 

0 - DAP  following  error  displayed 

A temporary  flag  used  for  utility  purposes  In 
many  routines  by  P51  and  P52;  by  lunar  and  solar 
ephemerides . 

1 - RIO  outputs  data  to  altitude  and  altitude  rate 
meters  only 

0 - Output  of  1 condition  plus  forward  and  lateral 
velocity  on  cross  pointers 
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FLAGWRDO  (Continued) 


Bit  and  initial  value  (fresh  start) 

Mnemonic  Meaning  when  1 and  0 

1 (O)  OLDESFLG  1 - R29  (powered  flight  RR  designate  routine) 

gyro  nomryand  loop  requested 
0 - R29  (powered  flight  RR  designate  routine) 
gyro  command  loop  not  requested 


FLA.GWRD1 


Bit  and  Initial  value  (fresh  start) 

Mnemonic  Meanlnz  when  1 and  0 


15  (0)  NJETSFLG 

14  (0)  DIDFIAG 
13  (0)  ER4DFIAG 

12  (0)  RODFUG 

11  (O)  Spare 

10  (0)  R61FIAG 

9 (O)  spare 

8 (0)  VEHUPFLG 

7 (0)  UPDATFLG 

6 (0)  NOUPFLAG 

5 (0)  TRACKFLG 

4 (O)  spare 

3 (0)  SLOPESW 


1 - Two  jet  RCS  burn 

0 - Four  jet  RCS  burn 

1 - Inertial  data  Is  available 

0 - Perform  data  display  Initialization  functions 

1 - Compute  earth  radius  for  Fischer  ellipsoid; 
use  stored  moon  radius  (never  set  In  LUMINARY  ) 

0 - Compute  moon  radius;  use  stored  earth  radius 
(pad  radius)  (in  latitude-longitude  routines) 

1-  If  In  P66,  normal  operation  continues.  Restart 
clears  flag 

0 - If  In  P66,  reinitialization  Is  performed  and 
flag  Is  set 


1 - R61  (preferred  tracking  attitude  routine)  LEM 


to  be  operated 

0 - R65  (fine  preferred  tracking  attitude  routine 
LM  to  be  operated 


1 - Update  CSM  state  vector 

0 - Update  LM  state  vector 

1 - State  vector  updates  from  tracking  allowed 

0 - Updates  from  tracking  not  allowed 

1 - Neither  CSM  nor  LEM  state  vector  may  be  updated 

0 - Either  CSM  or  LEM  state  vector  may  be  updated 

1 - Tracking  allowed 

0 - Tracking  not  allowed 


1 - Iteration  with  bias  method 
0 - Iteration  with  Reg^lla  Falsi  method 


2 (0)  GUESSW 


1 — No  starting  value  for  iteration 
0 - Starting  value  for  iteration  exists 
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FLAGMRDl  (Continued) 


Bit  and  initial  value  (fresh  start) 

Mnemonic  Meaning  when  1 and  0 
1 (O)  Spare 


53 


FLAGWRD2 


Bit  and  Initial  value  (fresh  start) 


Mnemonic 

Meaning  when  1 and  0 

15 

(0) 

DRIFTFLG 

1 - T3RUPT  calls  gyro  compensation 

0 - T3RUPT  does  ho  gyro  compensation 

U 

(0) 

SRCHOPTN 

1 - Radar  in  automatic  search  option  (R24) 

0 - Radar  not  in  automatic  search  option 

13 

(0) 

ACMODFLG 

1 - Manual  acquisition  by  rendezvous  radar 

0 - Auto  acquisition  by  rendezvous  radar 

12 

(0) 

LOSCMFLG 

1 - Line-of -sight  is  being  computed  (R2l) 

0 - Line -of -sight  not  being  computed 

11 

(0) 

STEERSW 

1 - Powered  flight  steering  enabled  (sufficient 

thrust) 

0 - Powered  flight  steering  off  (insufficient 
thrust) , 


10  spare 


9 (O)  IMPULSW  1 - Minimum  impulse  biirn  (cut-off  time  specified) 

0 - Steering  burn  (no  cut-off  time  yet  available) 

8 (O)  XDELVFLG  1 - External  delta-V  VG  computation 

0 - Lambert  (aimpoint)  VG  computation 

7 (O)  ETPIFLAG  1 - Elevation  angle  supplied  for  P34»  B74 

0 - TPI  time  supplied  for  P34>  P74  to  compute 
elevation  angle 


(0) 

FINALFLG 

1 - Last  pass  through  rendezvous  program  computations 
0 - Interim  pass  through  rendezvous  program  compu- 
tations 

(0) 

AVFLAG 

1 - LEM  is  active  vehicle 

0 - GSM  is  active  vehicle 

(0) 

PFRATFLG 

1 - Preferred  attitude  computed 

0 - Preferred  attitude  not  computed 
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FLAGWRD2  (Continued) 


Bit  and  initial  value  (fresh  start) 


Mnemonic 

Meaning  when  1 and  0 

(0) 

CALCMAN3 

1 - No  final  roll 

0 - Final  roll  is  necessary 

(0) 

CALCMAN2 

1 - Perform  maneuver  starting 
0 - Bypass  starting  procedure 

procedure 

(0) 

NODOFLAG 

1 - V37  not  permitted  (do  not 
mode  change) 

0 - V37  permitted  (major  mode 

allow  a major 

change  enabled) 
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FLACiWRD3 

Bit  and  Initial  value  (fresh  start) 


Mnemonic 

Meaning  when  1 and  0 

15  (0) 

POOHFLAG 

1 - POO  Integration  10  minute  checks  are  running 

0 - POO  Integration  10  minute  checks  disabled 

14 

(0) 

GLOKFAIL 

1 - Ceilculated  middle  glmbal  angle  exceeds  60° 

0 - Checked  and  reset  In  IMU  performance  tests,  also 
resist  In  ROO. 

13 

REFSMFLG 

1 - Reference  to  stable  member  matrix  valid 
(protected  from  fresh  start) 

0 - Transformation  matrix  not  valid 

12 

(0) 

LUNAFLAG 

1 - Lunar  latitude -longitude  conversion 

0 - Earth  latitude -longitude  conversion 

11 

(1) 

N0R29FLG 

1 - R29  not  allowed 

0 - R29  allowed  (rendezvous  radar  designate, 
powered  flight) 

10 

(0) 

VFLAG 

1 - No  star  pair  found  during  R56. 

0 - Star  pair  found  during  R56: 

9 

(0) 

R04FLAG 

1 - Alarm  521  suppressed 

0 - Alarm  521  allowed 

9 

(0) 

READRFLG 

1 - Reading  rendezvous  radar  data  pursuant  to  R29 

0 - Not  reading  rendezvous  radar  data  pursuant  to  R29 

8 

(0) 

PRECIFLG 

1 - Normal  integration  in  POO 

0 - Engages  4-time  step  (POO)  logic  in  integration 

7 

(0) 

CULTFLAG 

1 - Star  occulted 

0 - Star  not  occulted 

6 

(0) 

ORBWFLAG 

1 - W matrix  valid  for  orbital  navigation  (never 
set  in  LUMINARY) 

0 - W matrix  invalid  for  orbital  navigation 

5 

(0) 

STATEFLG 

1 - Result  of  integration  stored  in  permanent  state 

0 - Result  of  Integration  not  to  be  stored  in  per- 
manent state 

4 

(0) 

INTYPFLG 

1 - Conic  integration 

0 - Encke  Integration  (precision) 
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FLAGmiD3  (Continued) 


Bit  and  Initial  value 


(fresh  start) 


3 

2 


1 


Mnemonic 

(0) 

VINTFLAG 

(0) 

D60R9FLG 

(0) 

DIMOFLAG 

Meaning  when  1 and  0 

1 - GSM  state  vector  integration 

0 - LM  state  vector  integration 

1 - W matrix  considered  9-dimensional  for  integration 

0 - W matrix  considered  6-dimensional  for  integration 

1 - W matrix  is  to  be  used 

0 - W matrix  is  not  to  be  used 
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FLAGWRDA 


Bit  and  Initial  value  (fresh  start) 


Mnemonic 
15  (0)  MRKIDFLG 

14  (0)  PRIODFLG 

13  (0)  NRMIDFLG 

12  (0)  PDSPFLAG 

11  (0)  MWAITFLG 

10  (0)  NWAITFLG 

9 (0)  MRKNVFLG 

8 (0)  NRMNVFLG 

7 (0)  PRONVFLG 


Meaning  when  1 and  0 

1 - Mittk  display  awaiting  astronaut  response 

0 - Mark  display  not  awaiting  astronaut  response 

1 - Priority  display  awaiting  astronaut  response 

0 - Priority  display  not  awaiting  astronaut  response 

1 - Normal  display  awaiting  astronaut  response 

0 - Normal  display  not  awaiting  astronaut  response 

1 - Make  normal  display  priority  (set  by  P20 
for  R60  display) 

0 - Do  not  make  normal  display  priority 

1 - Higher  priority  display  operating  when  mark 
display  initiated;  it's  asleep  and  waiting 

0 - Mark  display  not  asleep  because  it's'  waiting 
for  higher  priority  display  to  be  completed 

1 - Higher  priority  display  operating  when  normal 
display  initiated 

0 - If  normal  display  is  asleep,  it's  not  because 
another  display  was  operating  when  it  started 

1 _ Mark  display  awaiting  key  release 

0 - Mark  display  not  awaiting  key  release 

1 - Normal  display  awaiting  key  release 

0 - Normal  display  not  awaiting  key  release 

1 - Priority  display  awaiting  key  release 

0 - Priority  display  not  awaiting  key  release 


6 (0)  PINBRFLG 


1 - Astronaut  has  interferred  with  existing  display 
0 - Astronaut  has  not  interferred  with  display 


5 (0)  MRUPTFLG 

4 (0)  NRUPTFLG 


1 - Mark  display  interrupted  by  priority  display 

0 - Mark  display  not  interrupted  by  priority  display 

1 - Normal  display  interrupted 

0 - Normal  display  not  interrupted 


FLAGWRD4  (Continued) 


Bit  and  initial  value  (fresh  start) 


Mnemonic 

Meanine  when  1 and  0 

(0) 

MKOVFLAG 

1 - Mark  display  interrupting  normal 

0 - Priority  display  interrupting  mark  or  normal 

(0) 

spare 

(0) 

XDSPFLAG 

1 _ Mark  (extended  verb)  display  not  to  be 
interrupted 

0 - Mark  display  may  be  interrupted 

FLAGWRD5 

Bit  and  initial  value  (fresh  start) 


Mnemonic 

Meaning  when  1 and  0 

15 

(0) 

DSKYFLAG 

1 - Displays  sent  to  DSKY 

0 - No  displays  to  DSKY 

14 

(0) 

spare 

13 

(0) 

SNUFFER 

1 - U,  V jets  disabled  during  DPS  burns  (V65) 

0 - U,  V jets  enabled  during  DPS  burns  (V75) 

12 

(0) 

NOTHROTL 

1 - Inhibit  full  throttle 

0 - Permit  fiill  throttle 

11 

(0) 

R77FLAG 

1 - R77  is  operating,  suppress  all  radar  alarms  and 
tracker  fails 

0 - R77  is  not  operating 

10 

(0) 

RNGSCFLG 

1 - Scale  change  has  occurred  during  RR  reading 

0 - Scale  was  the  same  before  the  reading  and  after 

9 

(0) 

DMENFLG 

1 - Measurement  incorporation  using  9x9  W-matrix 

0 - Measurement  incorporation  using  6x6  W-matrix 

8 

(0) 

ZQOMFUG 

1 - P63  throttle-up  has  occurred 

0 - P63  throttle-up  has  not  occurred 

7 

(0) 

ENGONFLG 

1 - Engine  turned  on  (commanded  on) 

0 - Engine  turned  off  (APS  or  DPS) 

6 

(0) 

3AXISFLG 

1 - Maneuver  specified  by  three  axes 

0 - Maneuver  specified  by  one  axis;  R60  calls 
"VECPOINT" 

5 (0) 

AORBSFLG 

1 - Jets  7,15>8,andl6  used  for  P-axis  control 

0 - Jets  4,12,3,  and  11  used  for  P-axis  control 

- 4 

(0) 

NORRMON 

1 - Bypass  RR  gimbal  monitor 

0 - Perform  RR  gimbal  monitor 

3 

(0) 

SOLNSW 

1 - Lambert  does  not  converge;  Time-radius  routine 

cannot  solve  because  of  near-circular  orbit 
0 - Lambert  or  Time-radius  problem  soluble 
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FLAGWRD5  (Continued) 


Bit  and  initial  value  (fresh  start) 


Mnemonic 

Meaning  when  1 and  0 

(0) 

MGLVFLAG 

1 - Local  vertical  coordinates  computed 

0 - Middle  gimbal  angle  computed 

(0) 

RENDWFLG 

1 - W-matrix  valid  for  rendezvous  navigation 

0 - W-matrix  not  valid  for  rendezvous  navigation 
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FUGWRD6 


Bit  and  Initial  value  (fresh  start) 

tfaemonlc  Meaning  when  1 and  0 

15  (O)  332. IFl  1 - EELVEETl  exceeds  the  maximum  allowable 

0 - DELVEETl  within  maximum  bound 

14  (O)  332. 1F2  1 - First  pass  of  C3I  Iteration 

0 - Reiteration 


13  (0)  332.1F3A  See  TRGX  section 

12  (O)  S32.1F3B  See  TRGX  section. 

11  (O)  spare 

10  (O)  GMBDRVSW  1 - Initial  positioning  of  DPS  pitch  or  roll  glmbal 

complete. 

0 - Initial  positioning  of  DPS  pitch  or  roll  gimbal 
9 (0)  spare  coi”Pl^e- 

8 (O)  MUNFIAG  1 - Lunar  Landing  Average-g  navigation ( PI  2 , 63  , 64, 

P66,  67,  70  and  71 ) 

0 - Orbital  Average-g  navigation  (P40,  41 , 42  and  47) 

7 (O)  spare 

6 (O)  REDFLAG  1 - Landing  site  redesignation  permitted 

0 - Landing  site  redesignation  not  permitted 

5 (O)  spare 

4 (O)  spare 

3 (0)  NTARGFLG  1 - Astronaut  did  overwrite  delta  (See  "S34/35.5") 

0 - Astronaut  did  not  overwrite  delta 


2 (0)  ADXFUG  1 - Providing  IDLEFUG  Is  not  set,  SERVICER  will 

exercise  DVMON  on  its  next  pass 

0 - SERVICER  will  skip  DVMON  on  its  next  pass,  even 
if  the  IDLEFLAG  Is  not  set.  It  will  then  set 
AUXFIAG 
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FLAGMRD6  (Continued) 


Bit  and  initial  value  (fresh  start) 


Mnemonic 


Meaning  when  1 and  0 


1 (O)  ATTFLAG  1 - LM  attitude  exists  in  moon-fixed  coordinates 

0 - No  LM  attitude  available  in  moon-fixed 
coordinates 
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FLAGWRD7 

Bit  and  initial  value  (fresh  start) 


Mnemonic 

Meanlne  when  1 and  0 

15 

(0) 

ITSWICH 

1 - Test  Lambert  answer  against  limits 

0 - Accept  next  Lambert  TPI  search  solution 

14 

(0) 

MANUFLAG 

1 - Attitude  maneuver  during  RR  search  (not  set  in 

0 - No  attitude  maneuver  during  RR  search  Luminary) 

13 

(0) 

IGHFLAG 

1 - Ignition  time  has  arrived 

0 - Ignition  time  has  not  yet  arrived 

12 

(0) 

ASTNFLAG 

1 - Astronaut  has  okayed  ignition 

0 - Astronaut  has  not  okayed  ignition 

11 

(0) 

SWANDISP 

1 - Landing  analog  displays  enabled 

0 - Landing  analog  displays  suppressed 

10 

(0) 

NORMSW 

1 - Unit  normal  input  to  Lambert 

0 - Lambert  computes  its  own  unit  normal 

9 

(0) 

RVSW 

1 - Do  not  compute  final  state  vector  in  Time- 
Theta 

0 - Compute  final  state  vector  in  Time -Theta 

8 

(0) 

V67FLAG 

1 - Astronaut  changing  W-rmatrix  Initialization 
values 

0 - Astronaut  not  changing  values 

7 

(1) 

IDLEFLAG 

1 - Disable  Delta-V  monitor 

0 - Enable  Delta-V  monitor 

6 

(0) 

V37FLAG 

1 - Servicer  running 

0 - Servicer  not  running 

5 

(0) 

AVEGFLAG 

1 - Average -G  desired 

0 - Average -G  not  desired 

4 

(0) 

UPLOCICFL 

1 - K,  K-bar,  K fail 

0 - No  KKK  fail  since  last  error  reset 

3 

(0) 

VERIFLAG 

Inverted  whenever  P27  is  ended  with  a verb  33 

2 

(0) 

V82EMFLG 

1 - Moon  vicinity 

0 - Earth  vicinity 
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FLAGWRD7  (Continued) 


Bit  and  initial  value  (fresh  start) 

Mnemonic  Meaning  when  1 and  0 

1 (O)  TFFSW  1 - Calculate  time  to  perigee 

0 - Calculate  IFF 
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FLAGWRDQ 


Bit  and  initial  value  (freah  start) 


Mnemonic 

Meaning  when  1 and  0 

15 

(0) 

RPQFLAG 

1 - Position  vector  of  secondary  body  not 
calculated 

0 - Position  vector  of  secondary  body  calculated 

14 

(0) 

spare 

13 

(0) 

NBWXFLG 

1 - First  pass  through  integration 

0 - Succeeding  iteration  of  integration 

12 

CMOONFLG 

1 - Permanent  GSM  state  in  lunar  sphere  of  influence 

0 - Permanent  GSM  state  in  earth's  sphere  (protected 
from  fresh  start) 

11 

LMOONFLG 

1 - Permanent  LM  state  in  lunar  sphere  of  influence 

0 - Permanent  LM  state  in  earth' s sphere  (protected 
from  fresh  start) 

10 

(0) 

FLUNDISP 

1 - Gurrent  guidance  displays  inhibited 

0 - Gurrent  guidance  displays  permitted 

9 

(0) 

spare 

. 

8 

SURFFLAG 

1 - LM  on  limar  surface 

0 - LM  not  on  lunar  surface  (protected  from  fresh 
start) 

7 

(0) 

INFINFLG 

1 - Glosure  through  infinity  required  in  conic 
solution 

0 - Glosure  through  infinity  not  required 

6 

(0) 

ORDERSW 

1 - Iterator  uses  second  order  minimum  mode  (not  set  in 
0 - Iterator  uses  first  order  standard  mode  Luminary) 

5 

(0) 

APSESW 

1 - Orbit  does  not  intersect  RDESIRED  (Time-Radius) 

0 - Orbit  does  Intersect  REDESIRED 

4 

(0) 

COGAFLAG 

1 - No  conic  solution;  close  to  rectilinear 

0 - Orbit  is  not  too  close  to  rectilinear 
for  solution 
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FLAGWRD8  (Continued) 


Bit  and  initial  value  (freah  start) 


Mnemonic 

Meaning  when  1 and  0 

(0) 

spare 

(0) 

INITALGN 

1 - Initial  pass  through  P57 

0 - Second  pass  through  P57 

(0) 

360SW 

1 - Transfer  angle  near  360  degrees 

0 - Transfer  angle  not  near  360  degrees 
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FUGHRD9 


Bit  and  Initial  value  (fresh  start) 

Mnemonic  Meaning  when  1 and  0 
15  (O)  spare 

14  (O)  FLVR  1 - Vertical  rise  (ascent  guidance) 

0 - Non-vertical  rise 

13  (O)  P7071FLG  1 - P70  or  P71  using  ascent  guidance 

0 - PI 2 using  ascent  guidance 


12 

(0) 

FLPC 

1 - No  position  control  (ascent  guidance) 

0 - Position  control 

11 

(0) 

FLPI 

1 _ Pre-ignition  phase  (ascent  guidance) 

0 - Regular  guidance 

10 

(0) 

FLRCS 

1 - RCS  injection  mode  (ascent  guidance) 

0 - Main  engine  mode 

9 

(0) 

lETABORT 

1 - Abort  programs  are  enabled 

0 - Abort  programs  are  not  enabled 

8 

(0) 

FLAP 

1 - APS  continued  abort  after  DPS  staging  (ascent 
guidance ) 

0 - APS  abort  is  not  a continuation 

7 

(0) 

ABTTGFLG 

1 - Abort  targeting  to  use  >^2*^2 

0 - Abort  targeting  to  use  Ji^K^ 

6 

(0) 

ROTPUG 

1 - P70  and  P71  will  force  vehicle  rotation  in 
the  preferred  direction 

0 - P70  and  P71  will  not  force  vehicle  rotation 
in  the  preferred  direction 

5 

(0) 

QUITFLAG 

1 - Discontinue  orbital  integration 

0 - Continue  integration 

4 

(0) 

spare 

3 

(0) 

MIDIFLAG 

1 - Integrate  to  TDEC 

0 - Integrate  to  TIMENOW 

2 

(0) 

MIDAVFLG 

1 - Integration  entered  from  one  of  the  drifting 
flight  to  powered  flight  handover  routines 

0 - Integration  not  entered  as  above 

1 

(0) 

AVEMIDSW 

1 - AVETOMID  calling  for  W-matrljc  integration; 

do  not  write  over  HN,  VN,  PIPTIME 
0 - AVETOMID  without  WHDW.trix  integration;  allow 
set  up  of  RN,  VN,  PIPTIME 


FLQWRDIO 


Bit  and  initial  value  (fresh  start) 

Mnemonic 

Meaning  when  1 and  0 

15 

(0) 

spare 

U 

(0) 

INTFLAG 

1 - Integration  in  progress 

0 - Integration  not  in  progress 

13 

APSFLAG 

1 - Ascent  stage  (protected  from 

0 - Descent  stage  fresh  start) 

12 

(0) 

spare 

11 

(0) 

spaxe 

10 

(0) 

spare 

9 

(0) 

spare 

8 

(0) 

spare 

7 

(0) 

REINTFLG 

1 - Integration  routine  to  be  restarted 

0 - Integration  routine  not  to  be  restarted 

6 

(0) 

spare 

5 

(0) 

spare 

4 

(0) 

spare 

3 

(0) 

spare 

2 

(0) 

spare 

1 

(0) 

spare 
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FLGWRDll 


Bit  and  initial  value  (fresh  staxt) 


Mnemonic 

Meaning  when  1 and  0 

15 

(1) 

LRBYPASS 

1 - Bypass  all  landing  radar  updates 

0 - Do  not  bypass 

14 

(0) 

spare 

13 

(0) 

spare 

12 

(0) 

VXINH 

1 - If  Z velocity  data  unreasonable,  bypass 

X velocity  update  on  next  pass 

0 - Update  X-axis  velocity 

11 

(0) 

PSTHIGAT 

1 - Past  higate 

0 - Prehigate 

10 

(0) 

NOLRRKAD 

1 - Landing  radar  reposition;  bypass  update 

0 - Landing  radar  not  repositioning 

9 

(0) 

XORFLG 

1 - Below  limit  inhibit  X-.axls  override 

0 - Above  limit  do  not  inhibit 

8 

(0) 

LRINH 

1 - Landing  radar  updates  permitted  by  astronaut 

0 - Landing  radar  updates  inhibited  by  astronaut 

7 

(0) 

VELDATA 

1 - Landing  radar  velocity  measurement  made 

0 - Landing  radar  velocity  measurement  not  made 

6 

(0) 

LP0S2FLG 

1 - Position  2 transformation  for  LR  data  being  used 
0 - Position  1 assumed. 

5 

(0) 

READVEL 

1 - Ok  to  read  landing  radar  velocity  data 

0 - Do  not  read  landing  radar  velocity  data 

4 

(0) 

RNGEDATA 

1 - Landing  radar  altitude  measurement  made 

0 - Landing  radar  altitude  measurement  not  made 

3 

(0) 

N0511FLG 

1 - Do  not  test  LR  position  in  R12, 

0 - OK  to  test  LR  position. 

2 

(0) 

VFLSHFLG 

1 - Landing  radar  velocity  fail  lamp  should  be 

flashing 

0 - Landing  radar  velocity  fail  lamp  should  not 
be  flashing 
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FLGWRDll  (Continued) 


Bit  and  Initial  value  (fresh  start) 

Mnemonic  Meaning  when  1 and  0 

1 (O)  HFLSHFLG  1 - Landing  radar  altitude  fail  lamp  should  be 

flashing 

0 - Landing  radar  altitude  fail  lamp  should  not 
be  flashing 
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DAFB03LS 


Bit 

and  initial  value  (fresh  start) 

Mnemonic 

Meaning  when  1 and  0 

15 

(0) 

PULSES 

1 - Minimum  impulse  command  mode 

0 - Not  minimum  impulse 

U 

(1) 

USEQRJTS 

1 - Use  of  gimbal  not  allowed 

0 - Gimbal  may  be  used 

13 

(0) 

C3MD0CKD 

1 - GSM  attached  to  LM 

0 - GSM  not  attached 

12 

(0) 

OURRGBIT 

1 - Still  in  rate  command  mode 

0 - Not  in  rate  command  mode 

11 

(0) 

ACC40R2X 

1 - 4- jet  P-axis  translation 

0 - 2- jet  P-axis  translation 

10 

(1) 

AORBTRAN 

1 - X translation  B system 

0 - X translation  A system 

9 

(0) 

XOVINHIB 

1 - LPD  phase;  X-axis  override  disabled 

0 - Not  in  Landing  Point  Designation  Phase 

8 

(1) 

DRIFTBIT 

1 - Assume  that  offset  acceleration  is  zero 

0 - Offset  acceleration  likely 

7 

(1) 

RHCSCALE 

1 - Normal  RHG  scaling 

0 - Fine  KIG  scaling 

6 

(0) 

ULLAGER 

1 - Internal  ullage  request 

0 - No  program  ullage  request 

5 

(1) 

DBSLECT2 

4 

(0) 

D3SELECT 

N46  Digit 
"D"  Load 

0 

1 

2 

3 

DAP 

Deadband  BIT  5 BIT  4 

+0.3°  0 0 

+1.0°  0 1 

+5.0°  1 0 

+5.0°  1 1 

3 

(0) 

ACCSOKAY 

1 - Gomputed  accelerations  probably  correct 

0 - Computed  accelerations  probably  incorrect 

2 

1 

(1) 

(0) 

AUrRATE2 

AUTRATEl 

Used  together  to  determine  index  (RATEINDX) 
which  is  used  to  select  attitude  maneuver  rate 
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DAFBOOLS  ( Continued 


Mnemonic  Meaning  when  1 and  0 

032  degrees/second 
OI2  0.5  degrees/second 
IO2  2.0  degrees/second 
II2  10.0  degrees/second 
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RADMODES 

Bit  and  initial  value  (fresh  start 


Mnemonic  Meaning  when  1 and  0 

15  (O)  CDESFLAG  1 - LGC  sends  continuous  designate  commands  to  HR 

0 UjC  checks  for  lock-on  when  designating 

14  (O)  REMODFLG  1 - Remode  of  RR  antenna  is  required 

0 - No  remode  of  RR  antenna 

13  (O)  RCDUOFLG  1 - RR  CDU's  are  being  zeroed 

0 - RR  CDU's  are  not  being  zeroed 

12  (O)  ANTENFLG  1 - RR  antenna  is  in  mode  2 

0 - RR  antenna  is  in  mode  1 


11  (O)  REPOSMON  1 - RR  antenna  reposition  taking  place 

0 - No  RR  antenna  reposition  taking  place 

10  (O)  DESIGFLG  1 - RR  antenna  designation  taking  place 

0 - No  RR  antenna  designation  taking  place 

9 (O)  ALTSCALE  1 - LR  altitude  reading  on  high  scale 

0 - LR  altitude  reading  on  low  scale 


8 (O)  LRVELFLG  1 - LR  velocity  data  fail 

0 - LR  velocity  data  good 


7 (l)  RCDUFAIL  1 - RR  CDU  fail  has  not  occurred 

0 - RR  CDU  fail  has  occurred 


6 ^ LRPOSFLG  1 - LR  antenna  command  to  position  #2 

0 - LR  antenna  in  position  #1 
« - State  of  B6  CH33 

5 (O)  LRALTFLG  1 - LR  altitude  data  fail 

0 - LR  altitude  data  good 

4 (0)  RRDATAFL  1 - RR  data  fail 

0 - RR  data  good 

3 (O)  RRRSFLAG  1 - RR  range  data  on  high  scale 

0 - RR  range  data  on  low  scale 

2 (l)  AUTOMODE  1 - RR  not  in  automatic  mode 

0 - RR  is  in  automatic  mode 


TURNONFL  1 - RR  turn-on  sequence  in  progress 

0 - No  RR  turn-on  sequence  in  progress 
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List  of  References  to  Flaerwords  and  Channels 


The  following  is  a listing  of  some  of  the  routines  in  which  the 
majority  of  the  discrete  bits  of  information  are  set,  reset,  and 
tested.  Input  channels  can  only  be  tested  (though  some  flip-flops 
are  automatically  reset  when  tested,  they  will  be  set  again  imme- 
diately if  the  relevant  hardware  signal  is  still  present).  Output 
channels  are  usually  just  set  and  reset,  but  they  can  also  be  tested 
to  assure  that  they  are  configured  as  required.  Flagwords  are  set, 
reset,  and  tested  by  the  prograims.  References  refer  to  this  document, 
not  to  the  listing. 

This  list  tries  to  include  all  references  to  each  bit,  but  since 
flagwords  and  channels  can  be  addressed  in  many  different  ways  in 
the  LGC  program,  there  is  no  way  to  assure  that  all  references  are 
included  here,  (in  some  cases  references  are  deliberately  left  out 
because  the  bit  does  not  affect  the  material  presented  in  this  docu- 
ment . ) 


Channel  5 


Bit  Routines 

8 1 - WRITER 

0 - DOFSTRTl  WRITER  MOREIDLE 
test  - TRYGTS 

7 1 - WRITER 

0 - DOFSTRTl  WRITER  MOREIDLE 
test  - TRYGTS 

6 1 - WRITEV 

0 - DOFSTRTl  WRITEV  MOREIDLE 
test  - TRYGTS 

5 1 - WRITEV 

0 - DOFSTRTl  WRITEV  MOREIDLE 
test  - TRYGTS 

4 1 - WRITER 

0 - DOFSTRTl  WRITER  MOREIDLE 
test  - TRYGTS 

3 1 - WRITER 

0 - DOFSTRTl  WRITER  MOREIDLE 
test  - TRYGTS 
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Bit 


Routines 


2 1 - WRITEV 

0  - DOFSTRTl  WRITEV  MOREIDLE 
test  - TRYGTS 

1 1 - WRITEV 

0 - DOFSTRTl  WRITEV  MOREIDLE 
test  - TRYGTS 

Channel  6 

8 1 - WRITER 

0 - WRITE?  MOREIDLE  DOFSTRTl 
test 

7 1 - WRITE? 

0 - DOFSTRTl  MOREIDLE  WRITE? 
test 

6 1 - WRITE? 

0 - DOFSTRTl  MOREIDLE  WRITE? 
test 

5 1 - WRITE? 

0 - DOFSTRTl  MOREIDLE  WRITE? 
test 

4 1 - WRITE? 

0 - DOFSTRTl  MOREIDLE  WRITE? 
test 

3 1 - WRITE? 

0 - DOFSTRTl  MOREIDLE  WRITE? 
test 

2 1 - WRITE? 

0 - DOFSTRTl  MOREIDLE  WRITE? 
test 

1 1 - WRITE? 

0 - DOFSTRTl  MOREIDLE  WRITE? 
test 

Channel  11 

14  1 - DOFSTART  IMDMON  ENGINOF3  GOFROG 

0 - IGNITION  ABRTJASK 


Bit  Routines 


IGNITION  GOPROG  ABRTJASK 
IMUMON  ENGINOF3  DOFSTART 


10  1 - ERROR 

0 - STARTSB2  DOFSTART 


9 1 - READACCS 

0 - STARTSB2  AVGEND  DOFSTART 


7 1 - V37  VBTSTLTS  DSPALARM  ALMCYCLE  CHARALRM  UPETIROUT  UPEND70 

P20LEMB7  ALM/END  V73UPDAT  UPEND73  ABORTALM 

0 - STARTSB2  ERROR  TSTLTS3  DOFSTART 

6 1 - FUSHSUB  TESTNN  VBTSTLTS  REQDATZ  REQMM 

0 - NV50DSP  STARTSB2  TSTLTS3  BLANKDSP  ENTER  GOLOADLV  VBRESEQ  DOFSTART 

5 1 - CHARIN  NV50DSP  HONDO  VBTSTLTS 

0 - STARTSB2  WITCHONE  RELDSP  RELDSPl  DOFSTART 

4 1 - IMIDMON  VBTSTLTS 

0 - IMUMON  STARTSB2  TSTLTS3  DOFSTART 

3 1 - UPRUPT  VBTSTLTS 

0 - STARTSB2  TSTLTS3  V73UPDAT  UP0UT4  ERROR  VBRELDSP  DOFSTART 


ADVAN 

STARTSB2  DUMMY JB2  DOFSTART 


1 1 - SETISSW  VBTSTLTS 

0 - SETISSW  TSTLTS3  DOFSTART 
test  - ENDIMU 


Channel  12 


15  1 - ENDTNON 

0 - STARTSB2  UNZ2  CAGESUB  DOFSTRTl 
test  - IMUMON 

14  1 - R23LEM  LRS24.1  R04X  DODES  R29D0DES 

0 - R21LEM  TRMTRACK  RRGIMON  STDESIG  R04END  R29  ENDRRD29  P63LM 
DOFSTRTl 
test  - R22LEM 

13  1 - LRP0S2 

0 - STARTSB2  LRPOSCAN  DOFSTRTl 
test  - 


I 
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Bit  Routines 


12  1 - ACDT+C12  TRIMGIMB 

0 - ACDT+C12  TRIMGIMB  SUPER JOB  MOREIDLE  DOFSTRT1  NEGUSUM 
test  - SPSCONT 

11_g  same  as  bit  12,  bit  10  reset  to  0 
by  PITCHOFF 
8 1 - LANDISP 

0 - STARTSB2  IMDMON  DISPRSET  DOFSTRTI 

6 1 - NEEDIER  GOARS  IMUATTCK  GOPROG  CA+ECE  DOFSTRTI 

0 - NEEDIER  IMUMON  CAGESDB  SETCOARS  IMDZERO  DOFSTRTI 
test  - NEEDIER 

5 1 - IMUZERO  ISSZERO  CAGESDB 

0 - IMDMON  DNZ2  IMUZER02  IMDFINE  DOFSTRTI 
test  - IMUATTCK 


4 1 - SETCOARS  CAGESDB  GOPROG  DOFSTRTI 

0 - IMUMON  DNZ2  IMUZERO  IMDFINE  DOFSTRTI 
test  - TNCMTEST  GIOCKMON  IFAIIOK  IMUATTCK  SETCOARS  8192AUG 
TSTITS3 


2 


1 - SETRRECR  INTIZE 

0 - STARTSB2  RRADTCHK  RRGIMON  DORREPOS  TRMTRACK  STDESIG  RESET 22 
IMUMON  R24END  R24IEM3  RRDESDDN  RRDESEND  POOH  RR1AX2  RRDESNB 
R29DPAS2  DOFSTRTI  PR0G20A  R21IEM9  DISPRSET  P12IM 
test  - SETRRECR  SPEEDRUN 


1 - RRZEROSB  NORRGMON 
0 - STARTSB2  RRZEROSB  DOFSTRTI 

Channel  13 


15 

1 

- JTIST  T6J0BCHK 

0 

- 

STARTSB1  DOFSTRTI 

14 

1 

- none 

0 

- DOFSTRTI 

13 

1 

- none 

0 

- DOFSTRTI 

12 

1 

- REDESMON 

STARTP64  STARTSB2 

0 

- DOFSTRTI 
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Bit 


Routines 


11  1 - P06 

0 - POSTMD  STARTSB2  DOFSTRTl 
10  1 - VBTSTLTS 

0 - ERROR  TSTLTS3  STARTSB2  DOFSTRTl 

9 1 - ZEROENBL 

0 - STARTSB2  DOFSTRTl 

8 1 - ZEROENBL 

0 - STARTSB2  DOFSTRTl 

7 1 - DODOWNTM 

0 - DOFSTRTl  WOZERO 
test  - DODOWNTM 
6-5  not  set  in  LDMINARY 

4 1 - RADSTART 

0 - INITREAD  STARTSB2  DOFSTRTl 
test  - G13STALL 
3 1 - RADSTART 

0 - INITREAD  START SB2  DOFSTRTl 
test  - RADAREAD 

2 1 - RADSTART 

0 - INITREAD  ST ARTSB2  DOFSTRTl 
test  - RADAREAD 

1 1 - RADSTART 

0 - INITREAD  STARTSB2  DOFSTRTl 
test  - RADAREAD  RENDRAD 

Channel  14 

15  1 - C0ARS2  ATTCK2  NEEDLES 

0 - DOFSTRTl  IMUMON  START SB 2 

14  1 - C0ARS2  ATTCK2  . . NEEDLES 

0 - DOFSTRTl  IMUMON  STARTSB2 

13  1 - C0ARS2  ATTCK2  - NEEDLES 

0 - DOFSTRTl  IMUMON  STARTSB2 

12  1 - RROUT  SPEEDRUN 

0 - poFSTRTI  IMUMON  STARTSB2 
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Bit  Routines 

11  1 - RROUT  SPEEDRUN 

0 - IMUMON  STARTSB2  DOFSTRTl 

10  1 - GYROEXIT 

0 - STRTGIRO  IMUMON  SETCOARS  STARTSB2  DOFSTRTl 
9 1 - STRTGYR2 

0 - STRTGIRO  IMUMON  STARTSB2  DOFSTRTl 
8 1 - STRTGYR2 

0 - STRTGIRO  IMUMON  STARTSB2  DOFSTRTl 
7 1 - STRTGIR2 

0 - STRTGIRO  IMUMON  STARTSB2  DOFSTRTl 

6 1 - IMUPULSE 

0 - IMUMON  DOFSTRTl 

4 1 - GOPROG  DOIT  P40Z00M  THROTUP  ENGIN0F3 

0 - STARTSB2  DOFSTRTl 

3 1 - ALTROUTl  ALT0UT1 

0 - STARTSB2  DOFSTRTl 

2 1 - ALTROUTl 

0 - ALTOUTl  STARTSB2  DOFSTRTl 

Channel  15 

Tested  in  routines  KEIRUPTl  and  LIGHTSET 


Channel  16 

7 DESCBITS  SCMEKEY  mARKRUPT 

6 S»1EKEY  MARKRUPT 

5 LIGHTSET  MARKRUPT 

4 MARKRUPT 

3 MARKRUPT 


Channel  30 

Bit  Routines  in  which  bit  is  tested 
Bits  15-11  are  tested  only  in  IMUMON 
10  P40AUT0  REDOMANC  R61+L02  FINDCDUW  CHEKBITS 

9 IMUMON 

7 RRCDUCHK 

6 LANDISP 

5 P40AUT0 

4 R10,R11 

I 3 P66HZ 

1 R10,R11 

Channel  31 

Bit  Routines  in  which  bit  is  tested 
15  DETENTCK  CHEKSTIK 

14  P40AUT0  REDOMANC  NEWDELHI  IMUATTCK  FINDCDUW  R61+L02 
CHEKBITS 

13  TSNEXTP  TSNEXTS  IMUATTCK  DETENTCK  QRAXIS  CHEKBITS  LUNLAND 

I REDESMON 

12-9  CHKVISFZ 

8 RCS 

7 RCS 

6 TSNEXTS  PITFALL  REDESMON 

5 TSNEXTS  PITFALL  REDESMON 

4 TSNEXTP 

3 TSNEXTP 

2 TSNEXTS  PITFALL  REDESMON 

1 TSNEXTS  PITFALL  REDESMON 
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Channel  32 


Bit  Routines 

14  PROCEEDE 

9 DVMON 

8-1  RCSMONIT 

Channel  33 

15 
14 

13  C33TEST 

12  C33TEST 

11  C33TEST 

9 LRHEIGHT  RO4Z 

8 INITREAD  DGCHECK  SCALCHNG  R77CHECK 

7 LRP0S2  LRPOSCAN  P2CHK  MUNRETRN  LRPOSOUT 
6 DORSAMP  ASTNRET  MUNRETRN  RO4Z  pICHK  LRPOSOUT 
5 DGCHECK  INITREAD  SCALCHNG  R77CHECK 

4 DODES  INITREAD  DGCHECK  SCALCHNG  DATGDCHK  R29DPAS2  R61C+L01 
3 RENDRAD  LRS22.1  RO4Z 

2 RRAUTCHK  RO4I  R22LEM  P20LEMB7 


FLAGWRDO 


Bit 


Mnemonic 


Routine  s 


15  NEED2FLG  1 - RATEDISP 

0 - R60LEM  DAPATTER  TOTATTER  DOFSTRTl 
test  - ALTDSPLY 


14  JSWITCH  1 - ENDSTATE 

0 - INTGRATE  DOFSTRTl 

test  - NBRANCH  DIFEQf2  NEXTCOL  INTGRATE 

13  MIDFLAG  1 - TESTLOOP 

0 - TESTLOOP  DOFSTRTl 
test  - TIMESTEP  ACCOMP  DOW.. 


12  MOONFLAG  1 - P21C0NT  INTEGRV  ORIGCHNG  INTWAKEU  INITVEL2  INTINT  REV83 

P76  USEPIOS  ATTACHIT  EXGSUB  OTHINT 
0 - P21C0NT  INTEGRV  ORIGCHNG  INTWAKEU  INITVEL2  INTINT  REV83 
P76  ATTACHIT  DOFSTRTl  OTHINT 
test  - INTEGRV  INTEGRVS  RECTOUT  TIMESTEP  ORIGCHNG  ACCOMP 
OBLATE  ENDSTATE  KEPPREP  A-PCHK  INTWAKEU  P76 
DOW. . ATTACHIT  ORBCHGO 


11 


P21FLAG 


1 - P21VSAVE 
0 - GOPROG3  DOFSTRTl 
test  - PR0G21 


10  FSPASFLG  1 - R21LEM4 

0 - 60TIMES  DOFSTRTl 
test  - 60TIMES 


9 P25FUG  1 - PROG25 

0 - TRMTRACK  POOH  RESET22  P63LM  DOFSTRTl 
test  - TRMTRACK  CANV37  RESET22  P25LEM1  V37RET 

8 IMUSE  1 - IMUCHK  R02B0TH 

0 - TRMTRACK  IMUMON  CANV37  POOH  P06  ENDTEST1  DOFSTRTl 
RESET 22  S0MERR2 

test  - AGSVCALC  TNONTEST  ENDTNON  IMUMON 


7 RNDVZFLG  1 - PR0G20A 

0 - TRMTRACK  IMUMON  POOH  P06  RESET22  i P1 2LM  DOFSTRTl 
P63LM  PR0G25 

test  - CANV37  RESET22  RRCDUCHK  P20LEMC  P20LEMC1  trmTRAGK 
R22LEM  CALLDGCH  LUNDESCH  V37RET  CSMINT  RELINUS 


6 RRNBSW 


1 - RRDESNB 

0 - RRDESSM  DOFSTRTl  CSMINT 
test  - DODES 
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Bit  Mnemonic  Routines 


FLAGWRDO  ( Continued ) 


5 LOKONSW  1 - VBCOARK  R21LEM1 

0 - VBCOARK  DOFSTRT1  R21LEM  R21LEM8 
test  - DODES 

4 NEEDLFLG  1 - TOTATTER  R60LEM 
0 - DAPATTER  DOFSTRTI 
test  - ALTDSPLY 

3 FREEFLAG  1 - LSPOS  CHKSDATA  GVDETER 

0 - LSPOS  CHKSDATA  GVDETER  DOFSTRTI 
test  - P51C  R51E  SURFLINE  GVDETER 


2 R1  (FLAG  1 - Pi 2LM  ABRT JASK 
0 - DOFSTRTI 

test  - DISPRSET  SPEEDRUN  LANDISP 

1 OLDESFLG  1 - R29.L0S 

0 - R29  DOFSTRTI 
test  - R29.L0S 
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FLAGWRDI 


Bit 

Mnemonic 

Routines 

15 

NJETSFLG 

1 - DPDAT1 

0 - DPDAT1  D0FSTRT1 
test  - P41LM 

14 

DIDFLAG 

1 - LANDISP 

0 - GOPROG3  DISPRSET  D0FSTRT1 
test  - LANDISP 

13 

ERADFLAG 

1 - never  set 

0 - D0FSTRT1  P52LS  P57P0ST  P21VSAVE 
test  - LAT-LONG  LALOTORV 

12 

RODFLAG 

1 - STRTP66A 

0 - GOPROG3  D0FSTRT1  P66 
test  - LUNLAND 

10 

R61FLAG 

1 - R61LEM 

0 - R65LEM  D0FSTRT1 
test  - R61G+L06 

8 

VEHUPFLG 

1 - ORBCHGO  CSMVEC 

0 - LEM7EC  PR0G20  D0FSTRT1 

test  - UPPSV  LSR22.3  RANGEBQ  FAZC  FAZAB3 

7 

UPDATFLG 

1 - RESET22  PR0G20A  S34/35.5  P30  P32/P72C 

P33/P73B  P75  P74  P72  P73 

0 - TRMTRACK  SEUDOPOO  P30  CLUPDATE  D0FSTRT1 
test  - R22LEM 

6 

NOUPFLAG 

1 - UPDATOFF 

0 - CSMVEC  D0FSTRT1 

test  - R22LEM 

5 

TRACKFLG 

1 - RESET22  PR0G20A  PR0G25  P30  P72 

P73  P74  P75  P76 

0 - RNDREFDR  TRMTRACK  SEUDOPOO  D0FSTRT1 
test  - TRMTRACK  P20LEMC  P20LEMD1  R22LEM  P25LEM1 

P20LEMC1  RDRUSECK  P20LEMB  RELINUS  R61C+L02 

3 

SLOPESW 

1 - LAMBERT 

0 - ITERATOR  D0FSTRT1 
test  - ITERATOR  LAMBLOOP 

2 

GUESSW 

1 - INITVEL 

0 - INITVEL2  D0FSTRT1 
test  - LAMBERT 
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FUGWRD2 


Bit  Mnemonic  Routines 


15  DRIFTFLG  1 - P51B  CAL53A  UNZ2  AVGEND  GYCOARS  INITBY 
0 - RNDREFDR  PREREAD  GYCOARS  DOFSTRTl 
test  - SVCT3  NBDONLY  DNZ2 


14  SRCHOPTN  1 - R24LEM 

0 - P20LEMB3  PR0G20A  DOFSTRTl  TRMTRAGK 
test  - P20LEMB3  LRS24.1  DORROUT 

13  ACMODFLG  1 - P20LEMB1 

0 - P20LEMB3  PR0G20A  DOFSTRTl 
test  - P20LEMB3 

12  LOSCMFLG  1 - R21LEM10  BEGDES29  R29.L0S 

0 - RRDESDUN  R29.L0S  R21LEM1  R29DPAS2  PR0G20A  R24LEM 
R29  DOFSTRTl  R21LEM4  RRDESNB 
test  - BEGDES29  R29.LOS  DORROUT  LPS20.1 


11  STEERSW  1 - DVMOT 

0 - AVERAGEG  DOFSTRTl  VGAIN* 
test  - VGAIN^^  STEER? 


9 IMPULSW  1 - S40.132  VGAIN* 

0 - STEERING  S40.13  P42IGN  DOFSTRTl 
test  - P42IGN  STEERING 


8 XDELVFLG  1 - P30  ADVANCE 

0 - ' INITVEL7  DOFSTRTl 

test  - S40.1  UPDATEVG  S40.8 


7 ETPIFLAG  1 - P74 

0 - P74  DOFSTRTl 

test  - P34/P74C  INTLOOP  ELCALC 


6 FINALFLG  1 - N45PROC  P30 

0 - SELECTMU  DOFSTRTl 

test  - S34/35.5  P32/P72C  P33A73B  VN1645  N45PROC 
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FLAGWRD2  (Continued) 


Bit 


Mnemonic 


Routines 


5 AYFLAG  1 - P42STAGE;  S40.9  P34  P35  P32  P33 

0 - P74  P75  P72  P73  - DOFSTRTl 

test  - PRECSET,  > 

4 PFRATFLG  1 - 340.2,3 

0 - R51E  GYCOARS  REGCOARS  DOFSTRTl 
test  - PR0G52 

3 CALCMAN3  Not  really  functional:  set  in  KALCMAN3;  reset 
in  DOFSTRTl 


2 CALCMAN2 


1 


NODOFLAG 


1 - WCALC 

0 - NEWANGL  DOFSTRTl 
test  - NEWANGL 


1 - AGSVCALC  STATINTl  P06  P76 

0 - AGSVCALC  STATINTl  POOH  POSTAND  DOFSTRTl  POODOO  P76 
test  - V37 
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FLAGWRD3 


Bit  Mnemonic  Routines 

15  POOHFLAG  1 - STATINT1 

0 - CANV37  DOFSTRT1 
test  - TESTLOOP 


14  GLOKFAIL  1 - CALCGA 

0 - REDO  CANV37  DOFSTRT1 
test  - REDO 

13  REFSMFLG  1 - P51C  GICOARS  REGCOARS  SDRFDISP 
0 - RNDREFDR  GYCQARS  GVDETER 

test  - AGSINIT  R02B0TH  VN1645  PACKOPTN  DSPOPTN  R59 


12  LUNAFLAG  1 - LANDJUNK  P52LS  P57POST  P21VSAVE 
0 - DOFSTRTl  P21VSAVE 
test  - LAT-LONG  LALOTORV 

11  N0R29FLG  1 - AVCEEND  DOFSTRTl 
0 - CMPCMJENT 

test  - COPYCYCl  STARTSB2  R29RDJ0B  RDRUSECK 


10  VFLAG 


9 R04FLAG 


READRFLG 


8 PRECIFLG 


1 - R56  PIC3 

0 - PIC 3 DOFSTRTl 
test  - PIC3  PICEND 

1 - R04  R61C+Ij01 

0 - R04END  CAN737  PR0G20A  DOFSTRTl  R61C+L01  STARTSB2 
test  - R04Z  RADAREAD  RESAMPLE  R77 

1 - R29DPAS2 

0 - ENDR29D  STARTSB2  DOFSTRTl 
test  - R29READ  COPYCYCl 

1 - STATINTl  CSMPREC  INTEGRVS  LEMPREC 
0 - STATINTl  INTEXIT  DOFSTRTl 

test  - TESTLOOP 


7 CULTFLAG  1 - OCCULT 

0 - OCCULT  DOFSTRTl 
test  - PIC3 

6 ORBWFLAG  1 — never  set 

0 - WMATEND  INTWAKEU  DOFSTRTl 
test  - AVETCMID 


5 STATEFLG  1 - SETIFLGS  WMATEND  LSR22.3  LSR22.4  . 

0 - ENDINT  TESTLOOP  DOFSTRTl  POODOO  INTEXIT 
test  - A-PCHK 
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FLAGWRD3  (Continued) 


Bit  Mnemonic  Routines 


4 INTYPFLG  1 - OTHCONIC  CSMCO^IC  LEMCONIC  INTINT  EXGSUB  REV83 
0 - MIDT0AV2  SETIFLGS  CSMPREC  LEMPREC  MIDT0AV2 
P76  LSR22,3  LSR22.4  INITVEL2  INTINT  ORBCHGO 
DOFSTRTl  GETRVN  PR0G21 
test  - ALOADED 


3 VINTFLAG  1 - STATINTl  CSMPREC  CSMCONIC  AVETOMID  UPPSV  LSR22.3 

LSR22.4  ORBCHGO  PR0G21 

0 - STATINTl  LEMPREC  LEMCONIC  AVETOMID  MIDT0AV2 

UPPSV  LSR22.3  LSR22.4  DOFSTRTl  ORBCHGO  PR0G21 
test  - INTEGRV  ENDSTATE  A-PCHK 

2 D60R9FLG  1 - STATINTl  AVETCMID  UPPSV  LSR22.3  ORBCHGO 

0 - ORBCHGO  SETIFLGS  LSR22.4  DOFSTRTl 

test  - ENDSTATE 


1 DIMOFLAG  1 - STATINTl  AVETOIID  UPPSV  LSR22.3  LSR22.4  ORBCHGO 

0 - SETIFLGS  CSMPREC  LEMPREC  CSMCONIC  LEMCONIC  INTEGRVS 
WMATEND  MIDT0AV2  LSR22.3  ORBCHGO 

DOFSTRTl  PR0G21  P21C0NT 
test  - ACCOMP  ENDSTATE 
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FLAGWRDA 


Bit  Mnemonic  Routines 


15  MRKTDFLG  1 - FLASHSDB 

0 - JOBXCHS  ENDRET  STARTSB2  DOFSTRTl 

test  - OKTOPLAI  MAKEPRIO  FLASHSUB  TERMATE  PINBRNCH 

14  PRIODFLG  1 - FLASHSUB 

0 - ENDRET  STARTSB2  DOFSTRTl 

test  - NORMBNCH  MAKEMARK  MAKEPRIO  PINBRNCH  ENDEXT  OKTOPLAY 
TESTXACT  TERMATE 
13  NRMIDFLG  1 - FLASHSDB 

0 - JOBXCHS  ENDRET  STARTSB2  DOFSTRTl 

test  - MAKEPLAI  MAKEMARK  MAKEPRIO  PINBRNCH  ENDEXT 


12  PDSPFLAG  1 - R61C+L02  RELINUS 

0 - STARTSB2  R61C+L02  DOFSTRTl 

test  - OKTOPLAY  MAKEMARK  CHKLINUS  TESTXACT  R61TEST 


11  MWAITFLG  1 - MAKEMARK 

0 - MARKWAKE  STARTSB2  DOFSTRTl 
test  - OKTOPLAY  MAKEMARK  NORMRET 

10  NWAITFLG  1 - OKTOPLAY 

0 - NORMWAKE  STARTSB2  DOFSTRTl 
test  - MAKEPLAY  NCSMRET 


9 MRKNVFLG  1 - NV50DSP 

0 - JCBXCHS  NV50DSP  STARTSB2  DOFSTRTl 
test  - OKTOPLAY  MAKEMARK  MAKEPRIO  WITCHCNE 


8 NRMNVFLG  1 - NV50DSP 

0 - JOBXCHS  NV50DSP  STARTSB2  DOFSTRTl 
test  - MAKEPLAY  MAKEMARK  MAKEPRIO  WITCHONE 


7 PRONVFLG  1 - NV5ODSP 

0 - NV50DSP  STARTSB2  DOFSTRTl 

test  - OKTOPLAY  MAKEMARK  MAKEPRIO  WITCHONE  TESTXACT 

6 PINBRFLG  1 - NORMBNCH 

0 - ENDRET  STARTSB2  DOFSTRTl 
test  - FLASHSDB 


5 MRDPTFLG  1 - JOBXCHS 

0 - MARKWAKE  STARTSB2  DOFSTRTl 
test  - OKTOPLAY  MAKEMARK  NORMRET 
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FLAGWRDA  (Continued ) 


Bit  Mnemonic  Routines 


4 NRDPTFLG  1 - JOBXCHS 

0 - NORMWAKE  STARTSB2  DOFSTRTl 
test  - MAKEPLAY  NORMRET 

3 MKOVFLAG  1 - MAKIMARK 

0 - MARKPLAY  MARKRET  STARTSB2  DOFSTRTl 
test  - JOBXCHS 


1 XDSPFLAG  1 - AGSVCALC  MARKPLAY 

0 - ENDEXT  STARTSB2  DOFSTRTl  GOTOPOOH 
test  - OKTOPLAY 
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FLAGWRD! 


Bit  Mnemonic 


Routines 


15  DSKTFLAG 


13  SNUFFER 


12  NOTHROTL 


11  R77FLAG 


10  RNGSCFLG 


9 DMENFLG 


8 ZOOMFLAG 


1 - KEYRUPTl 

0 - DOFSTRTl 
test  - T4RUPT 

1 - SNDFFOUT 

0 - OUTSNDFF  DOFSTRTl 
test  - AFTERTJ 

1 - S40.13  S40.13D 

0 - P40LM  S40.13D  P63LM  DOFSTRTl 
test  - P40IGN 

1 - R77 

0 - R77END  DOFSTRTl  STARTSB2 
test  - R77CHECK  DORSAMP  RDRUSECK 

1 - SCALCHNG 

0 - LRS22.1  LRHJOB  R29RANGE  DOFSTRTl 
test  - READRDOT  LRHJOB  R29RANGE 

1 - LSR22.3 

0 - LSR22.4  DOFSTRTl 

test  - INCORPl  IMC0RP2  FAZAB3  INC0R2-3 

1 - P63ZOOM 

0 - TIG-5  DOFSTRTl 
test  - LUNLAND 


7 ENGONFLG 


6 3AXISFLG 


1 - lOJITION  ABRTJASK 

0 - ENGINOF3  IMUMON  DOFSTRTl 
test  - GOPROG  DCMCL 

1 - R62DISP 

0 - R52  ENDMANUl  V89RECL  P4OIN  P4IIM  CANV37 
DOFSTRTl  R61G+L02 
test  - R60LEM  REDCMANC 


5 AORBSFLG 


1 - PURGENCY  PJETSLEC 
0 - PURGENCY  PJETSLEC  DOFSTRTl 
test  - TSNEXTP  PEGI  PURGENCY 
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FLAGWRD5  (CONTINUED) 


Bit  Mnemonic 

4 NORRMON 

3 SOLNSW 

2 MGLVFLAG 

1 RENDWFLG 


Routines 

1 - VBCOARK  R23LEM  R21LEM8 

0 - RRDESEND  STARTSB2  PR0G20A  R23LEM  R23LEM2  DOFSTRTl  R21LEM1 
test  - RRGIMON 

1 - TIMERAD  SUFFCHEK  LAMBERT 

0 - TIMERAD  DOFSTRTl  LAMBERT 
test  - none  (telemetry) 

1 - GET.LVC 

0 - GET+MGA  DOFSTRTl 
test  - none  (telemetry) 

1 - WLINIT 

0 - WMATRXNG  WMATEND  INTWAKEU  V67CALL  DOFSTRTl  ATMAG 
test  - STATINTl  AVET»!ID  DPPSV  ORBCHGO  LSR22.3 
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FLAGWRD6 


Bit 

Mnemonic 

Routines 

15 

S32.1F1 

1 - CSI/B2 

0 - CSI/A  SCNDSOL  DOFSTRTl 
test  - CSI/B2 

14 

S32.1F2 

1 - CSI/A  SCNDSOL 

0 - FRSTPAS  DOFSTRTl 
test  - CIRCL 

13 

S32.1F3A 

1 - CIRCL  FIFTYFPS 

0 - CSI/A  SCNDSOL  DOFSTRTl 
test  - CSI/B2  CIRCL  SCNDSOL 

12 

S32.1F3B 

1 - CSI/A  FIFTYFPS 

0 - CIRCL  SCNDSOL  DOFSTRTl 
test  - CSI/B2  CIRCL  SCNDSOL 


10  GMBDRVSW 


1 - PITCHOFF 
0 - TRIMCIMB  DOFSTRTl 


test  - PITCHOFF 


8 MUNFLAG  1 - P63LM  P12LM 

0 - AVGEND  DOFSTRTl  CANV37 

test  - NORMLIZE  READACCS  AVERAGES  RRGIMON  P41SP0T  SERVIDLE 
V83CALL  GETRVN 


6 REDFLAG  1 - P64DISPS 

0 - P64DISPS  STARTP64  P63LM  DOFSTRTl  STRTP66A 
test  - P64DISPS  REDESIG 


3 NTARGFLG 


1 - NTARGCHK 
0 - S34/35.5  DOFSTRTl 


test  - Not  shovm  in  document 
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FLAGWRD6  (Continued) 


Bit 


Mnemonic 


Routines 


2 AUXFLAG  1 - AVERAGEG 

0 - AVERAGEG  DOFSTRTl 
test  - AVERAGEG 

1 ATTFLAG  1 - REFMF 

0 - DOFSTRTl 

test  - PACKOPTN  DSPOPTN  ATTCHK 
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FLAGWRD7 


Bit  Mnemonic 


Routines 


15  ITSWICH  1 - P34/P74C  P33/P73B 

0 - P34/P74C  INTLOOP  DOFSTRTl 
test  - INTLOOP  ELCALC 

13  IGNFLAG  1 - TIG-0 

0 - TIG-5  P42IGN  DOFSTRTl 
test  - ^PROCEED 


12  ASTNFLAG  1 - ^PROCEED 

0 - TIG-5  P42IGN  DOFSTRTl 
test  - TIG-0 


11  SWANDISP 


10  NORMSW 


9 RVSW 


8 V67FLAG 


1 - P63IGN  ABRTIGN 
0 - DOFSTRTl  AVGEND 
test  - LANDISP 


1 - INITVEL2 

0 - PARAM  DOFSTRTl  HAVEGUES 

test  - S40.1B  S40.9  GEOM  UPDATEVG  RASTEERl 


1 - INTLOOP  CSI/B2  VN06l  1 

0 - CDHMVR  DOFSTRTl  ORBCHGO 


test  - COiMNOUT 


1 - V67CALL 
0 - DOFSTRTl  V67CALL 
test  - V67CALL 


7 IDLEFLAG  1 - STEERING  ENGINOFl  C(»<FAIL  DOFSTRTl  MAINENG 

SERVIDLE 

0 - P42IGN  GOABORT  C0MFAIL4 
test  - STEERING  AVERAGES  MAINENG 

6 V37FLAG  1 - PREREAD 

0 - DOFSTRTl  AVGEND 
test  - V37  POODOO  RDRUSECK 


5 AVEGFLAG 


4 TJPLOCKFL 


1 - PREREAD 
0 - V37  DOFSTRTl 

test  - V82CALL  READACCS  REV83  RRGIMON  P70  P71  RlO.Rll 
V83CALL  LRP0S2K 


1 - DPRDPT 
0 - UPRDPT  DOFSTRTl 


test  - UPRUPT 
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FLAGMRD7  (Continued) 


Bit 


Mnemonic 


Routines 


3 VERIFLAG  1 - UPSTORE 

0 - UPSTORE  DOFSTRTl 
test  - none  (for  telemetry) 

2 V82EMFLG  1 - V82G0FF1  V82G0N1 

0 - V82GOFF1  V82G0N1  DOFSTRTl 
test  - SR30.1 


1 


TFFSW 


1 - CALCTPER 
0 - CALCTFF  DOFSTRTl 
test  - CALCTFF 
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FLAGMRD8 


Bit  Mnemonic  Routines 

15  RPQFLAG  1 - INTEGRV  INTEGRVS  GOBAQUE 

0 - ACC CMP  DOFSTRTl 
test  - TIMESTEP  LUNSPH 


13  NEWIFLG  1 - INTEGRV  INTEGRVS 
0 - TESTLOOP  DOFSTRTl 
test  - TESTLOOP 

12  CMOONFLG  1 - ENDSTATE  A-PCHK  INTWAKEU  P76  ATTACHIT  ORBCHGO 
0 - ENDSTATE  A-PCHK  INTWAKEU  P76  ATTACHIT  ORBCHGO 
test  - INTEGRV  SELECTMU  INTINT  CSI/B2  P76 


11  IMOONFLG  1 - ENDSTATE  A-PCHK  INTWAKEU 
0 - ENDSTATE  A-PCHK  INTWAKEU 

test  - V82GON1  AVETOMID  INTEGRV  FAZC  ATTACHIT  REV83 
OTHINT 


10  FLUNDISP  1 - C»1FAIL 

0 - GOABORT  IGNITION  GOCUTOFF  CCMFAIL4  DOFSTRTl 
test  - DISPEXIT  ASCTERMl 


•r.;*-  . _ 


'’•■'70 


8 SURFFLAG 


7 INFINFLG 


1 - LANDJUNK 

0 - ATMAG 

test  - CHANGEVB  YMKRUPT  RRDESSM  ATTACHIT  NBDONLY  WLINIT 
V67CALL  P20LEMA  STATINTl  LSR22.3  R21LEM  RANGEBQ 
R22LEM  R24L5M3  SERVICER  LUNDESCH  LPS20.1  P20LEMB7 
PR0G20  AVESTAR  VAC ST OR  SURFAGAN  MARKRUPT  UPPSV 
R22LEM42  INTEGRV  LASTBIAS  REV83  P21VSAVE  UPPSV4 
V83CALL  R21LEM1  ATTACHED 

1 - INFINITY 

0 - POLYCOEF  DOFSTRTl 
test  - CCMMNOUT  LAMBLOOP 


6 ORDERSW  1 - none 

0 - DOFSTRTl 
test  - ITERATOR 


5 APSESW  1 - TIMERAD 

0 - TIMERAD  DOFSTRTl 
test  - none  (telemetry) 


98 


FLAGWRD8  (Continued) 


Bit  Mnemonic  Routines 


4 COGAFLAG  1 - TIMERAD  TIMETHET 

0 - COMMNOUT  PARAM  DOFSTRTl 
test  - none  (telemetry) 

2 INITALCai  1 - BYIMATT 

0 - DOFSTRTl  ATTCHK 

test  - SDRFDISP  INITBY  SURFLINE 


1 360SW  1 - GETX  WLOOP 

0 - GETX  DOFSTRTl 
test  - POLYCOEF 
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FLAGWRD9 


Bit  Mnemonic 
U FLVR 

13  P7071FLG 

12  FLPC 

11  FLPI 

10  FLRCS 

9 LETABORT 

8 FLAP 

7 ABTTGFLG 

6 RDTFLAG 

5 QUITFLAG 

3 MIDIFLAG 

2 MIDAVFLG 

1 AVEMIDSW 


Routines 

1 - P12LM  INJTARG 

0 - CMPONENT  DOFSTRTl 
test  - CMPONENT 

1 - GOABOKT 

0 - DOFSTRTl 

test  - ASCENT  CMPONENT 

1 - MAINENG 

0 - DOFSTKTl 
test  - MAINENG 

1 - P12LM 

0 - P12RET  DOFSTRTl 
test  - CMPONENT 

1 - CUTOFF 

0 - GOABORT  DOFSTRTl 

test  - ASCTERMl  ASCTERM  ASCENT  ATMAG 

1 - P63IGN 

0 - LANDJUNK  TERMA3C  GOABORT  DOFSTRTl 
test  - P70  P71  R10,R11 

1 - UPTHROT 

0 - DOFSTRTl 

test  - GOABORT  P12INIT 

1 - INJTARG 

0 - CANV37  DOFSTRTl 

test  - for  telemetry  only 

1 - INJTAEG 

0 - DOFSTRTl  CMPONENT 
test  - CMPONENT 

1 - VER396 

0 - STATINTl  DOFSTRTl 
test  - STATINTl  TESTLOOP 

1 - MIDTOAVl 

0 - MIDTOAVl  MIDT0AV2  C:<MID2  DOFSTKTl 
test  - CKMID2 

1 - MIDT0AV2 

0 - MIDT0AV2  DOFSTRTl 
test  - ENDSTATE 

1 - AVETOMID 

0 - INTEXIT  DOFSTKTl 
test  - SVDWN2 
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FLGWRDIO 


Bit 


Mnemonic 


Routines 


14  INTFLAG  1 - TNTSTALL 

0 - INTWAKEl  GOPROG  G0PR0G2A  DOFSTRTl 
test  - INTSTALL 


13  APSFLAG  1 - LANDJUNK  DPDATl  ABRTJASK  WANTAPS 

0 - DPDATl 

test  - P40IM  P42LM  S4O.I3  RCS  I/ACCS  DAPDATAl 

DAPDATA2  SERVICER  P4OADTO  DVMON  AFTERTJ  S4O.I3D 

7 REINTFLG  1 - ENDSTATE  A-PCHK  P76  UP JOB  INC0RP2 
0 - G0PR0G2A  INTWAKEl  DOFSTRTl  POODOO 
test  - INTSTALL  INTWAKE 
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FLGWRD1 1 


Bit  Mnemonic  Routines 


15  LRBYPASS  1 - SERVIDLE  ABRTJASK  CANV37  D0FSTRT1 
0 - P63IM 

test  - MUNRETRN  R10,R11  RDRUSECK  RADAREAD  RESAMPLE  STARTSB1 


12  VHNH  1 - VMEASCHK 

0 - ABRTJASK  D0FSTRT1  VMEASCHK  CANV37  SERVIDLE 
test  - VMEASCHK 


11  . PSTHIGAT  1 - MUNRETRN 

0 - ABRTJASK  DOFSTRT1  CANV37  SERVIDLE 
test  - MUl^RETRN  UPDATCHK 


10  NOLRREAD  1 - MUNRETRN 

0 - ABRTJASK  POSGOOD  D0FSTRT1  CANV37  SERVIDLE  P1CHK 
test  - UPDATCHK  R10,R11  MUNRETRN 


9 XORFLG  1 - MUNRETRN 

0 - ABRTJASK  D0FSTRT1  CANV37  SERVIDLE 
test  - MUNRETRN 


8 LRINH  1 - SET 57 

0 - NOREASON  ABRTJASK  LROFF  D0FSTRT1  CANV37  SERVIDLE  RESET57 
test  - NOREASON  VMEASCHK 


7 VELDATA  1 - LRVJOB 

0 - ABRTJASK  CONTSERV  D0FSTRT1  CANV37  SERVIDLE 
test  - VMEASCHK 

6 LP0S2FLG'  1 - POSGOOD 

0 - ABRTJASK  SERVIDLE  D0FSTRT1  CANV37 
test  - for  telemetry  only 

5 READVEL  1 - VALTCHK 

0 - ABERJASK  D0FSTRT1  CANV37  SERVIDLE 
test  - VALTCHK 


4 RNGEDATA  1 - LRHJOB 

0 - CONTSERV  ABRTJASK  D0FSTRT1  CANV37  SERVIDLE 
test  - UPDATCHK 

3 N0511FLG  1 - P1CHK 

0 - ABRTJASK  SERVIDLE  D0FSTRT1  CANV37 
test  - MUNRETRN 
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FLGWRDll  (Continued) 


Bit 


Mnemonic 


Routines 


2 VFLSHFLG 


1 


HFLSHFLG 


1 - VMEASCHK 

0 - ABRTJASK  VMEASCHK  ONLITES  DOFSTRTl  CANV37  SERVIDLE 
test  - RlO.Rll  RADLITES 

1 - UPDATCHK 

0 - ABRTJASK  UPDATCHK  ONLITES  DOFSTRTl  CANV37  SERVIDLE 
test  - R10,R11  RADLITES 
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RAMiODES 


Bit 

Mnenonic 

Routines 

15 

CDESFLAG 

1 - VBCQARK  LRS24.I  E21LEM8 

0 - 7BC0ARK  TRMTRACK  ITURN0N2  STARTSUB  POOH  RRAUTCHIi  P12LM 
R24END  R24LEM3  RRDESEND  RRDESNB  RESET22  PR0G20A  R21LEM9 
test  - RRDESEND  STDESIG  DODES 

14 

REMODFLG 

1 - RRDESSM  RRDESNB  R29 

0 - ITURN0N2  STARTSUB  STARTSB2  RRADTCHK  REMODE 
test  - RRGIMON  RRUX2-  BEGDES  LRS24.1  COPICICl 

13 

RCDUOFLG 

1 - RRADTCHK  RRZERO 

0 - ITURN0N2  STARTSUB  STARTSB2  RRZEROSB  RRADTCHK 

test  - RRGIMON  SETTRKF  P20LEMB3  R22LEM  COPYCYCl  RRCDUCHK 

12 

ANTENFLG 

1 - RRZEROSB  RMODINV 

0 - ITURN0N2  STARTSUB  RRZEROSB  RMODINV 
test  - DORREPOS  RRLIMCHK  RRANGLES  RMODINV  REMODE  DODES 
RRLIMNB  R29  R21LEM 

11 

REPOSMON 

1 - RRGIMON  R29 

0 - ITURN0N2  STARTSUB  STARTSB2  RRADTCHK  DORREPOS  RR1AX2 
PREP0S29 

test  - RRGIMON  RR1AX2  STARTDES  STDESIG  DORROllT  RRZERO 

RENDRAD  COPYCYCl 

10 

DESIGFLG 

1 - STARTDES  R29 

0 - VBCOARK  RRDESEND  TRMTRACK  ITURNC9J2  STARTSUB  POOH 

STDESIG  STARTSB2  RRDESDUN  R24END  R24LEM3  RRDESNB 

RESET22  R29DPAS2  COPYCYCl  R29  P12LM  PR0G20A  R21LEM9 
test  - DORREPOS  RR1AX2  STDESIG  R29  BEGDES29  REMODE 

9 

ALTSCALE 

1 - SCALCHNG  RO4Z 

0 - ITURN0N2  STARTSUB  SCALCHNG  RO4Z 
test  - LRHEIGHT  UPDATCHK 

8 

LRVELFLG 

1 - RESAMPLE  R77CHECK 

0 - ERROR  ITDRNaN2  STARTSUB  GOODRAD  TSTLTS3  R77CHECK 
test  - RADLITES 

7 

RCDUFAIL 

1 - ERROR  ITURNC»J2  STARTSDB  RRCDUCHK  TSTLTS3 

0 - RRCDUCHK 

test  - RRCDUCHK  SETTRKF  ENDRADAR  RENDRAD 

6 

LRPOSFLG 

1 - STARTSDB  LRP0S2  RO4Z 

0 - ITIIRN0N2  STARTSDB  RO4Z 
test  - DORSAMP 


RADMODES  (Continued) 


Bit 


Mnemonic 


Routines 


5 LRALTFLG  1 - RESAMPLE  R77CHECK 

0 - ERROR  ITURN0N2  STARTSUB  GOODRAD  TSTLTS3  R77CHECK 
test  - RADLITES 


4 RRDATAFL  1 - RESAMPLE 

0 - ERROR  ITURNC»I2  STARTSUB  GOODRAD  TSTLTS3 
test  - SETTRKF 

3 RRRSFLAG  1 - SCALCHNG  LRS22.1  ROi!£ 

0 - ITURN0N2  STARTSUB  SCALCHNG  LRS22.1  R04Z 
test  - RENDRAD  RRANGOUT 


2 AUTOMODE  1 - ITURN0N2  STARTSUB  RRAUTCHK 
0 - RRAUTCHK 

test  - RRAUTCHK  RRCDUCHK  RRGIMON  SETTRKF  RR1AX2  RRZERO 
COPYCYCl  R29RDJ0B  NORRGMON 


1 


TURNONFL 


1 - RRAUTCHK 

0 - ITURN0N2  STARTSUB  STARTSB2  RRTURNON  RRAUTCHK 
test  - RRZERO 
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DAPBOOLS 


Bit  Mnemonic 
15  PULSES 

14  USEQRJTS 

13  CSMDOCKD 

12  OURRCBIT 

11  ACC40R2X 


Routines 

1 - MINIMP  LANDJUNK 

0 - NOMINIMP  DOFSTRTl  IGNITION  ABRTJASK  TIGTASK 

test  - TSNEXTP  TSNEXTS 

1 - ENGINOF3  AVERAGEG  DVMON  DOFSTRTl 

0 - DVMON 

test  - TJLAW4  TRYGTS  SPSCONT 

1 - DPDATl 

0 - DPDATl  DOFSTRTl 

test  - PDRGENCY  TJLAW4  I/ACCS  DAPDATA2  DAPDATAl  DPDATl 
BACKP  STIKLOAD  FINDCDDW  P40D4  MINRTN 

1 - DETENTCK 

0 - DETENTCK  DOFSTRTl 

test  - DETENTCK  CHEKSTIK  QRAXIS 

1 - DPDATl  GOABORT  P12LM 
0 - DPDATl  DOFSTRTl 

test  - DPDATl  DAPDATAl  +XORULGE 


10  AORBTRAN 


9 XOVINHIB 


8 DRIFTBIT 


7 RHC SCALE 


1 - CCMFAIL2  DPDATl  DOFSTRTl 

0 - CCMFAIL2  DPDATl 

test  - MINRTN  DAPDATAl  +XORULGE 

1 - CMPCXJENT  MUNRETRN 

0 - DOFSTRTl  P65START  CMPONENT  ABRTJASK  CANV37  GOTOPOOH 

STRTP66A 

test  - TSNEXTP  FINDCDUW 

1 - ALU30AST  roimnS  DOFSTRTl 

0 - P42IGN  ABRTJASK 

test  - l/ACCONT  SPSRCS  RCS  BACKP  AFTERTJ 

1 - DPDATl  DOFSTRTl 
0 - DPDATl 

test  - DAPDATAl  STIKLOAD 


6 ULLAGER  1 - ULLGTASK  CCMFAIL2 

0 - P42TGN  ENGINOFl  GOPOST  GOTOPOOH  GXUTOFF  ABRTJASK 
DOFSTRTl  STOPCLOK 
test  - RCS 
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D APB POLS  (Continued) 


Bit  Mnemonic  Routines 


5 DBSL2FLa 


4 DBSLECT2 


3 ACCSOKAY 


1 - . dpdatt- 

0 - . . DPDATI  . 

'test  - RESTORDB  DAPDATA1 

1 - DPDATI  D0FSTRT1 

0 - DPDATI 

test  - RESTORDB  DAPDATA1 

1 - l/ACCRET 

0 - STARTSBl  DOFSTRTl 
test  - DAPIDLER 


2 ADTRATE2  1 - DPDATI  DOFSTRTl 
0 - DPDATI 
test  - DAPDATAl 


1 ADTRATEl  1 - DPDATI 

0 - DPDATI  DOFSTRTl 
test  - DAPDATAl 
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IM0DES30 


Bit  Routines 

15  1 - IMUMON  (IMU  temp,  out  of  limits) 

0 - IMUMON  GOPROG  TSTLTS3  DOFSTRTl 
test  - IMUMON 

14  1 - IMUMON  GOPROG  DOFSTRTl  (ISS  turn-on  delay  initiate) 

0 - IMUM(»I 

test  - IMUMON  TNONTEST  ENDTNON 

13  1 - IMUMON  IFAILOK  GOPROG  TSTLTS3  DOFSTRTl  (iMU  good) 

0 - IMUMON 
test  - SETISSW 

12  1 - IMUMON  GOPROG  TSTLTS3  DOFSTRTl  (ICDU  good) 

0 - IMUMON 
test  - SETISSW 

11  1 - IMUMON  GOPROG  DOFSTRTl  (iMU  not  caged) 

0 - IMUMON 
test  - IMUMON 

10  1 - ERROR  C33TEST  PFAILOK  GOPROG  TSTLTS3  DOFSTRTl  (PIPA  good) 

0 - C33TEST 

test  - PIPFREE  C33TEST  SETISSW 

9 1 - IMUMON  DOFSTRTl  (iMU  not  operating) 

0 - IMUMON 

test  - IMUCHK  R02B0TH  IMUMON  TNONTEST  C33TEST  IMUZERO 

8 1 - TNONTEST  (turn-on  delay  incomplete) 

0 - TNONTEST  GOPROG  DOFSTRTl 
test  - TNCWTEST  C33TEST  SETGLOCK 

7 1 - TTURN0N2  (turn-on  delay  just  started) 

0 - TNONTEST  GOPROG  DOFSTRTl 
test  TNONTEST  C33TEST 

6 1 - CAGESUB2  ( IMU  caged) 

0 - UNZ2  GOPROG  DOFSTRTl 

test  - PIPUSE  PFAILOK  IMUPULSE  STRTGYRO  8192AUG  IMUZERO  IMUZER02 
IMUCOARS  GOARS  C0ARS2  IMUFINE  IFAILOK  V37  IMUFINED 

5 1 - CAGESUB2  (Secondary  PIPA  fail  monitor 

0 - PFAILOK  DOFSTRTl  disabled) 

test  - C33TEST 
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IM0DES30  (Continued) 


Bit  Routines 

4 1 - CAGESUB2  IMUZERO  SETCOARS  DOFSTRTl  (IMU  fail  monitor  inhibit) 

0 - UNZ2  IMUZER02  IFAILOK 
test  - SETISSW 

3 1 - CAGESUB2  IMUZERO 

0 - UNZ2  IMIIZER02  DOFSTRTl 
test  - SETISSW 

2 1 - IMUMON  (tum-on  sequence  failure) 

0 - EMDTNON  GOPROG  DOFSTRTl 
test  - IMUMON  ENDTNON 

1 1 - PIPFREE  CAGESDB2  DOFSTRTl  (PIPA  fail  monitor  disable) 

0 - PIPUSE 

test  - C33TEST  SETISSW 
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IM0DES33 


Bit  Routines 

14  1 - PROCEEDE  (proceed  button) 

0 - PROCEEDE  STARTSB2  DOFSTRTl 
test  - PROCEEDE 

13  1 - error  C33TEST  PFAILOK  STARTSB2  TSTLTS3  DOFSTRTl  (PIPA  good) 

0 - C33TEST 
test  - C33TEST 

12  1 - ERROR  C33TEST  STARTSB2  TSTLTS3  DOFSTRTl  (downlink  not  too  fast) 

0 - C33TEST 

test  - DNTMFAST  C33TEST 

11  1 - ERROR  C33TEST  STARTSB2  TSTLTS3  DOFSTRTl  (uplink  not  too  fast) 

0 - C33TEST’ 

test  - UPTMFAST  C33TEST 

8 1 - INTLZE 

0 - DISPRSET  STARTSB2  DOFSTRTl 
test  - DISPRSET 

7 1 - ALTRODTl 

0 - ALTOUTl  DISPRSET  STARTSB2  LANDISP  DOFSTRTl 
test  - LANDISP 

6 1 - IMUMON  CAGESDB2  IMDZERO  SETCOARS  DOFSTRTl  (DAP  disable) 

0 - UNZ2  IMUZER02  IMDFINE 
test  - CHEKBITS 

5 1 - IMUZERO 

0 - IMUZER02  STARTSB2  DOFSTRTl  (zeroing  in  progress) 
test  - none  (telemetry) 

1 1 - VBTSTLTS 

0 - TSTLTS3  STARTSB 2 DOFSTRTl  (lamp  test) 

test  - IMUMON  SETISSW  SETGLOCK  SETTRKF  ’ 
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RCSFLAGS 


Bit  Routines 
Not  used 


13  1 - DAPIDLER 

0 - STARTSBl  DOFSTRTl 
test  - DAPIDLER 

12  1 - STARTDAP  SKIPPAXS 

0 - PJETSLEC  DOFSTRTl 
test  - SUPERJOB 

11  1 - QRTIME 

0 - STARTDAP  DETENTCK  TOPSEUDO  DOFSTRTl 
test  - DETENTCK  RHCACTIV 

10  1 - PEGI 

0 - STARTDAP  DETENTCK  PEGI  DOFSTRTl 
test  - DETENTCK  RATERROR 

9 1 - DETENTCK 

0 - DETENTCK  CHEKSTIK  DOFSTRTl 
test  - DETENTCK 

8 

7 Not  used 

6 

5 1 - NEGUSUM 

0 - STARTDAP  ACDT+C12  DOFSTRTl 
test  - PAXFILT 

4 1 - ALTDSPLY 

0 - ALTDSPLY  DOFSTRTl 
test  - ALTDSPLY 

3 1 - NEEDLER  DOFSTRTl  CHEKBITS 

0 - NEEDLER 
test  - NEEDLER 

2 1 - NEEDLER 

0 - NEEDLER  DOFSTRTl 
test  - NEEDLER 

1 1 - TRYDORV 

0 - STARTDAP  TRYUORV  DOFSTRTl 
test  - TRYUORV 
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DSPTABt 1 


Bit  Routines 

9 1 - VBTSTLTS  PROGLARM  (program  check  fail  lamp) 

0 - ERROR  TSTLTS3  SLAPl 
test  - none 

8 1 - SETTRKF  VBTSTLTS  (tracker  fail  lamp) 

0 - ERROR  GOPROG  SETTRKF  TSTLTS3  SLAPl 
test  - SETTRKF 

6 1 - SETGLQCK  VBTSTLTS  (gimbal  lock  warning  Ian?)) 

0 - SETGLOCK  TSTLTS3 

test  - SETGLOCK  IMUZERO  DOFSTRTl 

5 1 - VBTSTLTS  R10,R11  LITIT  (LR  altitude  fail) 

0 - R10,R11  ERROR  SLAPl  TSTLTS3  GOPROG  LITIT 
test  - LITIT 

4 1 - CAGESUBl  SETCOARS  VBTSTLTS  TSTLTS3  (no ' attitude  lamp) 

0 - ISSZERO  ENDTNON  IMUZERO  IMUFIHE  TSTLTS3 
test  - IMUZERO  GOPROG  DOFSTRTl 

3 1 - VBTSTLTS  R10,R11  LITIT  (LR  velocity  fail) 

0 - R10,R11  ERROR  SLAPl  TSTLTS3  GOPROG  LITIT 
test  - LITIT 
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ALIN 


Alignment  of  the  Inertial  Sub-System 


P51 


P51B 


P51C 


Perform  "IMJCHK"  (assure  that  IMU  is  on) 


Proceed  to  "GOPERFI"  with  TS  = 0001 5g 

(Request  that  celestial  body  acquisition  be  performed) 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  proceed 
to  "P51B";  if  other  response,  continue  at  next  step.) 


ipiTAD  = 0 

Perform  "GODSPRET"  with  TS  = K:V06N22 

(Display  T^TAD  and  continue  at  next  step  when  display  is  up) 

Perform  "GODSPRET"  with  TS  = K:V41N00  (Indicate  coarse 
align  in  progress;  continue  at  next  step  when  display  is  up) 


Perform  "COARSE" 


Proceed  to  second  step  of  "P51" 

IdPIPADT  = less  significant  half  of  TIMENOW 


PIPA  = -0 


GCOMP  = 0 

Switch  FLAGWRD2  bit  15  (DRIFTFLG)  to  1 
STARIND  = 0 
Perform  "AOTMARK" 

(return  after  marks  are  averaged) 

Perform  "AOTSTALL" 

If  AOTGOOD  = 0,  perform  "CURTAINS" 

If  STARIND  = Or 

STARSAV1  = STARAD^ 

TSt  = TSIGHT 
Perform  "PLANET" 

PLANVEC  = TS 
STARIND  = 1 
Proceed  to  "P51C" 

TSt  = TSIGHT 


ALIN  - 1 


Perform  "PLANET" 


TS^  = PLANVEC 

STARADq  = STARSAVl 

STARAD.  - STARSAVC 
— o — 

Perform  "CIIKSDATA" 

If  FLAGV.'RDO  bit  3 (FREEFLAG)  = 0:  (error  between  actual  separation 

and  measured  separation  is  not 
Proceed  to  second  step  of  "P51"  acceptable) 

Perform  "AXISGEN" 

[refsmmat]  = [dcmat] 

Switch  FLAGWRD3  bit  13  (REFSMFLG)  to  1 
Proceed  to  "GOTOPOOH" 


coarse  If  IMUCADR  0:  (IMU  in  use) 

Delay  1 second 
Proceed  to  "COARSE" 

Perform  "IMUCOARS" 

Perform  "IMJSTALL" 

If  ISSGOOD  = 0,  perform  "CURTAINS" 
Perform  "IMUFINE" 

Perform  "IMJSTALL" 

If  ISSGOOD  = 0,  perform  "CURTAINS" 
Return 
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AOTMARK  Inhibit  interrupts 


AOTSTALL 


If  MARKSTAT  ^ OOGOOg*.  (nark  system  already  busy) 

Proceed  to  "POODOO"  with  TS  = 201 05g 
If  bits  2 and  3 of  EXTVBACT  are  not  both  0: 

TSIgp  = return  address  of  routine  calling  "AOTMARK" 
Proceed  to  "BAIL0UT1"  with  TS  = 31211g 
Switch  bit  2 of  EXTVBACT  to  1 

Establish  a special  additional  working  storage  area  for 
the  mark  system;  store  its  address  in  bits  1-9  of 
MARKSTAT . It  will  be  denoted  hereafter  as  MARKVAC . 

If  no  storage  area  is  available  for  MARKVAC : 

TSIgp  = return  address  of  routine  calling  "AOTMARK" 

Proceed  to  "BAIL0UT1"  with  TS  = 31207g 

Establish  "GETDAT"  (pr15) 

Release  interrupt  inhibit 

Return 

Inhibit  interrupts 

If  OPTGADR  > 0 or  if  OPTCADR  < -1 : 

TS1,  = return  address  of  routine  calling  "AOTSTALL" 
dp 

Proceed  to  "BAIL0UT1"  with  TS  = 31210g 
If  OPTCADR  = -1:  (operation  already  complete  and  good) 

OPTCADR  = +0 
AOTGOOD  = 1 

Release  Interrupt  inhibit 
Return 

If  OPTCADR  = -0:  (operation  already  complete  and  bad) 
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(If  OPTCADR  = -0:  ) 

OPTGADR  = +0 
AOTGOOD  = 0 

Release  interrupt  inhibit 
Return 

(otherwise,  OPTCADR  = +0) 

OPTCADR  *=  return  address  (to  caller  of  "AOTSTALL") 

Put  present  job  to  sleep 
When  awakened,  return  via  LOG 
MKRELEAS  MARKSTAT  = OOOOOg 

Release  special  working  storage  area  MARKYAC 
If  OPTCADR  = +0:  ("AOTSTALL"  not  entered  yet) 

OPTCADR  = -1 
End  task 
LOC  « OPTCADR 
AOTGOOD  = 1 

Wake  job  put  to  sleep  in  "AOTSTALL" 

OPTCADR  = +0 
End  task 

GETDAT  Switch  bit  12  of  MARKSTAT  to  1 (to  inhibit  processing  of 

marks  in  "MARKRUPT") 

Proceed  to  "GOXDSPF"  with  TS  = K:V01N71  (AOTCODE) 

(if  terminate,  proceed  to  "KILIAOT"/  if  proceed, 
continue  at  next  step;  if  other  response,  proceed 
to  "GETDAT") 

(AOTCODE  should  be  of  the  form  000  000  xxx  xxx  ^cxx^) 
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OPTAXIS 


PANE 


XYMARK  = bits  15-7  of  AOTCODE  shifted  right  6 places  to  bit 
positions  9-1 

If  XmRK  < 0,  proceed  to  "GETDAT" 

If  XYMARK  = OOOOVg:  (detent  code  7 for  COAS) 

Proceed  to  "GOXDSPF"  with  TS  = K:V06N87  (AZ,  EL) 

(If  terminate,  proceed  to  "KILLAOT";  if  proceed, 
continue  at  next  step;  if  other  response,  repeat 
this  step) 

TSazm  = AZ 

TSelev  = EL 

TSsrot  = 0 

Proceed  to  "OPTAXIS" 

(otherwise,  XXMARK  is  between  1 and  6 inclusive) 

TSelev  = -^O^^YMARK 
TSazm  = ■^‘^^^^XYMARK 
TSsrot  = AOTAZ2  - TSazm 
Perform  "PANE" 

UYP  = cosTSsrot  UYP'  - sinTSsrot  UXP’ 

UXP  = cosTSsrot  UXP'  + sinTSsrot  UYP' 

STARADg  = 0 
Proceed  to  "GETMKS" 

TSelev  = TSelev  converted  to  one ' s complement  form 
TSazm  = TSazm  converted  to  one ' s complement  form 


/ sinTSelev 


SGAXIS  = I cosTSelev  sinTSazm 
\ cosTSelev  cosTSazm  / 


\ 


/ 


UYP'  = unit(SCAXIS  * K:UNITX)  (=  (O,  cosTSazm,  -sinTSazm)) 
UXP'  = unit (UYP'  * SGAXIS) 

Return 
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GETMKS  XYMARK  = OOOOOg 
MARKCNTR  = 0 

Switch  bits  15  thru  10  of  MARKSTAT  to  0 

TS  = K:V54N71  ("mark  X or  Y"  verb;  star  code  noun) 

PAST IT  Proceed  to  "G0MARK4" 

(if  terminate,  proceed  to  "KILIAOT" ; if  proceed, 
proceed  to  "MARKCHEX";  if  other  response,  proceed 
to  "GETDAT" . ) 

MARKRUPT  (Entered  on  program  interinipt  initiated  by  the  mark  or 
mark  reject  buttons  or  by  a commanded  change  in  descent 
rate. ) 

TScdu  = CDU 

TSt  = TIMENGW 

If  bit  6 or  7 of  channel  16=1; 

(Commanded  change  in  rate  of  descent) 

Proceed  to  "SOMEKEY" 

If  bit  12  of  MARKSTAT  = 1,  Resume 

(Processing  of  marks  inhibited) 

If  MARKSTAT  = OOOOOg:  (mark  program  not  operating) 

Perform  "ALARM"  with  TS  = 001 12g 

Resme 

If  bit  5 of  channel  16  = 1:  (mark  reject) 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1: 

If  MARKCNTR  > 0: 

MARKCNTR  = MARKCNTR  - 1 
Resume 

Perform  "ALARM"  with  TS  = 001 15g 
Resume 
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(If  b'.t  5 of  chaimel  16  * 1:) 


SOMEKSY 


IMKRUFT 


YMKRUPT 


If  bits  10  and  11  of  MARKSTAT  both  =0:  (no  marks 

to  reject) 

Perform  "ALARM"  with  TS  = 001 15g 

Resume 

Proceed  to  "REJECT" 

If  bit  4 of  channel  16*1,  proceed  to  "YMKRUPT" 

If  bit  3 of  channel  16  = 1,  proceed  to  "YMKRUPT" 

If  bit  6 or  bit  7 of  channel  16  = 1 , proceed  to  "DESCBITS" 
(Commanded  change  in  descent  rate) 

Perform  "ALARM"  with  TS  = 001 I3g 

Resume 

i = 0 

lYMARK  = OlOOOg  (bit  10  = l) 

Skip  next  two  steps 
i = 1 

XYMARK  = 02000g  (bit  11  = l) 

If  FLAGWIP8  bit  8 (SURFFLAC)  = 1,  proceed  to  "SURFSTOR" 

If  bit  14  of  MARKSTAT  = 1:  (mark  pair  just  completed) 

If  MARKCNTR  > 4: 

Perform  "ALARM"  with  TS  = 001 07g 
If  FLAGWRD8  bit  8 (SURFFLAG)  = 1j 
Proceed  te  “DSPV6N79" 

Res\ime 

MARKCNTR  = MARKCNTR  + 1 

Switch  bits  14,  11  and  10  of  MARKSTAT  to  0 
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(End  of  indanted  steps) 


If  bit  which  is  1 in  XIMARK  is  also  1 in  MARKSTAT: 
(wrong  mark) 

Perfora  "ALARM"  with  TS  = 001 Ug 
Resiise 

Proceed  to  "VACSTOR" 


SURFSTOR  i = 0 

Switch  bits  10  and  11  of  MARKSTAT  to  1 
(Show  surface  mark  for  "MARKCHEX" ) 

VACSTOR  Get  address  of  MARKVAC  from  low  9 bits  of  MARKSTAT 


TSI(2IT  = TSt 


i = i + 6 MARKCNTR 
MKDEX  = i 


(x:  0,6,12,18,24) 
iji  1,7,13,19,25) 

(store  in  case  of  surface  mark) 


MARKVAC^  = 
i = i + 2 
MARKVAC^  = 
i = i + 2 


TScdu 

y 


TScdu 

z 


(inner  gimbal  angle) 

(x:  2,8,14,20,26) 
(y:  3,9,15,21,27) 

(middle  gimbal  angle) 

(x:  4,10,16,22,28) 
(y:  5,11,17,23,29) 


MARKVAC^  = TScdu^  (outer  gimbal  angle) 
If  FUGWRD8  bit  8 (SURFFLAG)  = 1: 


Proceed  to  "REMARK"  skipping  first  step 


Switch  bit  13  of  MARKSTAT  to  0 (enable  selective  mark 

reject) 

MARKSTAT  = MARKSTAT  + XIMARK 

(switching  bit  10  or  11  of  MARKSTAT  to  1 ) 


If  bits  10  and  11  of  MARKSTAT  both  = 1: 

Switch  bit  14  of  MARKSTAT  to  1 (indicate  both  marks 

taken) 

Proceed  to  "REMARK" 
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REJECT 


If  bit  13  of  MARKSTAT  = 0;  (r*j«ct  only  latest  mark) 


If  bit  10  of  rCMARK  * 1; 

Switch  bit  10  of  MARKSTAT  to  0 

If  bit  11  of  imARK  * 1: 

Switch  bit  1 1 of  MARKSTAT  to  0 

If  bit  13  of  MARKSTAT  = 1:  (no  mark  since  last  reject) 

Switch  bits  10  and  11  of  MARKSTAT  to  0 

Switch  bit  14  of  MARKSTAT  to  0 (reject  pair) 

Switch  bit  13  of  MARKSTAT  to  1 (see  above) 

REMARK  MKDEX  = bits  11  and  10  of  MARKSTAT  shifted  right  9 places 

to  bit  positions  2 and  1 (MIDEX  = 0,1,2  or  3) 

Establish  "CHANGEVB"  (pr15) 

Resume 

GHANaEVB  If  FLAGWRD8  bit  8 (SURFFLAG)  = 1,  proceed  to  "DSPVbNVO" 

TS  = K;V54R71  (request  X or  Y mark) 

If  MKDEX  = 1,  TS  = K:V53N71  (request  Y mark) 

If  MKI®X  * 2,  TS  = K:V52N71  (request  X mark) 

Proceed  to  "PAST IT" 

MARKCHEX  Switch  bit  12  of  MARKSTAT  to  1 (inhibit  processing  in 

"MARKRDPT") 

Store  address  of  MARKVAC  in  low  9 bits  of  XYMARK 
MKDEX  = 0 

If  bits  10  and  11  of  MARKSTAT  are  not  both  1: 

(last  pair  incomplete) 

If  MARKGMTR  = 0: 
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(If  MARKCNTR  ' 0:  ) 

Perform  “ALARM"  with  TS  = 001 11g 
Proceed  to  "GETMKS" 

MARKCNTR  = MARKCNTR  - 1 
AVESTAR  MKDEX  = MKDEX  + 1 
i = 6 MARKCNTR 

Get  address  of  MARKVAC  from  XYMARK 

If  FLAGW1D8  bit  8 (SQRFFLAG)  = 1,  proceed  to  "SURFSTAR" 
MG  = (MARKYAG^^^  , MARKVAC^  , MARKVAC^^^  ^ 

Perform  "CD»TR*GS" 

Perform  “NBTOSM" 

TS  = [nbsmmat]  UXP 

i = i + 1 

ANG  = (MARKVAC^^^,  MARKVAC^  , MARKVAC ^^2  ) 

Perform  '’CD*TR*GS" 

Perform  "NBTOSM" 

TS  = ( [NBaWAT]  UYP)  * TS 

TSstar  = -unitTS 

AYEIT  n = MKDEX 

STARAD,  = STARAD.  + — TSstar 

~ 6 n — 6 n — 

STARSAV2  = STARAD^ 

If  MARKCNTR  > 0: 

MARKCNTR  = MARKCNTR  - 1 

Proceed  to  "AVESTAR*' 

Call  "MKRELEAS"  in  0.05  seconds 
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Proceed  to  "ENDEXT" 


DSPV6N79 


SUREEND 

SURFAGAN 


SIffiFSTAR 


Proceed  to  "GOXDSPF"  with  TS  = V06N79  ( CURSOR ,SP IRAL  ,POSCODE ) 
(if  terminate,  proceed  to  "KILLAOT";  if  proceed, 
proceed  to  "SURIFND";  if  other  response,  continue 
at  next  step.  ) 

If  bit  6 of  TSverb  = 1,  proceed  to  "SURFAGAN"  (V32E) 

Proceed  to  "DSPV6N79” 

Switch  bit  1 4 of  MARKSTAT  to  1 ( show  mark  end ) 


Save  VAG  area  for  surface  marking 

If  bit  1 4 of  MARKSTAT  = 1 , proceed  to  "MARKCHEX" 

If  MARKCNTR  > 4: 

Perform  "ALARM"  with  TS  = 001 07g 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1 , proceed  to  "DSPV6N79" 


Resume 

MARKCNTR  = MARKCNTR  + 1 


Proceed  to  "GETMKS"  skipping  first  two  steps 


ANG  = (MARKVAC^  , ,MARKVAC_,  ,MARKVAC_  _) 
1 1 4*  i ^ 

TSyrot  = MARKVAC^^^  (CURSOR  angle 


(Save  CDU' 3 at  time  of 
X-mark  for  use  in  "CD^^TR^GS" 
converted  to  one’s  comp,  form) 


) 


TSsrot  = MARKVAC^_^^ 
If  TSyrot  = 0: 


If  TSsrot  = 0: 


TS  = unlt(SCAXIS) 


Proceed  to  "JUSTOA" 

TS  = unit(lRfP  cosTSyrot  - ILCP  sinTSyrot) 
TS  = unit(TS  * SCAXIS) 
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TSsrot  = MARKVAC^_I^2  (SPIRAL  angle  converted  to  one's  comp,  form) 
TSsep  = 1/12  (TSsrot  - TSyrot  + K ; ABOUT 1 ) 

TS  = Tanit( cosTSsep  SCAXIS  + sinTSsep  TS) 

JUSTOA  Perform  "CD*TR*GS" 

Perform  "NBTOSM" 

TSstar=  [nBSMMAt]  TS 
Proceed  to  "AVEIT" 

PLANET  TSIGHT  * TSt 

i = low  6 bits  of  AOTCODE  (0  to  40) 

If  STARIND  = 0,  BESTI  = 6 i 
If  STARIND  = 1 , BESTJ  = 6 i 
If  i = 0:  (planet) 

Proceed  to  "GOFLASH"  with  TS  = K;V06N88  (STARADq) 

(if  terminate,  repeat  this  step;  if  proceed, 
continue  at  next  step;  if  other  response, 
repeat  this  step.) 

TS  = unitSTARADp 

Return 

If  i < 38;  (star) 

TS  = KrCATLOG. 

- - 1 

Return 

Perform  "LOCSAM" 

If  i = 38,  TS  = pUN 
If  i = 39,  TS  = VEARTH 
If  i = 40,  TS  = VMOON 
Return 
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LOG  SAM  QMIN  *=  return  address 


CHKSDATA 


TSIGHT  = TSt 
Perform  "LSPOS" 

TDEC1  = TSIGHT 
Perform  "LEMPREG" 

If  PBODY  = 0:  (earth  centered) 

7M00N  = unit(K:RSUBEM  VMOON  - RATT) 

VEARTH  = -unltRATT 

GEARTH  = cos(arc3in(K:RSUBE  / |MTTj)  + K:5DEGREES) 
GMOON  = K:CSS5 

If  PBODY  = 2:  (moon  centered) 

VSUN  unit(VSl]N  - K:ROE  YMOON) 

VEARTH  = - unit(K:RSUBiM  WOON  + MTT) 

VMOON  = - unitMTT 

GMOON  = cos(arcsin(K:RSUBM  / [RATTf)  + K:5DEGREES) 
GEARTH  = K:GSS5 
CSUN  = K:GSSUN 
Retiirn  via  QMIN 

Switch  FLAGWRDO  bit  3 (FREEFLAG)  to  1 (R54) 

TSang  = arccos(STARADQ • STARAB^) 

Switch  FLAGWRDO  bit  3 (FREEFLAG)  to  0 

THETA  = arccos(TS^*  IS^2^  " TSang 

DSPTEM1 ^ = THETA 

dp 

Switch  FLAGWRDO  bit  3 (FREEFLAG)  to  1 
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AXISGEN 


PR0G52 


Proceed  to  "GOFLASH"  with  TS  * K;V06N05  (DSPTEMi) 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
skip  next  step;  if  other  response,  continue  at 
next  step.) 


Switch  FLAGWRDO  bit  3 (FREEFLAG)  to  0 


Return 


TS1  = TS^ 

TS2  = unit(TS^  » 


TS3  = TS1  * TS2 


[rfstmatJ  = 


TS1  TS1  TS1 
X y z 

TS2  TS2  TS2 
X y z 

TS3  TS3  TS3 
X y z 


TS1  = STARADq 

TS2  = unitCSTARADp  « STARAD^) 


TS3  = TS1  * TS2 


TS1  TS1  TS1 
X y z 

TS2  TS2  TS2 
X y z 

TS3  TS3  TS3 

X y z 

[dcmat  ] = [smstmat]"^  |rfstmat] 

Unitize  each  of  the  three  rows  of  (iXJMATJ 
(assure  that  it  is  orthogonal) 

STARADq  = IwMAT]"^  K:UNITX 

STARAD^  = [DCMAT]"^  K:UNITI 

STARAD^2  [UGMAT]'^  K;UNITZ 


[smstmat]  = 


Return 


Perform  ’'R02B0TH*' 


If  FLAGWRD2  bit  4 (PFRATFLG)  = 1 ; 

OPT ION 2 = 1 and  skip  next  step 
0PTI0N2  = 3 (REFSMMAT  option) 
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P52B  Perform  "G0PERF4R"  with  0PTI0N1  = 1 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
skip  next  step;  if  other  response,  repeat  this 
step. ) 

End  j oh 

If  0PTI0N2  bit  2 = 0 and  bit  1 = 1r  (0PTI0N2  = 1,5,9, 
Proceed  to  '’P52D"  (Preferred) 

If  0PTI0N2  bits  2 and  1 both  = 1:  (0PTI0N2  = 3,7,11, 
Perform  "R51’'  (REFSMmT) 

Proceed  to  "GOTOPOOH" 

If  0PTI0N2  bits  2 and  1 =0:  (0PTI0N2  = 0,4,12,..,.) 

TS  = TLAND  and  skip  next  step  (Landing  site) 
(otherwise,  0PTI0N2  = 2,6,....)  (Nominal) 

TS  = -0 
DSPTEM1  = TS 

Proceed  to  "GOFIASH"  with  TS  = K:V06N34  (DSPTEMi) 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  if  other  response,  repeat 
this  step.) 

If  more  significant  half  of  DSPTEMI  < 0: 

TALIGN  = TIMENOW  and  skip  next  step 
TALIGN  = DSPTEMI 

If  0PTI0N2  bit  2 = 1:  (0PTI0N2  = 2,6,10, ) 

TSt  = TALIGN 
Perform  "S52.3" 

Proceed  to  "P52D" 

P52LS  Switch  FLAGWRD1  bit  13  (ERADFLAG)  to  0 (0PTI0N2  = 0,4, 
Switch  FLAGWRD3  bit  12  ( LUNAFLAG) 

TS  = RLS  (landing  site  vector  in  MF  coordinates) 
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TSt  = TALIGN 


TLAND  = TALIGN 
Perform  "MOONMX" 

ALPHAV  = ^MOONMAtJ'^  (TS  + M504  * TS) 

TSt  = TALIGN 
Perform  "N89DISP" 

XSMDrf  = unitALPHAV 

Perform  "LSORIENT"  (compute  landing  site  orientation) 

Proceed  to  "P52D” 

N89DISP  TStime  = TSt 

Perform  "LAT-LONG"  (calculate  and  display  landing  site) 
LANDLONG  = LONG  / 2 
LANDALT  = ALT 
LANDLAT  = LAT 

Proceed  to  "GOFLASH"  with  TS  = K:V06N89  (LANDLAT, LANDLONG, LANDALT) 
(if  terminate,  proceed  to  "GOTOPOOH”;  if  proceed, 
continue  at  next  step;  if  other  response,  repeat 
this  step.) 

LONG  = 2 UNDLONG 

ALT  = LANDALT 

LAT  = LANDUT 

TSt  = TStime 

Perform  "LALOTORV'' 

Return 

P52D  Perform  "S52.2"  (compute  gimbal  angles) 

Proceed  to  "GOFLASH"  with  TS  = K:V06N22  (TOETAD) 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  if  other  response,  proceed 
to  "P52D".) 
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GYCOARS 


Proceed  to  "G0PERF1"  with  TS  = 00013o  (perform  checklist  #^3) 
(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
proceed  to  "PEGCOARS" ; if  other  response,  continue 
at  next  step.) 

= unit(  LREFSMMAT]  XSMDrf)  (get  desired  SM  wrt  present  SM) 
pc  = unit(  [EEFSMMAT]  YSMDrf) 

ZDC  = unit(  [REFSMMAT]  pMDrf) 

Perform  "GYCOAES" 

Proceed  to  "GOTOPOOH" 

QMA.J  = return  address 
Perform  "CALCGTA" 

Switch  FLAGWRD2  bit  15  (DRIFTFLG)  to  0 
Switch  FLAGWRD3  bit  13  (REFSMFLG)  to  0 

Perform  "GODSPR"  with  TS  = K:V16N20  (monitor  gimbal  angles) 
Perform  "IMUPULSE"  with  TS  = address  of  OGC 
Perform  "IMJSTALL" 

If  ISSGOOD  = 0,  perform  "CURTAINS"  (bad  return) 

[refsmmat]  = [xsmdmat] 

Switch  FLAGWRI)2  bit  4 (PFEIATFLG)  to  0 

Switch  FLAGWRD3  bit  13  (REFSMFLG)  to  1 

IdPIPADT  = TIMEN0W-, 

Is 

PIPA  = -0 
GCOMP  = 0 

Switch  FLAGWRD2  bit  15  (DRIFTFLG)  to  1 
Proceed  to  "R51K" 
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S52.2 


QMAJ  = return  address 


S52.3 


LSORIEJ^T 


CAL53A 


Perform  "CDUTRIG" 

Perform  “GALCSMSC" 

i^rf  = unit(  [rEFSHMAT]"^  piBsm) 

YNBrf  ==  unlt(  [rEFSMMAT]^  pBsm) 

pSrf  = unit(  [REFSJWATJ’^  ZNBsm) 

XSMrf  = XSMDrf 

YSMrf  = YSMDrf 

ZSMrf  = pMDrf 

Perform  "CALCGA” 

Return  via  QMAJ 
QMAJ  = return  address 


TDEC1  = TSt 
Perform  "LEMCONIC" 

XSMDrf  = unitRATT 
YSMDrf  = unit(VATT  * MTT) 

ZSMDrf  = unit (XSMDrf  » YSMDrf) 

Retiim  via  QMAJ 
QMAJ  = return  address 

pMDrf  = unit  [(pECTCSM  » VRECTCSM)  » pMDrf 
YSMDrf  = unit  (ZSMDrf  * pWDrf) 


Return  via  QMAJ 
Perform  ”S52.2" 


TS 


CDU  - THETAD 


(TS  = GDU  - THETAD  I,  etc. 

X X X ' 
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If  any  of  the  three  components  of  TS  is  2:  K;DEGEEE1 
and<  K:DEG359r 

Perform  "COARSE" 

IdPIPADT  = TIMEWOV^ 

Is 


PIPA  = -0 


(DRIFTFLG)  to  1 
XSMrf 

z 

YSMrf 

z 

ZSMrf 

z 

Return 

R51  QMAJ  = return  address 

Proceed  to  "GOPERF1"  with  TS  = 00015o  (perform  checklist  #15) 
(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  if  other  response,  proceed 
to  "R51E".) 

TSt  = TIMENOW  + K:TSIGHT1 
Perform  "LOCSAM" 

Perfona  "R56"  (select  best  star  pair) 

If  HAVSPAIR  « 0: 

Perform  "ALARM"  with  TS  = 00405g 

Proceed  to  "GOFLASH"  with  TS  = K:V05N09  (display  alarm) 
(If  terminate,  proceed  to  "GOTOPOOH";  if 
proceed,  continue  at  next  step;  if  other 
response,  proceed  to  second  step  of  "R51".) 

R51E  STARIND  = 0 (start  with  star  farther  from  line-of-sight ) 

Perform  "R52"  (set  AOTCODE  and  maneuver  LM) 

Perform  "AOTMARK" 

Perform  "AOTSTALL" 

If  AOTGOOD  = 0,  perform  "CURTAINS"  (bad  return) 


^OMP  = 0 

Switch  FLAGWRD2  bit  15 


[REFS^®^AT]^ 


XSMrf  XSMrf 
X y 

YSMrf  YSMrf 
X y 

ZSMrf  ZSMrf 
X y 
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If  STARIND  = 0: 


STARS AVI  = STARAD^ 

TSt  = TSIfflT 
Perform  "PLANET" 

PLANVEC  = TS 
STARIND  = 1 

Proceed  to  second  step  of  "R51E" 

STARSAV2  = STARAD^ 

TSt  = TSIfflT 
Perform  "PLANET" 

STARAD^  = unite  [rEFSMMAt]  TS) 

STARADq  = unite  [rEFSMMAt]  PLANVEC ) 

TS^  = STARSAV1 
TS^2  = STARSAV2 

Perform  "CHKSDATA"  eR54) 

If  FLAGWRDO  bit  3 eFREEFLAG)  = 1; 

Perform  "AXISGEN" 

Perform  "R55" 

Switch  FLAGWRD2  bit  4 ePFRATFLG)  to  0 

R51K  Proceed  to  "GOPERF1"  with  TS  = OOOI43  e checklist  #14) 

eif  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
proceed  to  second  step  of  "R51";  if  other 
response,  continue  at  next  step. ) 

Return  via  QMAJ 
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R52  AOTCODE  = 00200g  + BESTI  / 6 (setting  detent  code  to  2) 

If  STARIND  = 1 , AOTCOEE  = 00200g  + BESTJ  / 6 

Proceed  to  "GOFLASH"  with  TS  = K:V01N70  (AOTCODE) 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  if  other  response,  repeat 
this  step.) 

Switch  FLAGVJRD5  bit  6 (3AXISFLG)  to  0 

TS1  = bits  15-7  of  AOTCODE  shifted  right  to  bit  positions  9-1 
If  TS1  ^ 0,  proceed  to  "GETAZEL"  (COAS  calibration) 

If  TS1  = 7,  proceed  to  "GETAZEL"  (COAS  sighting) 

i = TS1  (detent  position  between  1 and  6 inclusive) 

TSazm  = AOTAZ. 

1 

TSelev  = K:r52el 
Proceed  to  "AZEL" 

GETAZEL  Proceed  to  "GOFLASH”  with  TS  = K:V06N87  (AZ,  EL) 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  if  other  response,  repeat 
this  step.) 

TSazm  = AZ 

TSelev  = EL 

AZEL  Perform  "OANB"  (get  SCAXIS) 

TSt  = TIMENOW 
Perform  "PLANET" 

POINTVSM  = unit([REFSMMAT]  TS) 

Perform  "R60LEM"  (attitude  maneuver) 

If  bits  15-7  of  AOTCODE  = 0:  (COAS  calibration) 

Proceed  to  "R52"  skipping  first  two  steps 
Return 
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QMIN  - return  address 
Perform  "CALCGTA" 

Proceed  to  "GOFLASH"  with  TS  = K:V06N93  (OGC,IGC,MGC) 
(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  if  other  response,  return 
via  (^IN.) 

TS  = address  of  (OGC,  IGC,  MGC) 

Perform  '»IMUPULSE'' 

Perform  "IMUSTALL" 

If  ISSGOOD  = 0,  perform  "CURTAINS"  (bad  return) 

Return  via  QMIN 

QMIN  = return  address 

Perform  "CDUTRIG" 

Perform  "CALCSMSC" 

Switch  FLAGWRD3  bit  10  (VFLAG)  to  1 
BESTI  = 0 
BESTJ  = 0 

SAX  = unit(  [REFSMMAT]’’  (^  pBsm  + ^ ZNBsm)) 
i = 38 
i = i - 1 

If  i = 0,  proceed  to  "PICEND" 

If  KtCATLOG^*  SAX  < K:CSS33,  proceed  to  "PIC1" 
j = i 
j = j - 1 

If  j = 0,  proceed  to  "PIC1" 
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If  K:CATLOGj'  SAX  < K;CSS33,  proceed  to  "PIC3" 

If  K;GATLOG^‘  K:CATLOGj  > K:CSS40,  proceed  to  "PIC3'’ 
TSsteu:  = KrCATLOG^ 

Perform  "OCCULT"  (see  if  first  star  is  occulted) 

If  FLAGWRD3  bit  7 (CULTFLAG)  = 1,  proceed  to  "PIC1" 

TSstar  = KrCATLOG. 

“ “ J 

Perform  "OCCULT"  (see  if  second  star  is  occiilted) 
If  FLAGWRD3  bit  7 (CULTFLAG)  = 1 , proceed  to  "PIC3" 
If  FLAGWRD3  bit  10  (VFLAG)  = 1: 

Switch  FLAGWRD3  bit  10  (VFLAG)  to  0 
BESTI  = 6 i 
BESTJ  = 6 j 
Proceed  to  "PIC3'' 

BESTI  = BESTI  / 6 

BESTJ  = BESTJ  / 6 

TSa  = KzCATLOGggg^j.  K : C ATLOG^^g^ j 

BESTI  = 6 BESTI 

BESTJ  = 6 BESTJ 

Switch  FLAGWRD3  bit  10  (VFLAG)  to  1 
TSb  = K:CATL0G^»  K:CATL0G^ 

Switch  FLAGWRD3  bit  10  (VFLAG)  to  0 
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PICEND 


OCCULT 


If  TSa  > TSb:  (new  pair  has  better  separation) 

BEST!  = 6 i 
BESTJ  = 6 j 
Proceed  to  "PIC3" 

If  FUGWRD3  bit  10  (VFLAG)  = 1;  (no  pairs  found) 
HAVEPAIR  = 0 
Return  via  C^N 
i = BESTI  / 6 

j = BESTJ  / 6 

If  SAX*  K;CATL0Gj  < SAX*  KrCATLOG^; 

BESTI  = 6 j (farther) 

BESTJ  = 6 i (closer) 

HAVEPAIR  = 1 

Return  via  QMIN 

VEARTH  VEARTH  VEARTH  "I 
X y z 

VSUN  VSUN  VSUN 

X y z 

VMOON  VMOON  VMOON 

X y z 

/CEARTHX  p- 

TS  =(  CSUN  ) - TSmat  TSstar 

\CM00N  / L J 

Switch  FUGtfRD3  bit  7 (GULTFLAG)  to  0 

If  TS  < 0,  or  if  TS  or  TS  < 0: 

X ’ y z 

Switch  FLAGWRD3  bit  7 (CDLTFLAG)  to  1 
Retiom 


TSmat 


■]  = 
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P57 

P570FT 


Perform  "IMUCHK"  (assure  that  IMJ  is  on) 

0PTI0N2  = 00003g  (EEFSMMA.T  orientation) 

Perform  "G0PERF4R"  with  0PTI0N1  = 00001 g 

(if  terminate , proceed  to  "GOTOPOOH^;  if  proceed, skip 
next  step;  if  other  response, repeat  this  step.) 

End  job 

If  0PTI0N2  bit  2 = 0 and  bit  1 =1:  (0PTI0N2  = 1,5,9,...) 

Pi’oceed  to  "PACKOPTN"  (Preferred  orientation) 

If  0PTI0N2  bit  2 = 1 and  bit  1 = Or  (0PTI0N2  = 2,6,10,...) 
Proceed  to  "P570PT"  (recycle;  invalid  in  P57) 

If  0PTI0N2  bits  2 and  1 =1:  (0PTI0N2  = 3,7,11,...) 

\_XSMdJ  = [rEFSMMtJ  (REFSMMAT  orientation) 

Proceed  to  "PACKOPTN" 

(otherwise,  0PTI0N2  = 0,4,8,12,....)  (Landing  site  orientation) 

DSPTEM1  = TIG 

Perform  "GOFLASH"  with  TS  = K:V06N34  (DSPTEMi) 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, continue 
at  next  step;  if  other  response, repeat  this  step.) 

If  DSPTEMI  = 0:  (key-in  time  = O) 

TALIGN  = TIMENOW 
TDEC1  = TIMENOW 
Proceed  to  "P57D" 

If  TIMENOW  i.  DSPTEMI;  (key- in  time  i present  time) 

TALIGN  = DSPTEMI 
TDEC1  = DSPTEMI 
Proceed  to  "P57D" 

TIG  = DSPTEMI  (key-in  time  > present  time) 

TALIGN  = DSPTEMI 

TDEG1  = DSPTEMI 
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Perform  "LEMPREC" 


P57D 

PAGKOPTN 


DSPOPTN 


GETLMA.TT 

BYLMTT 

ATTCHK 


XSMDrf  = unimTT 

Perform  "LSORIENT"  (compute  desired  IMU  orientation) 

0PTI0N2  = OOOOOg  (zero  alignment  option) 

0PTI0N3  = OOOOOg  (zero  flag  bit  configuration) 

If  FLAGWRD3  bit  13  (REFSMFLG)  = 1,  0PTI0N3  = 001 OOg 
If  FIAGWRD6  bit  1 (ATTFLAG)  = 1,  0PTI0N3  = 0PTI0N3  + 0001 Og 
0PTI0N1  = 0001 Og 

Proceed  to  "GOFLASH"  with  TS  = K:V05N06  (OPTIONI ,0PTI0N2,0PTI0N3) 
(If  terminate, proceed  to  "GOTOPOOH";  if  proceed, continue 
at  next  step;  if  other  response,  repeat  this  step.) 

If  FLAGWRD3  bit  13  (REFSMFLG)  = 1,  proceed  to  "GETLMATT" 

If  FLAGWRD6  bit  1 (ATTFLAG)  = 1,  proceed  to  "BYLMATT" 

If  0PTI0N2  bit  2=1:  (0PTI0N2  = 2,3,6,?,...) 

Proceed  to  "BYLMA-TT"  (don't  have  attitude) 

Perform  "ALARM"  with  TS  = 00701 g (option  inconsistent  with  flags) 

Proceed  to  "GOFLASH"  with  TS  = KrV05N09  (display  alarm) 

(If  terminate, proceed  to  "GOTOPOOH";  if  proceed, proceed  to 
"DSPOPTN";  if  other  response,  proceed  to  "DSPOPTN".) 

Perform  "REFMF" 

Switch  FLAGWRD8  bit  2 (INITALGN)  to  1 

If  0PTI0N2  bit  1 =1:  (0PTI0N2  = 1,3, 5, 7, ) 

Proceed  to  "GVDETER" 

If  FLAGWRD6  bit  1 (ATTFLAG)  = 1,  proceed  to  "P570PT0" 

Switch  FLAGWRDS  bit  2 (INITALGN)  to  0 

If  0PTI0N2  bits  2 and  1 both  = Or  (0PTI0N2  = 0,4,8, ) 

Proceed  to  "P570PT0" 
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If  0PTI0N2  bit  2 = 0 and  bit  1 = 1 : 

Proceed  to  "P570PT1" 

If  0PTI0N2  bit  2 = 1 and  bit  1 = 0; 
Proceed  to  "P570PT2" 


(0PTI0N2  = 1,5,9,. 

(0PTI0N2  = 2,6,10, 


) 


If  0PTI0N2  bits  2 and  1 both  = 1:  (0PTI0N2  = 3,7,11, ) 

Proceed  to  "P570PT3" 

P570PT0  VEC1  = YNBSAV 
VEC2  = ZNBSAV 
Perform  "CDUTRIG" 

Perform  "CALCSMSC" 


TS  — YNBsm 

SAMETYP  STARSAV1  = TS 

STARSAV2  = pBsm 


Perform  "MFREF" 


(VEC1,2  to  reference  coordinates) 


Proceed  to  "SURFLINE" 


P570PT1  VEC1  = unitRLS 


yEC2  = pBSAV 


Perform  "CDUTRIG" 


Perform  "CALCSMSC" 
Perform  "CDUTRIG" 
Perform  "NBTOSM" 

TS  = [nbsmmat]  GSAV 

Proceed  to  "SAMETYP" 
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P570Fr2 


Proceed  to  "2STARS" 


P570PT3  pci  = unitRLS 
PC2  = unitRLS 
Perform  "CDUTRIG" 

Perform  "NBTOSM" 

STARSAV1  = [nBSMMAT  J GSAV 
Perform  "MFREF" 

Proceed  to  "1STAR" 

SURFLINE  STARADq  = unlt(  [XSMIMAT  ] pCI ) 

TS^  = STARSAV1 

STARAD^  = unite  [XSMDMAT]  pC2) 

= STARSAV2 

If  FLAGWRD8  bit  2 (lNITALC»l)  = 1,  proceed  to  "INITBY" 
Perform  "CHKSDATA"  (R54) 

If  FLAGWRDO  bit  3 (FREEFLAG)  = 0,  proceed  to  "P57POST'' 
INITBY  Perform  "AXISGEN" 

Perform  "CALCGTA" 

If  FLAGWRD8  bit  2 (INITALGN)  = 1,  skip  next  step 

Proceed  to  "GOFLASH"  with  TS  = K:V06N93  (gyro  angles) 
(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  if  other  response,  proceed 
to  "P57P0ST".) 

TS  = (OGC,  IGC,  MGC) 

TS  = TS  / K:5DEGREES 
- ogc 
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If  overflow  ( any  component  of  TS  1 ) : 
pMrf  = [DGMt]'^;.K:UNITX 
ISMr-f  = [DCmTj'^  KrUNITY 
ZSMrf  = [DCMT]'^  KtUNITZ 
Perform  "CDUTRIG" 

Perform  "CALCSMSC" 

Perform  "CALCGA" 

If  FLAGWRD8  bit  2 (INITALGN)  = 0,  skip  next  step 

Proceed  to  "GOFIASH"  with  TS  = K:V06N22  (TffllTAD) 

(If  terminate, proceed  to  "GOTOPOOH" ; if  proceed 
continue  at  next  step;  if  other  response, 
repeat  this  step.) 

Perform  "COARSE" 

IdPIPADT  = TIMENOW, 
is 

PIPA  = -0 
GCOMP  = 0 

Switch  FLAGWRD2  bit  15  (DRIFTFLG)  to  1 
MG  = pETAD 
Perform  "CD*TR*GS" 

Perform  "NBTOSM" 

STARADq  = [NBSMMAT]  K:UNITX 
STARAD^  = [NBSMMT]  K: UNITY 
Perform  "CDUTRIG" 

Perform  "CALCSMSC" 

TS^^  = MBsm 
TS^2  ~ YNBsm 
Perform  "AXISGEN" 

Perform  "CALCGTA" 

(End  of  indented  steps) 
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TS  = address  of  (OGC,IGC,MGC) 

Perform  "IMUPUISE" 

Perform  "IMUSTALL" 

If  ISSGOOD  = 0,  perform  "CURTAINS" 

SURFDISP  Switch  FUGtfRD3  bit  13  (REFSMFLG)  to  1 

If  0PTI0N2  = OOOOOg,  proceed  to  "P57P0ST" 

If  FLAGWRD8  bit  2 (INITALGN)  = 1; 

Proceed  to  "ATTCHK"  skipping  first  step 
Perform  "REFMF" 

Proceed  to  "P57POST" 


2STARS  STARIND  = 0 (first  star) 

Skip  next  step 

1STAR  STARIND  = 1 (second  star) 

R59  If  FLAGWRD3  bit  13  (REFSMFLG)  = 0,  proceed  to  "R590UT" 

Proceed  to  "GOFLASH"  with  TS  = K;V01N70  (detent  and  star  code) 
(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  if  other  response, 
proceed  to  "R59"«) 

1 = low  6 bits  of  AOTCODE 

If  STARIND  = 0,  BESTI  =61 

If  STARIND  = 1,  BESTJ  = 6 i 
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INCAZ 


If  i = 0,  proceed  to  "R5901IT"  (planet,  not  star  code) 

If  38  < if  proceed  to  "R590UT"  (sun,  earth  or  moon) 

TS  = unit([REFSMMAT]  KtCATLOG^) 

(star  vector  in  NB  coor) 


(elevation  = 45  degrees) 

Perform  "OANB” 

TS1  = arccos(STAR«  SCAXIS) 

TS2  = TS1  - K;DEG30 

If  TS2  > 0;  (star  not  in  field  of  view;  try  next  position) 
POSCODE  = POSCODE  + 1 
If  POSCODE  > 7,  proceed  to  "R59ALM" 

Proceed  to  "INCAZ" 

TS  = TS1  - K:DEG.5 
If  TS  < Or 

CURSOR  = 0 
SPIRAL  = 0 


Perform  "QINJTRIG" 
Perform  "SMTONB" 
STAR  = [SMNBMAT]  TS 
POSCODE  = 1 


QMIN  ^'^'^^^■posGOIE 

TSazm  = QMIN 

TSelev  = K;r52el 
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(If  TS  < 0:) 


Proceed  to  "79DISP" 

TS1  = 12  TS1 

TS2  = unit(SCAXIS  KrUNITX) 

TS3  = unit(-TS2  * SC AXIS) 

TS4  = unit(SCAXIS  * STAR) 

TS5  = arccos(TS4*  TS2) 

TS  = TS3  • TS4 

If  TS  > 0,  skip  next  step 

TS5  = K'.ABOUTI  - TS5 

TS5  = TS5  QMIN  (one's  complement  form,  scaled  revs) 

TS6  = TS5  in  two's  complement  form  scaled  B-1  in  revs 
CTJRSOR  = TS6 

TS  = TS5  + TS1  (one's  complement  form,  scaled  revs) 

TS  = TS  in  two ' s complement  form  scaled  B-1  in  revs 

SPIRAL  = TS  (two's  complement  form,  scaled  revs) 

79DISP  Proceed  to  "GOFLASH"  with  TS  = K:V06N79  (CURS0R,SPIRAL,P0SC0DE) 
(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  if  other  response,  proceed 
to  "R59" . ) 

TS  = bits  3-1  of  POSCODE  shifted  left  to  bits  9-7 
TS1  = bits  6-1  of  AOTCODE 

AOTCODE  = TS  + TS1  (star  code  in  bits  6-1;  detent  code 

(derived  from  POSCODE)  in  bits  9-7) 
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R590UT 


Perform  "AOTMARK" 


Perform  "AOTSTALL" 

If  AOTGOOD  = 0,  perform  "CURTAINS" 

Proceed  to  "R59RET" 

R59ALM  Perform  "ALARM"  with  TS  = 00404g 

Proceed  to  "GOFLASH"  with  TS  = K;V05N09  (display  alarm) 
(if  terminate,  proceed  to  "GOTOPOOH"}  if  proceed, 
proceed  to  "R590UT"}  if  other  response,  proceed  to 
"R59".  ) 

R59RET  If  STARIND  = 0,  proceed  to  "ASTAR" 

TSt  = TSIGHT  (time  of  second  mark) 

Perform  "PLANET" 

VEC2  = TS 

Proceed  to  "SURFLINE" 

ASTAR  STARSAV1  = STARAD^  (first  star  marked) 

TSt  = TSIGHT  (time  of  first  mark) 

Perform  "PLANET" 

YEC1  = TS 

Proceed  to  "1STAR"  (get  second  star  sighting) 

GVDETER  THETAD  = K;42DEG 

X 

THETAD  = -K:42DEG 

y 

THETAD  = K:35DEG 
z 

Switch  FLAGWRD3  bit  13  (REFSMFLG)  to  0 

Perform  "LUNG"  (align  to  THETAD  and  get  gravity  vector) 
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LUNG 


Perform  "NBTOSM" 

XNBsm  = [nBSMMAT]  K;UNITI 

XSMsm  = 2 STAR  STAR  - K:UNITX 

- _ _ 

pBsm  = [NBSMMAT]  K; UNITY 

YSMsm  = 2 STAR  STAR  - K: UNITY 

y - - 

PBsm  = [NBSMMAT]  KiUNITZ 

ZSMsm  = 2 STAR  STAR  - KrUNITZ 
“ z — “ 

Perform  "CALCGA"  (get  new  TOETAD) 

STARAD^2  = i 

Perform  "LUNG” 

STARSAV1  = unit(^  MUT  + STARAD^2) 

DSPTEM1  = arccos(STARSAV1 • GSAV) 

Switch  FLAGWRDO  bit  3 (FREEFLAG)  to  0 

Proceed  to  "GOFLASH"  with  TS  = K:V06N04  (DSPTEMi) 
(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  if  other  response, 
switch  FLAGWRDO  bit  3 (FREEFLAG)  to  1 and 
continue  at  next  step.) 

^AV  = STARSAV1 

If  FLAGWRDO  bit  3 (FREEFLAG)  = 1,  proceed  to  "GVDETER" 
Proceed  to  "ATTCHK" 

QMIN  = return  address 
GACC  = 0 
Perform  "COARSE" 

GCTR  = -20 
IdPIPADT  = K;PRI031 
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GCOMPSW  = 0 


GREED 


GRABGRAV 


ADDGRAV 


REGCOARS 


gjoMP  = 0 

Perform  "PIPASR"  skipping  first  step  (don't  load  PIPTIMEl) 

Call  "GRABGRAV"  in  tvo  seconds 
End  job 

Perform  "PIPASR"  skipping  first  step 
Establish  "ADDGRAV"  (pr13) 

End  task 
Perform  "l/PIPA" 

GCTR  = GCTR  + 1 

^CC  = GACC  + K:lungt  DELV 

If  GCTR  < 0,  proceed  to  "GREED" 

STAR  = unit^CC 
Perform  "CDUTRIG" 

Perform  "SMTONB" 

^UT  = [smnbmat]  star 

Return  via  QMIN 
Perform  "CAL53A" 

Switch  FIAGWRD3  bit  13  (REFSMFLG)  to  1 
Switch  FLAGWRD2  bit  4 (PFRATFLG)  to  0 
Perform  "R51" 

Proceed  to  "GOTOPOOH" 
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P57P0ST  Proceed  to  "G0PERF1"  with  TS  = 00014^  (checklist  # U) 
(If  terminate,  proceed  to  "GOTOFOOH";  if  proceed, 
proceed  to  "ATTCHK"  skipping  first  step;  if  other 
response,  continue  at  next  step.) 

If  0PTI0N2  00002g,  proceed  to  "GOTOPOOH" 

(0PTI0N2  = 00002g  so  calculate  landing  site) 

Perform  "CDUTRIG" 

Perform  "NBTOSM" 

TSgref  = [REFSMMAT]^  NBSMMAT  ^AV 

Switch  FLAGWRD3  bit  12  ( LMAFLAG)  to  1 

ALPHAV  = I RLS I TSgref 

Switch  FLAGWRD1  bit  13  (ERADFLAG)  to  0 

TSt  = TIMENOW 

Perform  "N89DISP" 

P = ALPHAV  (scaled  B29) 

PIPTIME  = TSt 
Perform  "MOONMX" 

RLS  = [moonmat](p  - ([moonmat]^  m504)  * p) 

Proceed  to  "GOTOPOOH" 

KILLAOT  Switch  EXTVBACT  to  zero  (allow  extended  verbs) 

Proceed  to  "GOTOPOOH" 

IMUCHK  If  bit  9 of  IM0DES30  =1:  (IMU  off) 

Perform  "ALARM"  with  TS  = 0021  Og 
Proceed  to  "GOTOPOOH" 

Switch  FLAGWRDO  bit  8 (IMUSE)  to  1 
Return 
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Quantities  in  Computations 


IdPIPADT:  See  IMUC  section. 

ALPHAV:  See  COOR  section. 

ALT:  See  COOR  section. 

Al^G:  See  COOR  section. 

AOTAZ.,  AOTEL.  (i  = 1 ,2, 3, 4,5,6) : Twelve  single  precision  scalars 
stored  in  units  of  revolutions,  scaled  B-1  in  two's  complement 
form.  The  AOT  has  six  working  positions,  fixed  by  detents,-  defined 
by  angles  of  rotation  around  the  -X  spacecraft  axis,  measured 
from  the  +Z  spacecraft  axis  (AOTAZ ) and  by  angles  of  elevation 
above  the  Y-Z  plane  (AOTEL) . These  quantities  are  stored  in 
erasable  memory  because  their  exact  values  vary  among  spacecraft, 
but  the  nominal  values  are; 

i AOTAZ.  AOTEL. 

1 1 


1 

(left  forward) 

-60° 

45' 

2 

(forward) 

0° 

45' 

3 

(right  forward) 

60° 

45' 

4 

(right  rear) 

120° 

45' 

5 

(rear) 

180° 

45' 

6 

(left  rear) 

-120° 

45' 

AOTCODE:  A single  precision  scalar  containing  the  star  selection 
code  in  bits  6-1  (an  octal  number  from  1 to  45g  for  stars, 

0 for  a planet,  and  for  sun,  earth  and  moon),  and 

the  AOT  detent  code  in  bits  9-7  (l,2,3,4>5  or  6 for  AOT  detents; 

0 for  COAS  calibration;  7 for  COAS  position  to  be  specified.) 

AOTGOOD;  A flag  indicating  that  the  AOT  marking  procedure  wa.s 
successfully  executed.  (Implemented  as  a variable  return 
address  in  the  listing.) 

AZ,  EL;  Single  precision  angles  of  azimuth  and  elevation  of  the  COAS 
stored  in  units  of  revolutions,  scaled  B-1  in  two's  complement  form. 


BESTI;  Single  precision  value,  scaled  B14,  of  the  index  parameter  for 
star  #1  of  the  ‘•best"  star  pair  as  determined  by  ''R56".  It  is  the 
star  farthest  from  the  AOT  center  detent  position  and  will  be  zero 
if  no  star  pairs  are  found  that  are  satisfactory.  In  "R59"  it  is  the 
value  of  the  index  parameter  of  the  first  celestial  body  used  for 
marking  (if  two  bodies  are  to  be  used).  It  is  equal  to  six  times  the 
detimal  equivalentof  iha  "star  selection  code"  (sde  AOTCODE  definition 
and  the  Star.T^ble), 

BESTJ:  See  BESTI.  In  "R56"  it  is  the  index  parameter  for  star  #2 
which  is  the  closest  star  to  the  AOT  center  detent  position.  In 
"R59"  it  is  the  index  parameter  of  the  second  celestial  body  used 
for  marking  (if  two  are  to  be  used)  or  the  index  parameter  of  the 
single  body  being  used  (Technique  3 alignment). 
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C^DU:  See  COOR  section. 


CEARTH,  CMOON , CSUN;  Three  double  precision  cosines  defining  the 
areas  around  the  earth,  moon  and  sun  within  which  an  object 
to  be  marked  is  considered  to  be  occulted;  scaled  B2  and 
unitless. 

CURSOR:  Single  precision  angle  through  which  the  reticle  must  be 

rotated  to  place  the  cursor  on  a star  for  a given  viewing  position. 
Used  only  on  the  lunar  surface,  scaled  B-1  in  units  of  revolutions. 


[DCMATJ  : Double  precision  direction  cosine  matrix,  scaled  B1  and 
unitless.  When  multiplied  by  K:UNITX,  KrUNITY  and  K:UNITZ  it  is 
equivalent  to  the  program  notation  of  XDC,  YDC  and  ZDC  respectively. 

DELV;  See  SERV  section. 

DSPTEM1:  See  DATA  section. 

EXTVBACT:  See  EXVB  section. 

^CC:  Double  precision  sum  of  measured  gravity  vectors,  scaled  B13 
in  units  of  centimeters  per  second  squared  and  expressed  in 
stable  member  coordinates. 

GCOMP,  GCOMPSWr  See  IMUC  section. 

GCTR;  Single  precision  counter  scaled  BI4  and  unitless.  Set  to  -20 
in  "LUNG"  and  incremented  by  one  each  two  seconds  until  it  becomes 
zero,  thus  allowing  40  seconds  of  FIFA  readings  for  determination 
of  the  gravity  vector. 

GOUT:  Double  precision  unit  gravity  vector,  scaled  B1  and 
expressed  in  navigation  base  coordinates. 

GSAV:  Double  precision  storage  for  unit  gravity  vector  determined 
in  previous  pass  through  "F57" , scaled  B1  and  expressed  in 
navigation  base  coordinates. 

HAVEFAIR:  Single  precision  flag  to  indicate  whether  "R5I"  was 

successful  in  finding  a star  pair  adequately  separated  for  marking. 

IM0DES30,  IMUCADR,  ISSGOODtSee  IMUC  section. 

K:35DEG:  Single  precision  constant  stored  as  06211^  scaled  B-1  in 
units  of  revolutions.  Equation  value:  0 . 09793 •(  equivalent  to 
35.255  degrees.) 

K:42DEG:  Single  precision  constant  stored  as  07357^^  scaled  B-1  in 
units  of  revolutions.  Equation  value  0.11667  (equivalent  to 
42.001  degrees.) 

K:5DEGREES:  Double  precision  constant  stored  as  0.013888889, 

scaled  BO  in  iinits  of  revolutions.  Equation  value:  0.013888889. 
(Equivalent  to  5 degrees.) 
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K;AB0TJT1 : Double  precision  constant,  scaled  BO  in  \inits  of 
revolutions.  Equation  value:  0.99999999. 

KtCATLOG. : A list  of  thirty-seven  unit  vectors  defining  the 
position  of  stars  to  be  used  as  references  against  which 
star  sighting  meas\jreaents  can  be  compared,  scaled  B1  and 
unitless.  See  table  below. 

K:CSS33:  Double  precision  constant  stored  as  0.16070,  scaled 
B2  and  unitless.  Equation  value:  0.64280.  (Equivalent  to 
the  cosine  of  50  degrees) 

K:CSS40:  Double  precision  constant  stored  as  0.16070,  scaled  B2 
and  unitless.  Equation  value:  0.64280.  (Equivalent  to 
the  cosine  of  50  degrees) 

K:CSS5:  Double  precision  constant  stored  as  0.2490475,  scaled 
B2  and  unitless.  Equation  value:  0.99619.  (Equivalent 
to  the  cosine  of  5 degrees) 

K:CSSUN:  Double  precision  constant  stored  as  0.125,  scaled  B2 
and  unitless.  Equation  value:  0.5.  (Equivalent  to  the 
cosine  of  60  degrees) 

K:DEG.5:  Double  precision  constant  stored  as  0.00138888,  scaled 
BO  in  units  of  revolutions.  Equation  value:  0.00138888. 

K:DEG30:  Double  precision  constant  stored  as  0.083333333,  scaled 
BO  in  units  of  revolutions.  Equation  value:  0.083333333. 
(Equivalent  to  30  degrees) 

—1 L 

K:DEG359:  Single  precision  constant  stored  as  16338  x 2 scaled 
BO  in  units  of  revolutions.  Equation  value:  0.99719. 

(Equivalent  to  359  degrees) 


—1 L, 

K:DEGREE1:  Single  precision  constant  stored  as  46  x 2 , 

scaled  BO  in  \mits  of  revolutions.  Equation  value:  0.0028. 
(Equivalent  to  1 degree) 

K:lungt:  Implied  constant,  scaled  B-1  in  units  of  seconds 

Equation  value: 
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K:PRI03l!  See  SERV  section. 

K:r52el:  Single  precision  constant  stored  as  10000-,  program 

notation  "BIT13",  scaled  B-1  in  units  of  revolutions.  Equation 
value:  0.125.  (Equivalent  to  45  degrees) 

K:R0E:  Double  precision  constant  stored  as  0.00257125,  scaled  BO 
and  unitless.  Equation  value:  0.00257125.  (Equivalent  to  the 
ratio  of  the  mean  Earth  to  Moon  distance  to  the  mean  Earth  to 
Sun  distance) 

K:RSUBE:  Double  precision  constant  stored  as  6378166  x 2”^,  scaled 
B29  in  units  of  meters.  Equation  value:  6378166.  (Equivalent  to 
6378.166  km;  the  equatorial  radius  of  the  Earth) 

K:RSUBEM:  Double  precision  constant  stored  as  384402000  x 2”^,  scaled 
B29  in  units  of  meters.  Equation  value:  384402000.  (Equivalent  to 
384,402.0  km;  the  mean  distance  between  the  Earth  and  Moon) 

-20 

K:RSUBM:  Double  precision  constant  stored  as  1738090  x 2 , scaled 

B29  in  units  of  meters.  Equation  value:  1738090.  (Equivalent 
to  1738.09  km;  the  mean  radius  of  the  moon) 

K:TSIGHT1:  Double  precision  constant-  stored  as  36000  x 2 , 

scaled  B28  in  units  of  centiseconds.  Equation  value:  36000. 
(Equivalent  to  6 minutes) 

K:UNITX,  K:UNITY,  K;UNITZ:  See  SERV  section. 

K:VxxNxx:  See  Major  Veiriables  section. 

LANDLONG,  LANDLAT,  LANDALT:  Double  precision  locations  for  display 
of  LONG,  LAT  and  ALT  respectively  in  Noun  89. 

LAT,  LONG:  See  COOR  section. 

LM504:  See  COOR  section. 

LOG:  Single  precision  octal  storage  for  starting  address  of  an 
awakened  job. 

MARKCNTR:  Single  precision  counter  to  keep  track  of  the  number 
of  valid  marks  made  by  the  astronaut  and  to  limit  the  number 
allowed,  scaled  BI4  and  unitless. 

MARKSTAT:  Single  precision  address  storage  and  flagword.  The 
address  of  the  special  working  storage  area  assigned  to  the 
mark  system  is  kept  in  bits  9-1  of  MARKSTAT.  Bit  15  is 
always  0.  The  other  bits  have  the  following  significance: 
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Bit 

14 


13 


12 


11 

10 


Meaning 

(l)  A set  of  marks  Is  complete  and  the  next 
mark  Is  to  be  Interpreted  as  part  of  a 
new  set. 

(0)  A pair  of  marks  is  in  the  process  of  being 
executed  and  redundant  marks  will  not  be 
accepted. 

(1)  A mark  has  been  made  since  the  last  reject 
and  it  alone  will  be  cleared  if  a reject 
is  entered. 

(0)  If  a reject  is  entered,  both  marks  will 
be  cleared. 

(1)  The  processing  of  marks  and  mark  rejects 
in  the  "MARKRUPT"  routine  is  inhibited 
because  the  parameters  needed  for  inter- 
pretation of  marks  have  not  yet  been 
initialized,  or  the  astronaut  has  indi- 
cated that  he  is  finished  taking  marks. 

(0)  The  processing  of  marks  is  allowed. 

(1)  The  Y mark  of  a pair  has  been  accepted. 

(0)  The  Y mark  of  a pair  has  not  yet  been 

accepted, 

(1)  The  X mark  of  a pair  has  been  accepted. 

(O)  The  X mark  of  a pair  has  not  yet  been 

accepted. 


MARKVAC:  Single  precision  storage  for  two's  complement  values  of 
gimbal  angles  from  the  CDU  at  the  time  of  each  of  the  X and  Y 
marks  taken,  for  use  in  constructing  the  line-of-sight  vector 
at  each  mark  and  determining  the  average  line-of-sight  vector, 
scaled  B-1  in  units  of  revolutions. 


MARKVACj_Q^g^_l_^  Single  precision  storage  for  CURSOR  and  SPIRAL 

angles  respectively,  indexed  such  that  up  to  five  sets  of  angles 
can  be  stored  for  use  in  determining  the  average  line-of-sight 
vector.  Storage  locations  actually  used  are  those  normally  re- 
served for  Y-mark  CDU  information.  (Only  X-mark  information  is 
used  on  the  lunar  surface.)  Scaled  B-1  in  units  of  revolutions. 


MKDEX;  Single  precision  index  scaled  B14  and  unitless,  or  B3  and 
iinitless. 

[m00NMAt3  : See  COOR  section. 

MPAC:  See  MATX  section. 


n:  Single  precision  integer  scaled  BI4. 

fuBSHMAT^  : See  COOR  section. 

OGC,  IGC,  MGC:  See  COOR  section. 


OPTCADR:  Single  precision  octal  storage  for  address  to  return  to 
program  that  has  requested  marking  and  is  waiting  for  the  marking 
to  be  completed. 
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0PTI0N1,  0PTI0N2,  0PTI0N3:  See  DATA  section. 

PBODY:  See  ORBI  section. 

PIPA:  See  IMJC  section. 

PIPTIME:  See  SERV  section. 

PLANVEC : Double  precision  unit  vector  in  the  direction  of  the 
first  celestial  body  to  be  used  for  marking,  scaled  B1  and 
expressed  in  reference  coordinates. 

TOINTVSM:  See  ATTM  section. 

POSCODE:  Single  precision  counter  to  indicate  the  position  of 
the  AOT.  Changed  to  the  appropriate  detent  code  in  "79DISP"j 
scaled  B14  and  unitless. 


QMAJ,  QMINr  Single  precision  octal  return  address  storage  cells. 
QMIN  is  also  used  as  temporary  working  storage . 

MTT:  See  ORBI  section. 


[^REFSMMAT^  : See  COOR  section. 


J^RFSTMAt]  : Double  precision,  3x3  matrix  such  that  A . = ^RFSTMAtJ 

where  A is  a vector  expressed  in  " llne-of-sight"  ana  reference 
coordinates  respectively;  scaled  B1  and  unitless. 


^ef  ’ 


RLS:  See  DESC  section. 


M:  See  SERV  section. 


RRECTCSM:  See  ORBI  section. 

SAX:  Double  precision  unit  vector  in  the  direction  of  the 
llne-of-sight  of  the  AOT  center  position,  scaled  B1  and 
expressed  in  reference  coordinates. 


S^CAXIS:  See  ATTM  section. 

j^SMNBMA"^  : See  COOR  section. 

rSMSTMA"^  ; Double  precision, 
A = [SMSTMA.gA  where 
" ?ine-of-sight"  anl^stable 
scaled  B1  and  unitless. 


3x3  matrix  defined  such  that 
A is  a vector  expressed  in 
member  coordinates  respectively; 


SPIRAL:  Single  precision  angle  through  which  the  reticle  must  be 
rotated  to  place  the  spiral  on  a given  star.  Used  only  on 
the  lunar  surface,  scaled  B-1  in  units  of  revolutions. 


ALIN  - 42 


STAR:  Line-of-sight  vector  to  a star,  expressed  in  navigation 

base  coordinates.  Also  temporary  storage  for  ^CC  in  "ADDGRAV" . 

STARAD„,  STARAD,:  Double  precision  unit  vectors  used  primarily^ 
for^storage  of  measured  position  vectors  of  the  two  celestial 
bodies  being  marked  and  expressed  in  stable  member  coordinates. 
Also  used  as  working  storage  for  other  occasions. 

STARAD^2*  Double  precision  unit  vector  used  for  working  storage. 

STARIND:  Single  precision  index  scaled  B14  and  unitless. 

STARSAV1 , S^TARSAV2:  Double  precision  vectors  scaled  B1  and  unlt- 

~ less.  Used  to  store  the  two  "measurement"  vectors  for 
comparison  with  two  "reference"  vectors  to  determine  IMLf 
alignment.  Expressed  in  stable  member  coordinates. 

TALIGN:  Double  precision  time  for  determination  of  IMQ  alignment, 
scaled  B28  in  units  of  centiseconds . 

TDEC1 : See  ORBI  section. 

THETA:  See  COOR  section. 

THETAD:  See  IMQC  section. 

TIG:  See  BURN  section. 

TIMENOW:  See  EXVB  section. 

TLAND;  See  DESC  section. 

TSIGHT:  Double  precision  time  of  latest  sighting,  scaled  B28 
in  units  of  centiseconds. 

UIP,  UTP:  Double  precision  vectors  expressed  in  navigation  base 
coordinates,  scaled  B1  and  unitless.  Unit  vectors  perpendicular 
to  the  planes  whose  images  in  the  ACT  eyepiece  coincide  with 
the  horizontal  (X)  and  vertical  (Y)  crosshairs.  The  inter- 
section of  these  planes  determines  the  line-of-slght  vector 
to  the  star  being  marked. 

inP',  UYP':  Double  precision  vectors  expressed  in  navigation 
base  coordinates,  scaled  B1  and  unitless.  Unit  vectors 
perpendicular  to  the  AOT  line-of-sight  and  to  the  horizontal 
(l)  and  vertical  (Y)  crosshairs  in  the  AOT  eyepiece  reticle. 

Each  defines  one  of  two  planes  whose  Intersection  determines 
the  line-of-sight  vector  to  the  image  of  a star  in  the  AOT 
eyepiece.  Because  of  the  construction  of  the  AOT  (a  rotating 
shaft  above  a fixed  mirror),  the  field  of  view  rotates  about 
the  line-of-sight  vector  as  the  AOT  shaft  rotates  about  the  -I 
spacecraft  axis. 


ALIN  - 43 


VATT:  See  ORBI  section. 


VEARTH,  ^OON,  VSUN:  Double  precision  vuiit  vectors  in  the  direction 
of  the  earth,  moon  and  sun  with  origin  at  the  spacecraft,  scaled 
B1  and  expressed  in  reference  coordinates.  (Origin  also  at 
the  earth  or  moon) 

¥EC1,  YEC2;  See  COOR  section. 

VRECTCSM:  See  ORBI  section. 

BXJ,  YDC,  ZDC;  In  "P52D''  these  are  the  desired  stable  member 
unit  vectors  in  present  stable  member  coordinates.  They  are 
also  the  x,y  and  z components  of  [dCMAT] . 

XNBrf,  YNBrf,  ^Brf,  3^sm,  IWBsm,  ^Bsm:  See  COOR  section. 

ffiMrf,  YSMrf,  ZSMrf:  See  COOR  section. 

XSMDrf,  YSMDrf,  ZSMDrf:  See  COOR  section. 

[XSMDMA!^  or  [XSMD] : Double  precision,  3x3  matrix  defined  such  that 
Asmd  = [XSMDMA^  4^6f , where  A is  a vector  expressed  in  desired 
stable  member  coordinates  and  reference  coordinates  respectively 
scaled  B1  and  unitless.  The  components  are  ^MDrf,  YSMDrf 
and  ZSMDrf. 

XYMARK:  Single  precision  octal  storage  for  bit  indicating  whether 
mark  being  processed  is  an  X or  a Y mark,  or  working  storage 
for  other  occasions. 

YNBSAV,  aJBSAV:  Double  precision  unit  vectors  in  the  directions  of 
the  Y and  Z navigation  base  axes,  scaled  B1  and  expressed  in 
moon-fixed  coordinates. 
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Values  of  KtCATLOG^  (Star  Table) 


Display  Index 


X Coipponent  Y Component 


Z Component 


Identification 


01 

1 

02 

2 

03 

3 

04 

4 

05 

5 

06 

6 

07 

7 

10 

8 

11 

9 

12 

10 

13 

11 

14 

12 

15 

13 

jl6 

14 

17 

15 

20 

16 

21 

17 

22 

18 

23 

19 

24 

20 

25 

21 

26 

22 

27 

23 

30 

24 

31 

25 

32 

26 

33 

27 

34 

28 

35 

29 

36 

30 

37 

31 

4C 

32 

41 

33 

42 

34 

43 

35 

4A 

36 

45 

37 

0.8748658918 

0.9342640400 

0.4775639450 

0.4917678276 

0.0130968840 

0.5450107404 

0.7032235469 

0.4105636020 

0.3507315038 

0.2011399589 

0.1371725575 

-0.0614937230 

-0.1820751783 

-0.4118589524 

-0.3612508532 

-0.4657947941 

-0.7742591356 

-O.86O8205219 

-0.9656605484 

-0.9525211695 

-0.4523440203 

-0.9170097662 

-0.5812035376 

-0.6898393233 

-0.7861763936 

-0.5326876930 

-0.3516499609 

-0.1146237858 

-0.1124304773 

0.1217293692 

0.2069525789 

O.45371969O8 

0.5520184464 
O.3201817378 
O.454IO86270 
0.8139832631 
0 . 8342971408 


0.0260879174 

0.1735073142 

0.1166004340 

0.2204837125 

0.0078062795 
0.5314955466 
0.7075846047 
0.4988110001 
0.8926333307 
0.9690337941 
0,6813721061 
0.6031563286 
0.9404899869 
0.9065485360 
0 . 5747270840 
0.4774785033 
0.6152504197 
0.4636213989 
0.0525933156 
-0.0593434796 
-0.0493710140 
-0.3502146628 

-0.2909171294 

-0.4182330640 

-0.5217996305 

-0.7160644554 

-0.8240752703 

-0.3399692557 

-0.9694934200 

-0.7702732847 

-0.8719885748 

-0.8779508801 

-0.7933187400 

-0.4436021946 

-0.5392368197 

-0.5557243189 

-0.2392481515 


0.4836621670  o(  Andromedae 
-0.3115219339  Ceti 
. O.87O82548O3  y Cassiopeiae 
-0.8423473935  <X  Eridani 
0.9998837600  c<  Ursae  Kinoris 
-0.6484410356  0 Eridani 
0.0692868685  cC  Ceti 

0.7632988371  <^Persei 
0.2831839492  Tauri 
-0.1432348512  fi  Orionis 
0.7189685267  <X  Aurigae 
-0.7952489957  ^ Carinae 
-0. 2869271926  Canis  Majoris 

0.0924226975  Canis  Minoris 

-0.7342932655  '/Velorum 
0.7450164351  ^ Ursae  liajoris 
-0.1482892839  Hydrae 

0.2098647835  Leonis 
O.254428O8O9  Leonis 
-0.2986331746  7 Corvi 

-0.8904759346  <ACrucis 
-O.I9O8999176  '<Virginis 
O.75998OO468  Ursae  Majoris 
-0.5909338474  C*  Centauri 
0.3311371675  <^Bootis 
0.4511047742  Coronae  Borealis 
-0. 4441196390  'X  Scorpii 
-0. 9334250333  <>5  Trianguli  Australis 
0 . 2178116072  ^ Ophiuchi 
0.6259880410  ‘A  Lyrae 
-0 .4436288486  Sagittarii 
0.1527766153  ^AAquilae 

-0. 2567508745  ^ Capricorni 
-0.8370786986  eX  Pavonis 
0.7092312789  A Cygni 
0.1691204557  =?'  Pegasi 
-0 .4966976975  Piscis  Austrini 


The  "Display"  column  gives  the  star  number  that  is  displayed  by  the 
program  (as  an  octal  quantity).  The  "Index"  column  is  the  decimal 
equivalent  of  the  "Display"  colijmn  and  when  multiplied  by  six  is 
eqixal  to  BESTI  (or  BESTJ). 
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Stars  in  Star  Table 


Display 

Name 

Catlg. 

Magnitude 

Right 

Ascension 

Declination 

01 

Alpheratz 

C{  And 

2.1 

0 

06 

49.9 

+28 

55 

29 

02 

Diphda 

^ Cet 

2.2 

0 

42 

05.0 

-18 

09 

04 

03 

Navi 

7 Cas 

Var. 

0 

54 

53.0 

+60 

33 

17 

04 

Achernar 

Eri 

0.6 

1 

36 

35.9 

-57 

23 

20 

05 

Polaris 

« UMi 

2.1 

2 

03 

18.9 

+89 

07 

34 

06 

Acamar 

6 Eri 

3.4 

2 

57 

07.4 

-40 

25 

27 

07 

Menkar 

Cet 

2.8 

3 

00 

42.5 

+ 3 

58 

23 

10 

Mirfak 

^ Per 

1.9 

3 

22 

10.3 

+49 

45 

21 

11 

Aldebaran 

^ Tau 

1.1 

4 

34 

11.8 

+16 

27 

01 

12 

Rigel 

^ Ori 

0.3 

5 

13 

05.7 

- 8 

14 

06 

13 

Capella 

Aur 

0.2 

5 

14 

28.2 

+45 

58 

10 

14 

Canopus 

Car 

-0.9 

6 

23 

17.1 

-52 

40 

44 

15 

Sirius 

CMa 

-1.6 

6 

43 

49.6 

-16 

40 

25 

16 

Procyon 

c4  cMi 

0.5 

7 

37 

43.9 

+ 5 

18 

11 

17 

Regor 

T Vel 

1.9 

8 

08 

36.4 

-47 

14 

51 

20 

Dnoces 

t UMa 

3.1 

8 

57 

09.7 

+48 

09 

38 

21 

Alphard 

Hya 

2.2 

9 

26 

06.8 

- 8 

31 

40 

22 

Regulus 

(<  Leo 

1.3 

10 

06 

46.5 

+12 

06 

52 

23 

Denebola 

P Leo 

2.2 

11 

47 

31.8 

+14 

44 

23 

24 

Gienah 

7 Crv 

2.8 

12 

14 

15.6 

-17 

22 

32 

25 

Acrux 

Cru 

1.0 

12 

24 

54.9 

-62 

55 

59 

26 

Spica 

c<  vir 

1.2 

13 

23 

36.6 

-11 

00 

19 

27 

Alkaid 

UMa 

1.9 

13 

46 

21.6 

+49 

27 

45 

30 

Menkent 

6 Cen 

2.3 

14 

04 

54.6 

-36 

13 

23 

31 

Arcturus 

^ Boo 

0.2 

14 

14 

17.5 

+19 

20 

16 

32 

Alphecca 

CrB 

2.3 

15 

33 

25.0 

+26 

48 

53 

33 

Antares 

Sco 

1.2 

16 

27 

33.9 

-26 

22 

01 

34 

Atria 

o<  TrA 

1.9 

16 

45 

28.3 

-68 

58 

31 

35 

Rasalhague 

^ Oph 

2.1 

17 

33 

32.4 

+12 

34 

50 

36 

Vega 

Lyr 

0.1 

18 

35 

55.3 

+38 

45 

17 

37 

Nunki 

O'  Sgr 

2.1 

18 

53 

24.3 

-26 

20 

08 

40 

Altair 

Aql 

0.9 

■ 19 

49 

19.1 

+ 8 

47 

16 

41 

Dabih 

P Cap 

3.2 

20 

19 

19.6 

-14 

52 

38 

42 

Peacock 

o<  Pav 

2.1 

20 

23 

17.0 

-56 

49 

58 

43 

Deneb 

^ Cyg 

1.3 

20 

40 

24.4 

+45 

10 

21 

44 

Enif 

£ Peg 

2.5 

21 

42 

42.7 

+ 9 

44 

12 

45 

Fomalhaut 

PsA 

1.3 

22 

55 

59.7 

-29 

46 

54 

"Display"  gives  the  star  number  that  is  displayed  by  the  program  (as  an 
octal  quantity).  "Catlg"  refers  to  the  name  on  pp.  282-292  of  "The 
American  Ephemeris  and  Nautical  Almanac  for  the  Year  1970,"  where  the 
magnitude  and  coordinate  information  were  obtained . 

Right  ascension  is  given  in  hours j minutes,  and  seconds;  Declination  is 
given  in  degrees,  minutes,  and  seconds.  Both  are  for  January  O.767,  1970, 
the  beginning  of  the  Besselian  year. 


ALIN  - 46 


ASCT 


Ascent  Guidance 


P121M  Perfora  "R02B0TH" 

Switch  RADMODES  bit  10  (DESIGFLG)  and  bit  15  (CDESFIAG)  to  0 
Switch  bit  2 of  channel  12  to  0 (disable  RRCDU  error  counters) 
DVTHRUSH  = K:THRESH2 
DVCNTR  = 4 
TRKMKCNT  = 0 

Proceed  to  "GOFIASH"  with  TS  = K;V06N33  (TIG) 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  continue 
with  next  step;  if  other  response,  repeat  this  step.) 

Switch  FIAGWRD6  bit  8 (MUNFLAG)  to  1 

Switch  DAPBOOLS  bit  11  (ACC40R2X)  to  1 

Switch  FLAGWRDO  bit  2 (RIOFLAG)  to  1 

Switch  FLAGWRDO  bit  7 (RNDVZFLG)  to  0 

Switch  FLAGWRD9  bit  11  (FLPI)  to  1 

Switch  FLAGWRD9  bit  14  (FLVR)  to  1 

TSt  = TIMENOW 

Perform  "MOONMX" 

TS  = QmOONMAT]'^  (K:UNITZ  + m504  # KrUNITZ) 

WM  = K:M00NRATE  [rEFSMMAT]!  TS 
LANDMAG  = |rLs| 

Perform  "P12INIT"  (initialize  APS  parameters  and  ascent 

targets) 

TGO  = K:TG0A 
TDEC1  = TIG 
Perform  "LEMPREG" 

VIS  = j^FSMMA^  VATT 

R = [^fsmmat]  mTT 
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Perform  "MJNGRAV"  with  TSr  = R 
UNITE  = unitR 

Y = RCO  (UNITE  • ^IS) 

XRANGE  = - Y 

ZDOTD  = KrVINJNOM 
RDOTD  = KrRDOTDNOM 

Proceed  to  "GOFIASH"  with  TS  = K:V06N76  (ZDOTD,  RDOTD,  XRANGE) 
(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  continue 
with  next  step;  if  other  response,  repeat  this  step.) 

WHICH  = "P12TABLE" 

YCO  = XRANGE  + Y 

V = Kr49FPS  UNITE  + VIS 
RDOT  = V • piTR 

mis  = unit(piTR  * ^XIS) 

Proceed  to  "ASCENT”  (calculate  initial  guidance  quantities) 

P12RET  TS  = (ATP)^  + (ATY)^ 

If  TS  = 0,  skip  next  step 
TS  = arcsin(ATY  / VtS  ) 

YAW  = TS 

PITCH  = - arccos(piTR  • unitpFC) 

Perform  "PFLITEDB"  with  interrupts  inhibited 
Switch  FLAGWRD9  bit  11  (FLPI)  to  0 
Proceed  to  "BURNBABF 

(standard  pre-ignition  sequence;  Initializes  average-g 
navigation  at  TIG-30  seconds  and  calls  "P12IGN"  at  time  of 
ignition  which  sets  AVEGEXIT  to  "ATMAG"  establishing  the 
two  second  guidance  loop.  See  BURN  section  for  details.) 
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P70 

P70A 

P71 

UlA 


ABRTJASK 


If  MODREG  = MMNUMBER  or  FLAGWRD9  bit  9 (LETABORT)  = 0 or 
FLAGWRD7  bit  5 (AVEGFLAG)  =0; 

Proceed  to  "ABORTALM" 

TS  = 0 

Proceed  to  the  second  step  of  "P71A" 

If  MODREG  = MMNUMBER  or  FLAGWRD9  bit  9 (LETABORT)  = 0 or 
FLAGWRD7  bit  5 (AVEGFLAG)  = 0: 

Proceed  to  "ABORTALM" 

TS  = 2 

Inhibit  interrupts 

Cause  the  "Resume"  instruction  to  resume  operations  at  "ABRTJASK" 
Resume 

(The  purpose  of  the  above  manipulation  of  the  "Resume"  instruction 
is  to  cause  the  instructions  beginning  at  "ABRTJASK"  to  be 
performed  immediately.  "ABRTJASK"  will  appear  as  a task  to 
all  other  jobs,  i.e.  "ABRTJASK"  will  be  performed  prior  to  the 
performance  of  any  other  job.  Note  also  that  "ABRTJASK"  is 
performed  under  interrupt  inhibit  so  that  no  tasks  which  are 
scheduled  on  program  interrupts  will  be  performed  until  after 
"ABRTJASK"  is  completed.) 

TSa  = 70 

If  TS  i 0: 

TSa  = 71 

Switch  FLGWRD10  bit  13  (APSFLAG)  to  1 (tell  DAP  we  are 

on  ascent  stage) 

MODREG  = TSa 

DISPDEX  = TSa  (positive  to  kill  "CLOKTASK") 

Switch  DAPBOOLS  bit  6 (ULLAGER)  to  0 
Switch  DAPBOOLS  bit  8 (DRIFTBIT)  to  0 

Switch  DAPBOOLS  bit  9 (XOVINHIB)  to  0 (allow  X-axis  override) 
Switch  DAPBOOLS  bit  15  (PULSES)  to  0 
DB  = K:1DEGDB 
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GOABORT 


Switch  FLAGWRD5  bit  7 (ENGONFLG)  to  1 

Switch  bits  14  and  13  of  channel  11  to  01  ^ (ensure  engine  cn) 
Switch  FLGWRD11  to  40000g  (bypass  LR  updates) 

Switch  FLAGWRDO  bit  2 (RIOFLAG)  to  1 
TEVENT  = TIMENOW 
AVEGEXIT  = "SERVEXIT" 

Establish  "GOABORT"  in  restart  logic  with  priority  25g 
Cause  "ENEMA"  to  maintain  "SERVICER"  and  "R10,R11" 

Clear  all  other  restart  logic 
Proceed  to  "ENEMA" 

DVCNTR  = 4 
WHICH  = "ABRTABLE" 

Switch  FLAGWRD9  bit  10  (FLRCS)  to  0 
Switch  FLAGWRD8  bit  10  (FLUNDISP)  to  0 
Switch  FLAGWRD7  bit  7 (IDIEFLAG)  to  0 
Switch  DAPBOOLS  bit  11  (ACC40R2X)  to  1 
Switch  FLAGWRD9  bit  13  (P7071FLG)  to  1 
Perform  "INITCDUW" 

If  MODREG  = 70:  (P70) 

TGO  = TIMENOW  - TIG 

TBUP  = MASS  / K:MD0TDPS 

DV1  = (MASS  / K:DVD)  / K:2SEC 

DV2  = DV1 

DV3  = DV1 

AT  = K:ATD  / DV1 

TTO  = K:100PCTT0 

m - - K:DPSVEX 


ASCT  - 4 


(If  MODREG  = 70; ) 

Perform  "COMMINIT"  (initialize  ascent  targets) 

Proceed  to  "INJTARG" 

Switch  FLAGWRD9  bit  9 (LETABORT)  to  0 
DVTHRUSH  = K;THRESH2 
Perform  "P12INIT" 

If  FLAGWRD9  bit  8 (FLAP)  = 1; 

TG01  = 2 TGO 
TGO  = TG01 

Proceed  to  the  third  step  of  "UPTHROT" 

TGO  = TIMENOW  - TIG 
INJTARG  RDOTD  = ABTRDOT 

Y = RCO  (raiTR  • ^XIS) 

TS  = |y|  - YLIM 

If  TS  > 0,  ICO  = TS  sign! 

XRANGE  = ICO  - I 

Switch  FLAGWRD9  bit  14  (FLVR)  to  1 
TS  = (unitRCSM  * unitR)  • ^ 

TS1  = signTS  arccos( unitRCSM  • unil^) 

If  TS1  :^THETCRIT: 

Switch  FUGWRD9  bit  7 (ABTTGFLG)  to  1 
JPARM  = J2PAKM 
KPARM  = K2PARM 

RP  = THETCRIT  (2^^  meters/revolution)  (this  step  included  only 

because  of  coding 

If  TS1--i  THETCRIT:  efficiency) 

JPARM  = J1PARM 
KPARM  = KIPARM 

RP  = J2PARM  (this  step  included  only  because  of  coding 

efficiency) 
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RP  = RCO 


UFTHROT 


THROTUP 


P12INIT 


COMMINIT 


Switch  FLAGWRD9  bit  6 (ROTFUG)  to  1 
Perform  "THROTUP" 

Switch  FLAGWRD9  bit  8 (FLAP)  to  1 
Perform  "P40AUT0" 

Perform  "THROTUP" 

Change  job  priority  to  17 
AVEGEXIT  = "ATMAG" 

End  job 

THRUST  = KrMAXTHRUST 

Switch  bit  4 of  channel  14  to  1 

Return 

DV3  = KrDVA 

DV2  = K:DVA 

DV1  = KrDVA 

AT  = KrATA 

TBUP  = KtTBUPA 

TTO  = - KrATDECAY 

VE  = - K:APSVEX 

If  FLAGWRD9  bit  8 (FLAP)  = 1,  return 

RCO  = KrHINJECT  + LANDMAG 

TXO  = 0 

YCO  = 0 

YDOTD  = 0 

QAXIS  = unit(  [rEFSMMAT^  (TOECTCSM  * pECTCSM) 
Return 


(pr17) 
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ABORTALM  Switch  bit  7 of  channel  1 1 to  1 


(turn  on  Operator  Error  lamp 


Perform  "RELDSP" 

Proceed  to  "PINBRNCH" 

ATMAG  (Entered  via  AVEGEXIT  at  the  end  of  each  "SERVICER"  cycle) 

RDOT  = HDOTDISP  (documentation  convenience;  RDOT  and 

_ Tm-7'D  HDOTDISP  are  the  same  cells  in  the 

ZAXIb  l^HZP  computer;  as  are  ZAXIS  and  IHIZP  and 

^IS  = IJHYP  ^IS  and  UHYP) 

If  FLAGWRD9  bit  10  (FLRCS)  = 1: 

Proceed  to  "ASCENT" 

If  ABDVC0NV<  KrMINABDV: 

Perform  "STOPRATE"  with  interrupts  inhibited 
Proceed  to  "ASCTERM1" 

Switch  FLAGWRD8  bit  8 (SURFFLAG)  to  0 
Switch  FLAGWRD5  bit  1 (RENDWFLG)  to  0 
DVO  = DV1 
DV1  = DV2 
DV2  = DV3 

DV3  = K:0NE  / ABDVCONV 

TS  = (DVO  + DV1  + DV2  + DV3)  VE  K:2SEC9  / 4 
TBUP  = (TS  + TBUP  - K;6SEC18)  / 2 
AT  = VE  / TBUP 
ASCENT  RMAG  = | R | 

ZDOT  = ^IS  . V 
lAXlS  = ^IS  * UNITR 
YDOT  = I^IS  • -V 
Y = RCO  (piTR  . ^IS) 

GEFF  = (GDT1  / K:2SEC18)  • piTR  + (jpiTR  * v|^  / RMAG) 
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MAINENG 


If  FULGWRD9  bit  13  (PVOVIFLG)  « 1,  perform  ■ZDOTDCMP" 

D2DOT  = ZDOTD  - ZDOT 
DYDOT  = YDOTD  - YDOT 
DRDOT  = RDOTD  - RDOT 

VGVECT  = DRDOT  piTR  + DYDOT  IMIS  + DZDOT  miS 
VGVECT  = VGVECT  - i TGO  GEFF  UNITE 
VGBODY  = [^PI^  VGVECT 
If  FLAGWRD9  bit  10  (FLRCS)  = 1 : 

TGO  = I VGVECT I / K:ATRCS 
PCONS  = 0 
PRATE  = 0 
Perform  ''RPC0MP2'' 

End  job 

TS1  = I VGVECT  I / VE 

TGO  = TBUP  TS1  (1  - 0.5  TS1 ) - TTO 

TTOGO  = - TGO 

If  FLAGWRD7  bit  7 (IDLEFLAG)  = 0: 

If  TGO  < K:4SEC17: 

TS  = - (TIMENOW  - PIPTIME  + TTOGO ) 

If  TS  ^ 0,  TS  = 1 
ENGOFFDT  = TS 

Call  "ENG0FF1 " in  ENGOFFDT  centiseconds 
Switch  FLAGWRD7  bit  7 (IDLEFLAG)  to  1 
If  TGO  < K;T2A: 

Proceed  to  "CMPONENT" 

TS  = (TBUP  - TGO)  / TBUP 
TSa  = - logg(TS) 
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D12  = TBUP  - (TGO  / TSa)  - 

If  FLAGWRDg  bit  12  (FLPC)  = 1: 

PRATE  = 0 
YRATE  =0 
Proceed  to  "CONST" 

If  TGO  < K:T3: 

Switch  FLAGWRD9  bit  12  (PLPC)  to  1 

PRATE  = 0 

lElATE  = 0 

Proceed  to  "CONST" 

D21  = TGO  - D12 
TSe  = i TGO  - D21 

PRATE  = (DRDOT  D21  + TGO  RDOT  + RMAG  - RCO)  / (TSe  TGO) 
YRATE  = (DYDOT  D21  + TGO  YDOT  + Y - YCO)  / (TSe  TGO) 

If  PRATED  0; 

PRATE  = 0 
Proceed  to  "CONST" 

If  PRATE  / TBUP  <K:PRLIMIT: 

PRATE  = KrPRLIMIT  TBUP 
CONST  PCONS  = (DRDOT  / TSa)  - PRATE  D1 2 
YCONS  = (DYDOT  /TSa)  - YRATE  D1 2 
CMPONIMT  If  rLAGWRD9  bit  13  (P7071FLG)  = 1,  perform  •’RPC0MP2" 

ATR  = {(K:100CS  PRATE  + PCONS ) / TBUp}  - GEFF 
ATY  = (K:100CS  YRATE  + YCONS ) / TBUP 
m = ATY  LAXIS  + ATR  MITR 
AHMAG  = I AH  I 
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ATPSQ  « (AT)^  - (AHMAG)^ 

If  ATPSQ  <0; 

AH  = (AT  / AHMAG)  AH 
ATP  = 0 
Skip  next  step 
ATP  = V ATPSQ  sign(DZDOT) 

PPC  = ATP  ZAXIS  + m 
If  FLAGWRD9  bit  11  (FLPI)  = 1 : 

Proceed  to  "PI 2RET" 

If  FLAGWRD9  bit  U (PLVR)  = 1 : 

If  RMAG  - LANDMAG  <K:25KFT; 

Switch  DAPBOOLS  bit  9 (XOVINHIB)  to  1 
TS  = unit (ATI  LAXIS  + ATP  ZAXIS) 

If  RDOT  ^ K;40FPS: 

PWC  = TS 
MFC  = UNITE 
Proceed  to  "ASCTERM" 

Switch  FLAGWRD9  bit  6 (ROTFLAG)  to  0 
Switch  FLAGWRD9  bit  14  (FIVE)  to  0 
If  FLAGWRD9  bit  6 (ROTFLAG)  = 0: 

TXO  = PIPTIME  + K-.IOSECS 
UNWC  = - MITE 
If  TXO  > PIPTIME: 

Proceed  to  "ASCTERM" 
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If  FIAGWRD9  bit  6 (ROTFIAG)  = 1 : 


ASCTERM 


ASCTERM1 


ENGOFF1 


TS  = (unitnNFC  • pBPIP)  - COSTHET1 
If  TS  <0: 

TS  = (pBPIP  • MITR)  - C0STHET2 
If  TS  4£l0: 

UNFC  = UNITE 
Proceed  to  "ASCTERM" 

Switch  FUGWRD9  bit  6 (ROTFIAG)  to  0 
Switch  DIPBOOLS  bit  9 (lOVINHIB)  to  0 (allow  x-axls  oTerrlda) 

If  FLAGWRD9  bit  13  (P7071FLG)  = 0: 

Switch  FLAGWRD3  bit  11  (N0R29FLG)  to  0 

If  FIAGWRD9  bit  10  (FlilCS)  = 1r 
End  job 

Perform  "FINDCDUW" 

If  FLAGWRD9  bit  10  (FLRCS)  =1: 

End  job 

If  FLAGWRD8  bit  10  (FLUNDISP)  = 1r 
End  job 

Proceed  to  "GODSP"  with  TS  = K:V06N63  (ABVEL,  HDOTDISP,  HCALCI  ) 

Perform  "ENGIN0F2" 

Establish  "CUTOFF"  (pr17) 

End  task 
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CUTOFF  Switch  FLAGWRD9  bit  10  (FLRCS)  to  1 


TERMASC 


RPG0MP2 


ZDOTDCMP 


Proceed  to  "GOFLASH"  with  TS  = K;V16N63  (ABVEL,  HDOTDISP,  HCALC1 ) 
(If  terminate,  proceed  to  "TERMASC";  if  proceed,  continue 
with  next  step;  if  other  response,  repeat  this  step.) 

Inhibit  interrupts 

Perform  "ZATTEROR" 

Perform  "SETMINDB" 


Release  interrupt  inhibit 

Proceed  to  "GOFLASH"  with  TS  = K:V16N85  (VGBODY) 

(If  terminate,  proceed  to  "TERMASC";  if  proceed,  proceed 
to  "TERMASC";  if  other  response,  repeat  this  step.) 


Inhibit  interrupts 
Perform  "RESTORDB" 


Switch  FLAGWRD9  bit  9 (LETABORT)  to  0 


Release  interrupt  inhibit 
Proceed  to  "GOTOPOOH" 


RP  RMAG  + RDOT  TGO  + 


PCONS  TGO^ 
2 TBUP 


PRATE  TGO^ 
6 TBUP 


Retiim 


TS  = (unitRCSM  # unitR)  . ^ 

TS1  = slgnTS  arccos(unltRCSM  • unitR) 

RA  = JPARM  + KPARM  TS1  - RP 

If  RA<  RAMIN,  RA  = RAMIN 

ZDOTD  = \l  2 K:MUMm37  RA  / (RA  + RP)  RP 

Ret\im 
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Quantities  in  Computations 


ABDVCONV:  Double  precision  magnitude  of  sensed  change  in  velocity 
converted  to  units  of  meters  per  centisecond  and  scaled  B5. 

ABRTABLE;  see  WHICH  of  the  BURN  section. 

ABTRDOT:  Double  precision  erasable  memory  constant  representing  the 
radial  rate  required  at  insertion  for  aborts  from  powered  descent, 
scaled  B7  in  units  of  meters  per  centisecond. 

ABVEL:  see  SERV  section. 

AH;  Double  precision  intermediate  computation,  scaled  B-9  in  units 
of  meters  per  centisecond  squared. 

AHMAG;  Double  precision  intermediate  computation,  scaled  B-9  in 
units  of  meters  per  centisecond  squared. 

AT:  Double  precision  LM  thrust  acceleration  magnitude,  scaled  B-9 
in  units  of  meters  per  centisecond  squared. 

ATP:  Double  precision  intermediate  computation,  scaled  B-9  in  units 
of  meters  per  centisecond  squared. 

ATPSQ:  Double  precision  intermediate  computation,  scaled  B-18  in 
units  of  meters  squared  per  centiseconds  to  the  fourth  power. 

ATR:  Double  precision  required  radial  acceleration,  scaled  B-9  in 
units  of  meters  per  centisecond  squared. 

ATY;  Double  precision  required  crossrange  acceleration,  scaled  B-9 
in  units  of  meters  per  centisecond  squared. 

AVEGEXIT:  see  SERV  section. 

C0STHET1 r Double  precision  erasable  memory  constant,  scaled 
B2  and  unitless. 

C0STHET2:  Double  precision  erasable  memory  constant,  scaled  B2  and 
unitless . 

DAPBOOLS;  see  DAPA  section. 

DB:  see  DAF6  section. 

DISPDEX:  see  BURN  section. 

DRDOT,  DYDOT,  DZDOT:  Double  precision  velocity-to-be -gained  components 
in  the  radial,  crossrange,  and  downrange  directions  respectively, 
scaled  B7  in  units  of  meters  per  centisecond. 

DVCNTR:  see  SERV  section. 

DVTHRUSH:  see  SERV  section. 
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DVO,  DV1 , DV2,  DV3:  Double  precision  quantities  representing  the 
reciprocal  of  successive  PIPA  readings,  scaled  B7  in  units  of 
centiseconds  per  meter;  program  notation  l/DVO,  1 /DV1 , 1 ^V2,  1/DV3. 

D12;  Double  precision  intermediate  computation,  scaled  B17  in  units 
of  centiseconds. 

D21 ; Double  precision  intermediate  computation,  scaled  B17  in  units 
of  centiseconds. 

ENGOFFDT;  Single  precision  delta  time  for  engine  cutoff,  scaled  b14 
in  units  of  centiseconds. 

GDT1  : see  SERV  section. 

GEFF:  Double  precision  effective  gravity,  scaled  B-9  in  units  of 
meters  per  centiseconds  squared. 

HCALC1 : See  DESC  section. 

HDOTDISP:  See  SERV  section. 

JPAEIM:  Double  precision  parameter  used  in  the  calculation  of  ZDOTD  for 

aborts  from  the  TOwered  descent,  scaled  B24  in  units  of  meters  (see  note 
following  K2PARM),  JPARM  contains  J1PAHM  or  J2PAEiM. 

J1PARM;  Double  precision  parameter  used  in  the  calctilation  of  ZDOTD  for 
aborts  where  the  LM  to  GSM  phase  angle  is  less  than  THETCRIT,  scaled 
B24  in  vinits  of  meters  (see  note  following  K2PA[lM)j  part  of  the 
erasable  load. 

J2PARM;  Double  precision  parameter  used  in  the  calc\ilation  of  ZDOTD  for 
aborts  where  the  IH  to  GSM  phase  angle  is  greater  than  or  equal  to 
THETGRIT,  scaled  B24  in  units  of  meters  (see  note  following  K2PARM); 
part  of  the  erasable  loado 

KPARM;  Double  precision  parameter  used  in  the  calculation  of  ZDOTD  for 
aborts  from  the  powered  descent,  scaled  B24  in  units  of  meters  per 
revolution  (see  note  following  K2PARM),  KPARM  contains  K1PARM  or  K2PARM. 

K1PARM:  Double  precision  parameter  used  in  the  calc\ilatlon  of  ZDOTD  for 
aborts  where  the  LM  to  GSM  phase  angle  is  less  than  THETGRIT,  scaled 
B24  in  units  of  meters  per  revolution  (see  note  following  K2PARM); 
part  of  the  erasable  load. 

K2PARM:  Double  precision  parameter  used  in  the  calculation  of  ZDOTD  for 
aborts  where  the  IM  to  GSM  phase  angle  is  greater  than  or  equal  to 
THETGRIT,  scaled  B24  in  units  of  meters  per  revolution  (see  note  below); 
part  of  the  erasable  load. 

Note:  JPARM  end  KPARM  are  considered  in  this  document  to  be  scaled  B24;  thus 
the  erasable  parameters  J1PARM,  J2PARM,  K1PARM,  K2PARM  are  expected  to 
be  multiplied  by  2 and  then  scaled  B24  (of  course  this  is  the  same  as 
scaling  by  B23)  in  order  to  introduce  a factor  of  2 into  the  equation 

which  calculates  RA. 
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KtAPSVEX:  Single  precision  constant  stored  as  - 30.3  X 2 scaled 
B5  in  \inits  of  meters  per  centisecond.  Equation  value;  r 30.3 

9 

K:ATA:  Double  precision  constant  stored  as  3.2883  E-4  X 2 , scaled 
B-9  in  units  of  meters  per  centisecond  squared;  program  notation 
(at) A.  Equation  value;  3.2883  E-4 

K;ATD;  Double  precision  constant  stored  as  0.02,  scaled  B-2  in  units 
of  reciprocal  centiseconds;  program  notation  K(AT).  Equation 
veilue;  0.005 

—28 

K;ATDECAY;  Double  precision  constant  stored  as  - 18.  X 2 , scaled 

B28  in  units  of  centiseconds.  Equation  value;  _ 18. 

1 0 

K;ATRCS;  Double  precision  constant  stored  as  0.785  E-4  X 2 , scaled 

B-10  in  units  of  meters  per  centisecond  squared;  program  notation 
AT/^ICS.  Equation  value;  0.785  E-4 

_5 

KtDPSVEX;  Single  precision  constant  stored  as  - 29.5588868  X 2 , scaled 

B5  in  units  of  meters  per  centisecond.  Equation  value;  - 29.5588868. 

_7 

K;DVA;  Double  precision  constant  stored  as  15.2  X 2 , scaled  B7  in 

units  of  centiseconds  per  meter;  program  notation  (1/DV)A. 

Equation  value ; 15.2 

-9 

K;DVD;  Double  precision  constant  stored  as  436.7  X 2 , scaled  B9 

in  units  of  kilogram-meters  per  centisecond -second;  program 
notation  K(1/DV).  Equation  value;  436.7 


—2  A 

K;HINJEGT;  Double  precision  constant  stored  as  18288.  X 2 , scaled 

B24  in  units  of  meters.  Equation  value;  18288.  (equivalent  to 
60,000  feet) 

K;MAXTHRUST:  Single  precision  constant  stored  as  10000-,  scaled  BI4 
in  units  of  DPS  throttle  pulses;  program  notation  BI°T13.  Equation 
value;  4096.  (enough  to  oversaturate  the  throttle  — see  THRUST) 

K;MD0TDPS;  Double  precision  constant  stored  as  0.1 48  X 2~^,  scaled 
B3  in  units  of  kilograms  per  centisecond.  Equation  value;  0.1 48 
(eqiiivalent  to  32.62  pounds  mass  per  second.) 

—5 

K;MINABDV;  Double  precision  constant  stored  as  0.0356  X 2 , scaled 

B5  in  units  of  meters  per  centisecond.  Eqimtion  value;  0.0356 

K;M00NRATE;  Double  precision  constant  stored  as  0.2661699489  E-7  X 2^*^, 
scaled  B-19  in  units  of  radians  per  centisecond.  Equation  value; 
0.2661699489  E-7 

-87 

K;MUMii37;  Double  precision  constant  stored  as  4.902778  E 8 X 2 , 

scaled  B37  in  units  of  meters  cubed  per  centisecond  squared; 
program  notation  MUM(-37).  Equation  value;  4.902778  E 8 
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K;ONE:  Single  precision  constant  stored  as  00004o>  scaled  B12  and  unitless 
program  notation  BIT3H.  Equation  value:  1.0. 

K;PRLIMIT;  Double  precision  constant  stored  as  - 0.0639*  scaled  B-21  in 
units  of  meters  per  cent! second  cubed.  Equation  value:  -O.3O4B  E-7. 

K:RD0TDN0M:  Double  precision  constant  stored  as  0.059436  I 2”^^,  scaled 
B7  in  units  of  meters  per  centisecond.  Equation  value:  0.059436. 
(Corresponds  to  19.5  feet  per  second.) 

-1 7 

K:TBUPA:  Double  precision  constant  stored  as  91902.  X 2 , scaled 

BI7  in  units  of  centiseconds;  program  notation  (TBUP)A.  Equation 
value:  91902. 

-1 7 

K:TG0A:  Double  precision  constant  stored  as  3.7  E 4 X 2 , scaled 

BI7  in  units  of  centiseconds;  program  notation  (TGO)A.  Equation 
value:  3.7  E 4 

K:THRESH2:  Double  precision  constant  stored  as  308.  X 2~^^,  scaled 
BI4  in  units  of  centimeters  per  second.  Equation  value:  308. 

-1 7 

K:T2A:  Double  precision  constant  stored  as  200.  X 2 , scaled  B17 

in  units  of  centiseconds.  Equation  value:  200, 

-1 7 

K:T3:  Double  precision  constant  stored  as  1000.  X 2 , scaled  B17 

in  units  of  centiseconds.  Equation  value:  1000. 

K:UNITZ:  Double  precision  constant  vector  stored  as  (0,  0,  0.5), 
scaled  B1  arid  unitless.  Equation  value:  (O,  0,  1 ) 

_7 

K:VINJN0M:  Double  precision  constant  stored  as  16.7924  x 2 , scaled 

B7  in  units  of  meters  per  centisecond.  Equation  value:  16.7924. 
(Equivalent  to  5509.31758  feet  per  second.) 

—28 

KrIOSECS:  Double  precision  constant  stored  as  1000  x 2 * scaled  B28  in 

units  of  centiseconds.  Equation  value:  1000. 

-17 

K:100PCTT0:  Double  precision  constant  stored  as  24  x 2 , scaled  B17  in 

units  of  centiseconds.  Equation  value:  24. 

—1 8 

K:100CS:  Double  precision  constant  stored  as  200  x 2 , scaled  B17  in 

units  of  centiseconds.  Equation  value:  100. 

K:1DEGDB:  Single  precision  constant  stored  as  00554g*  scaled  B-3  in  units 
of  revolutions.  Equation  value:  0,00277.  (Eq\ilvalent  to  1 degree.) 

K:2SEC:  Implicit  program  constant  equal  to  two.  (2)  seconds. 

-1 8 

K:2SEC18:  Double  precision  constant  stored  as  200.  X 2 , scaled 

B18  in  units  of  centiseconds;  program  notation  2SEC(18). 

Equation  value;  200. 

-9 

K:2SEC9:  Double  precision  constant  stored  as  200.  X 2 , scaled 

B9  in  units  of  centiseconds;  program  notation  2SEC(9). 

Equation  value:  200. 
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K:25KFT:  Doviblt  precision  constant  stored  as  7620.  I 2 scaled 
B24  In  uzd.ts  of  Bsters.  Equation  value:  7620. 

-1  7 

K:4SEC17:  Double . precision  constant  stored  as  400.  X 2 , scaled  B17 

in  units  of  centisecondsj  program  notation  4SEC(17).  Equation 
value:  400. 

K;49FPS:  Double  precision  constant  representing  the  expected  LM  _^0T 
at  the  end  of  the  vertical  rise  phase,  stored  as  0.149352  X 2 , 

scaled  B6  in  units  of  meters  per  centisecond.  Equation  value:  0.149352 

K:40FPS:  Double  precision  constant  stored  as  0.12192  X , scaled  B7 
in  units  of  meters  per  centisecond.  Equation  value:  0.12192 

-1 8 

K:6SEC18:  Double  precision  constant  stored  as  600.  X 2~  , scaled  B18 

in  units  of  centiseconds;  program  notation  6SEC(18).  Equation 
value:  600. 

LANDMAG:  Double  precision  magnitude  of  lunar  landing  (or  launch)  site 
radius,  scaled  B24  in  units  of  meters;  program  notation  /LAND/. 

LAXIS:  Double  precision  crossrange  unit  vector,  scaled  B1 , unitless, 
and  expressed  in  the  Platform  Coordinate  system. 

IW504:  Double  precision  libratlon  vector  of  the  moon,  scaled  BO  in  units 
of  radians  and  expressed  in  moon-centered,  moon-fixed  coordinates. 

MASS:  see  SERV  section. 

MMNUMBER:  see  PGSR  section. 

MODREG:  see  DATA  section. 

[^MOONMAtJ  : Double  precision,  3X3  orthogonal  transformation  matrix,  scaled 
B1  and  unitless.  Defined  such  that  Asg  = [mOONMA!^  4>^ef>  where  A is  a 
vector  expressed  in  selenographic  and  reference  coordinates  respectively. 

PCONS:  Double  precision  pitch  guidance  coefficient,  scaled  B9  in  units  of 
meters  per  centisecond  . 

PIPTIME:  see  SERV  section. 

PITCH:  Double  precision  predicted  FDAI  pitch  angle  at  the  end  of  the 
pitch  over  maneuver,  scaled  BO  in  units  of  revolutions. 

PRATE:  Double  precision  pitch  rate  guidance  coefficient,  scaled  B-8  in 
units  of  meters  per  centisecond  squared. 

P12TABLE:  see  WHICH  of  the  BURN  section. 

j^AXIS:  Double  precision  unit  vector,  scaled  B1 , unitless,  and  expressed  in 
the  Platform  Coordinate  system. 


ASCT  - 17 


R:  Double  precision  present  navigated  vector  position  of  the  lit, 
measured  from  the  center  of  the  moon,  scaled  B24  in  units  of 
meters  and  expressed  in  the  Platform  Coordinate  ST'stem. 

RA:  Double  precision  distance  from  the  center  of  the  moon  to  the 

apogee  of  the  desired  insertion  orbit,  scaled  B24  in  units  of  meters. 

RADMODES:  see  page  74. 

RAMIN:  Double  precision  parameter  which  is  the  minimum  value  allowed 
for  RA,  scaled  B24  in  units  of  meters;  part  of  the  erasable  load. 

^TT,  VATT:  see  ORBI  section. 

RCO:  Double  precision  desired  insertion  radius  magnitude,  scaled  B24 
in  units  of  meters. 

RCSM:  see  SERV  section. 

RDOT,  YDOT,  ZDOT:  Double  precision  velocity  components  in  the  radial, 
crossrange,  and  downrange  directions  respectively,  scaled  B7  in 
units  of  meters  per  centisecond. 

RDOTD,  YDOTD,  ZDOTD:  Double  precision  desired  velocity  components  in 
the  radial,  crossrange,  and  downrange  direction  respectively,  scaled 
B7  in  units  of  meters  per  centisecond. 

j^^FSMMA'^  : see  COOR  section. 

RLS:  Double  precision  lunar  landing  (or  launch)  site  vector,  measured 
from  the  center  of  the  moon,  scaled"  B 27  in  units  of  meters  and 
expressed  in  moon-fixed  coordinates. 

RMAG:  Double  precision  magnitude  of  the  1>!  position  vector,  scaled 
B24  in  units  of  meters.  Program  notation  (/R/tlAG). 

RP;  Double  precision  predicted  insertion  radius  magnitude  measured 
from  the  center  of  the  moon,  scaled  B24  in  units  of  meters. 

RRECTCSM,  VRECTCSM:  see  ORBI  section. 

TBUP;  Double  precision  ratio  of  mass  to  mass  flow  rate^ 'scaled'  B17  in 
units  of  centiseconds. 

TDEC1:  see  ORBI  section. 

TEVENT:  Double  precision  time-of -event  for  dbwnlink  information  (as 
used  in  this  section  time-of-abort ) , scaled  B28  in  units  of 
centiseconds . 

TOO,  TG01 : Double  precision  predicted  length  of  bum,  scaled  B17  in 
units  of  centiseconds. 

THETCRIT:  Double  precision  LM  to  GSM  phase  angle  at  which  abort  targets 
are  switched,  scaled  BO  in  units  of  revolutions;  part  of  the 
erasable  load. 
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TIG:  Double  precision  time  of  engine  ignition,  scaled  B28  in  units 
of  centiseconds. 


THRUST:  Cell  used  to  provide  DPS  throttle  commands  when  Bit  4 of  channel 
14  is  set,  scaled  BI4  in  units  of  DPS  throttle  pulses.  One  pulse 
corresponds  to  about  2.8  pounds  of  thrust.  The  maximum  command 
recognized  hy  the  throttle  is  3428  pulses. 

TIMENOW:  Current  time  scaled  B28  in  units  of  centiseconds,  incremented 
every  centisecond. 

TRKMKCNT:  see  RNAV  section. 

TTO:  Double  precision  time  delay  from  the  issuance  of  the  engine  OFF 
signal  to  actual  thrust  decay,  scaled  B17  in  units  of  centiseconds. 

TTOGt.'):  Double  precision  negative  of  time-to-go  for  display  purposes, 
scaled  B28  in  units  of  centiseconds. 

TXO;  Double  precision  time  at  which  X-axis  override  is  permitted  in 
ascent  guidance,  scaled  B28  in  units  of  centiseconds. 

UHZP;  see  SERV  section. 

MITP.:  Double  precision  unit  vector  in  the  radial  direction,  scaled  B1  , 
unitless,  and  expressed  in  the  Platform  coordinate  system;  program 
notation  UNIT/r/. 

]^’C:  see  BURN  section. 

UNWC;  see  BURN  section. 

V:  Double  precision  present  navigated  velocity  vector  of  the  LM,  scaled 
B7  in  units  of  meters  per  centisecond  and  expressed  in  the  Platform 
coordinate  system. 

VE:  Double  precision  engine  exhaust  velocity,  scaled  B7  in  units  of 
meters  per  centisecond. 

VGBODY:  Double  precision  velocity- to-be-gained  vector  in  body  coordinates, 

scaled  B7  in  units  of  meters  per  centisecond. 

VGVECT:  Double  precision  velocity-to-be-gained  vector  in  Platform 
coordinates,  scaled  B7  in  units  of  meters  per  centisecond. 

V1S:  Double  precision  LM  velocity  vector  at  TIG,  scaled  B7  in  units  of 
meters  per  centisecond. 

WHICH:  see  BURN  section. 
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WM:  Double  precision  lunar  rotation  rate  vector,  i.e.  lunar  rotation 
rate  times  the  lunar  rotation  axis  vector,  scaled  B-17  in  units  of 
radians  per  centlsecond. 

[XNBPI^ : Double  precision  matrix  with  the  first  row  equal  to  the 
components  of  MBPIP,  the  second  row  equal  to  the  components  of 
INBPIP,  and  the  third  row  equal  to  the  components  of  ZNBPIP, 
where  MBPIP,  YNBPIP,  ZNBPIP  are  unit  vectors  along  the  X,  Y, 
and  Z spacecraft  axes,  scaled  B1  and  expressed  in  the  Platform 
coordinate  system  at  PIPTIME. 

XRANGE;  Double  precision  magnitude  of  the  crossrange  distance  to  be 
removed  during  the  ascent  maneuver,  scaled  B29  in  units  of  meters. 

Y:  Double  precision  magnitude  of  the  out-of-CSM-plane  position, 
scaled  B24  in  units  of  meters. 

YAW:  Double  precision  predicted  FDAl  yaw  angle  at  the  end  of  the 
vertical  rise  phase,  scaled  BO  in  units  of  revolutions. 

YGO:  Double  precision  desired  crossrange  position  at  orbit  insertion, 
scaled  B24  in  units  of  meters. 

YOONS;  Double  precision  yaw  giildance  coefficient,  scaled  B9  in  units 
of  meters  per  centlsecond. 

YDOT:  see  BDOT. 

YDOTD:  see  RDOTD. 

YLIM:  Double  precision  erasable  memory  constant  representing  the 
maximum  cross-range  distance  to  be  removed  during  an  abort  from 
the  powered  descent,  scaled  B24  in  units  of  meters. 


YRATE;  Double  precision  yaw  rate  guidance  coefficient,  scaled  B-8  in 
units  of  meters  per  centlsecond  squared, 

ZAXIS;  Double  precision  unit  vector  in  the  downrange  direction,  scaled 
B1  and  unltless;  program  notation  ZAXIS1 . 

ZDOT:  see  RDOT. 

ZDOTD:  see  RDOTD. 
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ATTM 


Attitude  Maneuver  Routines 


R60IiEI-l  TEMPR60  = return  address 

If  FLAG!WRD5  bit  6 (3AXISFLG)  = 0: 

Perform  "VECPOINT" 

^TAD  = TS 

Switch  FLAGWRDO  bit  4 (NEEDLFLG)  to  1 
Switch  FLAGWRDO  bit  1 5 (NEED2FLG)  to  0 
Perform  "BALLANGS" 

TOEALLA  Perform  "G0PERF2R»'  with  TS  = K:V06N18  (display  FDAI  angles) 
(if  terminate,  proceed  to  "R61TEST"}  If  proceed,  prooeea 
to  "REDOMANC";  If  other  response,  proceed  to  "EWOM/JIUI " . 

Perform  ’’CHKLINUS"  (make  display  priority  If  nacessai'y  ; 

End  job 

REDOMANC  If  FLAGWRD5  bit  6 (3AXISFLG)  = 0; 

Perform  "VECPOINT" 

THETAD  = TS 
Perform  "BALLANGS" 

If  bit  10  of  channel  30  = 1 (not  PGNCS  control),  or  if  bit  'i-i 
of  channel  31  = 1 (not  AUTO  control  mode): 

Proceed  to  "TOBALLA"  (not  AUTO) 

Perform  "GODSPR"  with  TS  = K:V06N18  (display  FDAI  angles 

Perform  "CHKLINUS"  (make  display  priority  If  necessary) 

Perform  "GOMANUR" 

Proceed  to  "ENDMANUV" 

GOMANUR  If  ATTCADR  ^ 0:  (single  precision  check) 

TS1 , = calling  address  +1  in  2CADR  format 

dp 

Proceed  to  "BAIL0UT1"  with  TS  = 31210g 
ATTCADR  = calling  address  +1 , in  2CADR  format 
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ATTPRIO  = bits  14-10  of  PRIORITY 


ENDMANUV 

ENDMANU1 

R61  TEST 

BALLANGS 


Proceed  to  "KALCMAN3’' 

Proceed  to  "TOBALLA" 

Switch  FLAGWRD5  bit  6 (3AXISFLG)  to  0 

Return  via  TEMPR60 

If  MODREG  = 0,  proceed  to  "ENDMANU1 " 

If  FLAGWRD4  bit  12  (PDSPFLAG)  = 1,  proceed  to  "TRMTRACK" 
Proceed  to  "GOTOPOOH" 

BALLEXIT  = return  address 

Perform  "CD*TR*GS"  with  MG  = THETAD 

TS^  = arcsin(-SIN0GA  COSMGA) 

SINTH  = SINMGA 
COSTH  = COSOGA  COSMGA 
Perform  "ARCTM" 

TS  = THETA 

X 

COSTH  = COSOGA  COSIGA  - SINMGA  SINOGA  SINIGA 
SINTH  = SINIGA  COSOGA  + SINMGA  SINOGA  COSIGA 
Perform  ’'ARCTAN" 

TS  = THETA 

y 

FDAI  = TS  converted  to  two's  complement  form 
Return  via  BALLEXIT 
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VECPNT1 


VECPOINT 


VECQTEMP  = return  address  (input  here  from  "R61C+L02" 

with  desired  CDU's  in  TScdu) 

Skip  next  two  steps 
VECQTEMP  = return  address 
TScdu  = CDU 
Perform  "CDUTODCM” 

[mis]  = [TSmat] 

TSfinal  = unit(POINTVSM  [mIs] ) 

COF  = - unit  (TSfinal  SCAXIS) 

TSang  = arccos( SCAXIS  • TSfinal) 

If  overflow  or  if  j TSfinal  * SCAXIS  | ^ 2 ; 

If  TSfinal  • SCAXIS  > 0: 

TS  = TScdu  (specify  zero  maneuver) 

Return  via  VECQTEMP 
YSM  = K:  UNITY  [mIsJ 

SC 

TS  = unit(YSM^^  * K:UNITX)  SCAXIS 
COF  = unitTS 

If  overflow  or  if  |ts|  < 2~^^: 

COF  = K:UNITX 
TSang  = 

Perform  "DELCOMP" 

[TSmat]  = [mis]  [dEIMAt] 

YSM^cd  ""  K:  UNITY  [TSmat] 

If  |YSM^^^  . K:UNITX(<  KiSINGIMLC,  proceed  to  "FINDGIMB" 

If  I SCAXIS^}  ^ K;SINVEC1,  proceed  to  "FINDGIMB" 

(otherwise,  the  vector  being  pointed  is  something  other  than 
the  thrust  vector  and  an  effort  will  be  made  to  avoid  gimbal 
lock  with  a preliminary  roll . ) 
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FINDGIMB 


KALCMAN3 


ISMg^  = K: UNITY  [kEs] 

TS  = (YSM  signYSM  ) * SCAXIS 
SC  sc 

X 

COF  = - SCAXIS  signTS^ 

If  jSCAXIS^I  > K:SINVEC2,  TSang  = KiVECANGl  (AOT) 

If  I SCAXIS^ I < K:SINVEC2,  TSang  = K:VECANG2  (Radar, 

Perform  "DELCOMP" 

[TSmat]  = [ms]  [oEDtATj 
Perform  "DCMTOCDU" 

TS  = TOcdud  converted  to  two's  complement  form 
Return  via  VECQTEMP 


BCDU  = rou 

If  ItHETAD  1 > K:LOCKANGL: 

Perform  "ALARM"  with  TS  = 00401^ 
Proceed  to  "NOGO" 

TScdu  = BCDU 
Perform  "CDUTODCM" 

[ms]  = [rSmat] 

TScdu  = THETAD 
Perform  "CDUTODCM" 

[mFs]  = [TSmat] 

[Tm^  = [ms]T 
[mfi]  = [tmis]  [mfs] 

[tmf:^  = [mfi] 

COFSKEW  = i (TMFI,_  - MFI,„) 
z * 12  12 


Y or  Z) 
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CX)FS«W  = i (MFI,-  - TMFI,.) 

COPSKEW^  = i (™fI23  - 

CAM  = i (MFIj^j^  + MFI22  ■*■  ^h3  ~ 

AM  = arccosCAM 

If  AM  < K:MINANur:  (No  need  for  rate  limited  maneuver) 

g)UD  = IHBTAD 
Proceed  to  "NOGO" 

If  AM  < K:MAXANC: 

OOF  = lonitTOFSKEW  (normal,  path) 

Svdtch  FLAGWRD2  bit  3 (CALCMAN3)  to  1 
Proceed  to  "WCALC" 

([mfi]  + [tmfi]) 

TS  = 1 - CAM 

If  |TS|  ^ 2,  TS  = K:posmaxdp  slgnTS 
COF^  = •/  2 (MFISY1^2  - CAM)  / TS  ' 

COFy  = V 2 (MFISYM22  - CAM)  / TS  ’ 

COF^  = V 2 (MFISYM^j^  - CAM)  / TS  ’ 

OOF  = unit OOF  (eliminates  common  factors) 

If  COF^  > COFy  and  COF^  > COF^:  (method  l) 

COF^  = COF^  slgnCOFSKEW^ 

COFy.  = COFy.  slgnCOFSKEW^  slgnMFISYM^2 
OOF^  = COF^  slgnCOFSKEW^  slgnMFISYMj^^ 

Switch  FLAGWRD2  bit  3 (CALCMAN3)  to  1 
Proceed  to  "WCALC" 


[mfisym]  = 


i 0 0 
0 i 0 
0 0 i 
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If  COF  > COF  and  COF  i COF  : (method  2) 

y X y z 

COF^  = COF^  slgnCOFSKBWy.  signMFISYMj^2 

COFy.  = COFy.  signCOFSKEWy 

COF^  = COF^  signCOFSKEWy.  signMFISYI^^ 

Switch  FLAGWRD2  bit  3 (CALCMAIO)  to  1 
Proceed  to  "WCALC" 

(Otherwise,  COF  > COF  and  COF  > COF  ) 
z y z X 

COF^  = COF^  signCOFSKEW^  signMFISYMj^^  (method  3) 

COFy  = COFy  signCOFSKEW^  signMFISYW23 
COF^  = COF^  signCOFSKEW^ 

Switch  FLAGWRD2  bit  3 (CALCIIAN3)  to  1 
WCALC  Perform  "DELCOMP"  with  TSang  = K ; ARATEj^^ 

IRATE  = K:ARATEj^^^  COF 

TM  = AM  KiANGLTIME  / KiARATEj^^jj^j^. 

Switch  FLAGWRD2  bit  2 (CALCMAN2)  to  1 
NEWANGL  [mis]  = [mIs]  [dELMAt] 

Perform  "DCMTOCDU"  with  [iSmat]  = [mIs] 

NCDU  = TCcdud  converted  from  one's  to  two's  complement  form 

If  FLAGWRD2  bit  2 (CALCMAN2)  = 1: 

Switch  FLAGWRD2  bit  2 (CALCMAN2)  to  0 

TM  = TM  + TIMENOW  - K:ONESEK 

Inhibit  interrupts 

OMEGARD  = BRATE 
z 

DELREROR  = IoMBQARD)  K:BIASCALE  OMEGARD  / IJACCS 
OMEGAQD  = BRATEy 
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CONTMANU 


(If  FLAC3WRD2  bit  2 = 1:  ) 

DELQEROR  = |oMEGAQD(  K:BIASCALE  OMEGAQD  / IJACCQ 
C»!B&APD  = BRATE^ 

DELIIEOR  = (OMEGAPD)  K:BIASCALE  OMB&APD  / IJACCp 
NEXTIME  = TIMENOW  + K:ONESEK  (less  significant  halves  only) 

DELCDU  = K:DTdTAU  (BCDU  - NCDU)  (two's  complement  difference  ) 

CDUD  = BCDU 
BCDU  = NCDU 

Release  interrupt  inhibit 

TS  = TM  - TIMENOW 

If  TS  > 0,  proceed  to  "CONTMANU" 

If  TS  = 0: 

Call  "MANUSTOP"  in  1 second 
End  job 

TS  = TS  + K:ONESEK  + 1 

If  TS  £ 0,  TS  = 1 

Call  "MANUSTOP"  in  TS  centiseconds 

End  job 

TS  = NEXTIME  - TIMENOW  (less  significant  halves  only) 

If  TS  < 0,  TS  = 2^^  + TS 

Cal]  "UPDTCALL"  in  TS  centiseconds 

NEXTIME  = NEXTIME  + K:0NESEK  (less  significant  halves  only) 

End  job 
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UPDTCALL  Establish  "NEWDELHI" 


(pr26) 


NeWDELHI 


NOGO 


MANUSTOP 


GOODMANU 


End  task 

If  bit  Ih  of  channel  31  = 1 (not  AUTO  control  mode): 

Perform  "ZATTEROR" 

Proceed  to  "NOGO" 

Proceed  to  "NEWANGL" 

Perform  "STOPRATE" 

Call  "GOODMANU"  in  0.02  seconds 

End  job 

DELCDU  = 0 

OMEGARD  = 0 

DELREROR  = 0 

OMEGAQD  = 0 

DELQEROR  = 0 

CDUD  = THETAD 

OMBGAPD  = 0 

DELPEROR  = 0 

TS  = ATTCADR 

ATTCADR  = -K) 

Establish  a job  starting  at  the  address  specified  in  TS  vd.th 
priority  equal  to  that  it  had  before  entering  "KALCMAN3" 

(saved  in  ATTPRIO  in  " GOMAN UR " ) Essentially  equivalent 
to  "returning"  to  that  job. 

End  task 
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CDUTQDCM 


DCMTOCDU 


DEL  COMP 


(|>  = TScdu^  converted  to  one's  complement  form  (outer  gimbal) 
TScdu  converted  to  one's  complement  form  (inner  gimbal) 

y 

y = TScdu  converted  to  one's  complement  form  (middle  gimbal) 
z 


C03-*  COSf 

sin^ 


sin©  sini- 
cos-©cos<(^  sin’^ 

cosY  cos  i 


sin-^  cos 

+ cos  sin4/ sinY 


- cos 


sin  (f) 


- sin^  cosV' 


cos-e  sin*^ 

+ sin^  coset)  sirlV' 


cos  <9- cos 
sin-o-sitiij)  sinV” 


Return 

y = arcsinTSmat^j^  (limited  to  vd.thin  - i) 

TScos  = cosT 

—2ft 

If  1 TScos I > Ij  TScos  = (1  - 2 ) signTScos 

= arcsin(-  TSmat^^^  / TScos) 

If  TSmat^j^  <■  0,0=^  sign^  - 
= arcsin(-  TSmat22  / TScos) 

If  TSmat22  Oj  ‘^  = i s±gn<f>  - 4> 

TSedud  = (♦  , ■&,T) 

Return 

TSs  = sinTSang 
TSc  = cosTSang 
TSd  = 1 - cosTSang 

If  I TSd  I 2 2 (overflow),  TSd  = Krposmaxdp  signTSd 

TS  = COF^^  TSd  + TSc 

If  I TS  I > 1 , TS  = K : posmaxdp  signTS 


DELMAT^^  = TS 


TS  = COF  ^ TSd  + TSc 

y 

If  |ts|  S-  1,  TS  = Kiposmaxdp  signTS 
DELMAT22  = TS 

TS  = COF  ^ TSd  + TSc 
z 

If  |ts|  ^ 1,  TS  = Krposmaxdp  signTS 
DEDIAT^^  = TS 

TS  = COF  COF  TSd  + COF  TSs 
X y z 

If  |ts|  ^ I,  TS  = Kiposmaxdp  signTS 
DEIi4AT2j^  = TS 

TS  = COF  COF  TSd  - COF  TSs 
X y z 

If  |Tsj  > 1,  TS  = Kiposmaxdp  signTS 

DEU1AT^2  = 

TS  = COF  COF  TSd  + COF  TSs 
X z y 

If  |ts|  ~ 1,  TS  = Kiposmaxdp  signTS 
DELMAT^^  = TS 

TS  = COF  COF  TSd  - COF  TSs 
X z y 

If  |ts|  > 1,  TS  = Kiposmaxdp  signTS 
DEDIAT^j^  = TS 

TS  = COF  COF  TSd  + COF  TSs 
y z X 

If  |ts|  i 1,  TS  = Kiposmaxdp  signTS 

DEU1AT^2  = 'TS 

TS  = COF  COF  TSd  - COF  TSs 
y z X 

If  |ts|  - 1,  TS  = Kiposmaxdp  signTS 

DELMAT22  = TS 

Return 
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R62DI8P  Pr®e««d  to  "GOFLASH"  with  TS  * K:V06N22  (THETAD) 

(if  t«niinat*,  procaad  to  "ElfDSXT";  if  proc«*cl, 
continue  at  next  atep;  if  ether  responae,  repeat 
this  step.) 

Switah  FUGWRD5  bit  6 (3AIISFLG)  to  1 
Perform  *»R60LKM" 

Proceed  to  "ENDEXT" 

V89CALL  Perform  ”R02B0TH" 

OPTIONXq  * 3 
OPTION!^  = 1 

Proceed  to  "GQFLASH"  with  TS  = K;V04N12  (OPTIONX^  , OPTK>WX  ) 
(if  terminate,  proceed  to  "ENDEXT",  if  proceecl, 
continue  at  next  step;  if  other  response,  repeat 
this  step.) 

V89RECL  TSt  = TIMENOW  + K:DP1MIN 
TDEC1  = TSt 


Perform  "GSMCONIG" 
TSr  * RATT 


TDEC1  = TSt 
Perform  "LEMGONIG" 

TS  “ jWsMMAT^dSr  - RATT)  ( 

POINTVSM  * unitTS 

If  OPTION!^  = 1,  SCAXIS  = K;MITZ 


adjusted  to  prevent  overflow 
in  unit  operation) 


and  skip  next  atep 


SC  AXES  = K'.UNITX 
Perform  "YEGPOINT" 
THETAD  = TS 
Perform  "BALLANGS" 
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CHKLINUS 


RELINUS 


Proceed  to  "GOFLASH"  with  TS  = K:V06N18  (pAl) 

(if  terminate,  proceed  to  “ENDEXT"}  if 
proceed,  continue  at  next  step;  if  other 
response,  proceed  to  "V89RECL".) 

Switch  FLAGWRD5  bit  6 (3AXISFLG)  to  0 

Perform  "R60LEM" 

Proceed  to  "ENDEXT" 

If  FLAGWRD4  bit  12  (PDSPFLAG)  = 0,  return 

TBASE2  = return  address  of  last  display 
(prior  to  call  of  "CHKLINUS") 

Set  restart  group  2 to  phase  13 

(causes  "RELINUS"  to  be  established  with 
priority  lOg  if  restart.) 

Perform  "BLANKET"  with  TS  = 001 OOg 

Retiirn 

(Entered  for  restart  group  2.13,  due  to  "CHKLINUS") 

Change  job  priority  to  26  (pr26) 

If  FLAGWRDI  bit  5 (TRACKFLG)  = 1: 

Switch  FLAGWRD4  bit '.12  (PDSPFLAG)  to  1 

Return  to  address  specified  by  TBASE2  (to  display 
generated  prior  to  calling  of  "CHKLINUS" ) 

If  FLAGWRDO  bit  7 (RNDVZFLG)  = 1:  (P20  running) 

Set  restart  group  2 to  phase  7 ( this  will  cause 

"P20LEMC1"  to  be  started  in  15  seconds  if  there 
is  a restart.) 

End  job 

Set  restart  group  2 to  phase  11  and  TBASE2  = - TIME1 

(causes  "P25LEM1"  to  be  established  with  priority 
I4g  if  restart.) 

End  job 
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Quantities  in  Computations 


1JACCP,  1JACCQ,  1JACCH:  See  DAPS  section. 

A;  See  MATX  section. 

AM:  Angle  of  rotation,  a double  precision  angle  between  0 and 
(C°  and  180°),  scaled  BO  in  units  of  revolutions. 

See  COOR  section. 

AITCADR:  Double  precision  address  storage  set  to  +0  (single  precision 
vhen  the  attitude  maneuver  routine  (KALCMAN3)  is  not  in  use. 

iTTPRIO:  Priority  of  job  calling  "GOMANDR". 

PALLEXIT:  Single  precision  octal  retxrrn  address  storage. 

BCDU;  Single  precision  vector  storage  for  the  three  "preBenf  glmbal 
angles  throughout  an  attitude  maneuver.  The  X,  Y and  Z coipc'nents 
contain  the  outer,  inner  and  middle  gimbal  angles  respectlTeiy , 
scaled  B-1  in  ■units  of  revolutions  and  stored  in  two’s  ccritlemen' 
form . 


BRATE:  Double  precision  vector  containing  the  desired  maneuver  rates 
about  each  of  the  three  principal  axes,  scaled  B-3  in  units  of 
revolutions  per  second. 

CAM:  Double  precision  cosine  of  the  total  maneuver  angle,  scaled  B1 
and  unitless. 

CDU:  See  COOR  section. 

CDUD:  See  DAPA  section. 

COF:  A double  precision  unit  vector  defining  the  axis  of  rotation 
of  the  calculated  maneuver  in  terms  of  present  spacecraft  coor- 
dinates, scaled  B1.  Extracted  from  the  transformation  matrix  [kfi] 
by  one  of  two  procedures  depending  on  the  magnitude  of  thcs  rotation 

angle. 

COFSKEW:  Double  precision  calculation  of  COF  from  the  off-dif^gonal 

terms  of  [HFIj;  equivalent  to  COF  or  used  to  supplement  a calcu- 
lation of  COF  from  the  diagonal  terms  of  [MFI]  by  supplying  sign 
information;  scaled  B1  and  ■unitless. 

COSOCA,  COSIGA,  CO^GA:  See  COOR  section. 

wOSTH:  See  COOR  section. 
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ffiLCEU:  See  DAPA  section. 

[EETiMAT]  ; Double  precision,  3x3  transfoimation  matrix  describing  a 

rotation  about  COF  through  a particular  an^e.  Used  in  "NEWANGL"  to 
update  [MIS]  at  one -second  intervals;  scaled  BO  and  unitless. 

DELPEROR,  lELQEROR.  lELREROR:  See  DAPA  section. 

FBAI:  Single  precision  vector  containing  the  values  expected  to  appear  on 
the  FDAI  at  the  completion  of  an  attltiide  maneuver  (astronaut  roll, 
pitch  and  yaw  in  that  order),  scaled  B— 1 in  units  of  revolutions. 


K:ANGtLTIME:  Double  precision  constant  stored  as  0.0001907349,  scaled  B19 
in  units  of  centiseconds  per  second.  Equation  value:  100.  (Used  with 
a right  shift  of  5 to  convert  from  seconds  scaled  B4  to  centiseconds 
scaled  B28.) 


of 

revolutions  per 

second. 

i 

Stored  Value 

Equation  Value 

Equivalent 

0 

0.0088888888 

0.0005555555 

0.2 

degree  s/ second 

1 

0.0222222222 

0.0013888888 

0.5 

degrees/ second 

2 

0.0888888888 

0.0055555550 

2,0 

degrees/ second 

3 

0.4444444444 

0.0277777778 

10.0 

degrees/ second 

K:BIASCALE:  Single  precision  constaint  stored  as  7 5777 g,  scaled  B2  and 
unitless.  Equation  value:  -J. 

K:DP1MIN:  Double  precision  constant  stored  as  0.0000223517  (6000  x 2 ), 

scaled  B28  in  units  of  centiseconds.  Equation  value:  one  minute. 


K:DrdTAU:  Single  precision  constant  stored  as  0.1,  scaled  BO  in  units  of 
seconds  per  DAP  cycle.  Equation  value:  0.1. 


K : LOCKANGrL : Single  precision  constant  stored  as  0.388889,  scaled  B-1 
in  units  of  revolutions.  Equation  value:  0.194445.  (Equivalent  to 
70  degrees . ) 

K:MAXANG:  Double  precision  constant  stored  as  0.472222222,  scaled  BO  in 
units  of  revolutions.  Equation  valiie:  0.472222222.  (Equivalent  to 
170  degrees . ) 
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K’.MINANG:  Do\ible  precision  constant  stored  as  0.0006  9375,  scaled  BO  in 
units  of  revolutions.  Equation  value:  0.00069375*  (Equivalent  to 
0.25  degrees. ) 

—28 

K:0NE,1EK:  Double  precision  constant  stored  as  100  x 2 , scaled  B23 

in  units  of  centiseconds.  Equation  value:  100. 

Krposmaxdp:  See  list  of  Major  Variables. 

K:SINGIMLC:  Doilile  precision  constant  stored  as  0.4285636003,  scaled  B1 
and  'onitless.  Equation  value:  0.8571672.  (Corresponds  to  +he  sine'  of 
59  degrees. ) 

K:3I1'JVEC1:  Double  precision  constant  stored  as  0.3796356537,  scaled  El 
and  unitless.  Equation  value:  0.7592713074*  (Corresponds  to  the 
sine  of  49*4  degrees*) 

K:SINVEC2:  Doiiile  precision  constant  stored  as  0.2462117800,  scaled  HI 
arid  unitless.  Equation  value:  0.49242356.  (Corresponds  to  the  sine 
of  29*5  degrees.) 

K:ITNITX,  K:UNITY,  K:UNITZ:  Double  precision  constant  vectors  scal.ed  El  r.ind 
unitless.  Equation  value : (l,0,0),  (0,1,0)  and  (0,0,1). 

K:VECANG1 : Double  precision  constant  stored  as  0.1388888889,  scaled  BO 
in  units  of  revolutions.  Equation  value:  0.1388888889.  (Equivalent 
to  50  degrees.) 

K:VECANG2:  Double  precision  constant  stored  as  0.09722222222,  scaled  BC 

in  units  of  revolutions.  Equation  value:  0.09722222222.  (Equivalent  to 
35  degrees.) 

K:VxxNxx:  See  list  of  Major  Variables. 


LMFI]:  Double  pr^ecision,  3x3  transformation  matrix,  scaled  B2  and  dsfr  r,ed 
such  that  Asc  ^ [MFI]  Ascd  where  A is  a vector  expressed  in  terms  of 
"pr'esent  spacecraft"  and  "desired  spacecraft"  coordinate  systems, 
respectively. 

i,:''IFlSyM] : A double  precision,  3^  matrix  synthesized  frmm  [MFI]  and  its 
transpose  to  enable  an  accirrate  computation  of  COF  frxim  the  diagonal 
terms;  scaled  B2. 

LM1'''3]:  A double  pr?ecision,  3x3  transformation  matrix,  scaled  B1  and 

defined  such  that  Asm  = [MFS]  Ascd  where  A is  a vector  expressed  in 
terms  of  "stable  member"  and  "desired  spacecraft"  coordinate  systems, 
respectively. 
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[mis]:  a double  precision,  3x3  transfoimation  matrix  scaled  B1  and  defined 
such  that  Asm  = [MIS]  Asc  where  A is  a vector  expressed  in  tenas  of 
"stable  mendDer"  and  "present  spacecraft"  coordinate  systems,  respectively. 


[MIS] 


'XSM  T' 

- sc 

YSM  T 

- sc 

ZSM  T 

- sc 


[MTS]  = 


'XSC  T 
- sm 

YSC  T 

’7QP 


SUL 


fxsC  , YSC  , ZSC  1 
I—  sm’  - sm’  - sml 


= fxSM  , YSM  , ZSM  1 
[—  sc  — sc’  — scj 


MODilEG:  See  DATA  section. 

irciU:  Single  precision  vector  storage  for  the  gimbal  angles  desired  after 
the  next  one-second  period,  scaled  B-1  in  units  of  revolutions  and 
stored  in  two's  complement  foim. 

NEXTIME:  Single  precision  scheduled  time  of  the  next  "UPDTCALL"  cycle, 
scaled  B14  in  units  of  centiseconds. 

OMEXJAPD,  OMBGAQP,  OMEGARD:  See  DAPA  section. 

OPTIONXq,  OPTIONX^:  See  EXVB  sefction. 

POINTVSM:  Double  precision  "desired  direction"  vector,  a unit  vector 
scaled  B1  and  expressed  in  terms  of  "stable  member"  coordinates. 


PRIORITY:  See  MATX  section. 


RATEINDX:  See  DAPB  section. 

RATT:  See  ORBI  section. 

[rEFSMMAT]:  See  COOR  section. 

SCAXIS:  Double  precision  imit  vector  defining  the  spacecraft  axis  that  is 
to  be  pointed  in  the  "desired  direction",  scaled  B1  and  expressed  in 
"present  spacecraft"  coordinates. 

SINOGA,  SINIGA,  SHMIA:  See  COOR  section. 

SINTH:  See  COOR  section. 

TBASE2:  Cell  used  for  address  storage  purposes  in  "CHKLINUS"  to  permit 
restoration  of  program  display  after  a restart.  The  cell  is  single 
precision  and  is  normally  used  to  contain  waitlist  restart  information 
(as  it  is  in  "RELINUS" . ) 

TDEC1:  See  ORBI  section. 

TEMPR60:  Single  precision  octal  return  address  storage. 
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THETA:  Sea  COOR  section. 


THETAD;  Single  precision  vector  containing  the  gimbal  angles  that 
define  the  desired  orientation  to  which  the  attitude  maneuver 
routines  are  to  maneuver;  scaled  B-1  in  units  of  revolutions 
and  stored  in  two's  complement  form.  Also  called  CPHI,  CTHETA, 
CPSI  in  program, (x,y,z  components  respectively). 


TIME1 : The  least  signifigant  half  of  TIMENOW.  See  EXVB  section. 
TMENOW:  See  EXVB  section. 

TM;  Double  precision  time  of  maneuver  end,  calculated  on  the  first 
pass  through  "NEWANGL"  and  scaled  B28  in  units  of  centiseconds. 

frMFlj:  Double  precision,  3x3  matrix  equal  to  the  transpose  of  fMFl]  ; 
scaled  B2. 

[this] : Double  precision,  3x3  matrix  equal  to  the  transpose  of  [mI^ ; 
scaled  B1 . 

VECQTEMP:  Single  precision  octal  return  address  storage. 

YSM^^,  YSM^^^:  Double  precision  unit  vector  along  the  Y-axis  of 

the  "stable  member"  coordinate  system  expressed  in  terms  of 
"present  spacecraft"  and  "desired  spacecraft"  coordinate  systems, 
respectively;  scaled  Bl . 
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Burn  Control  Routines 


PAOLM  WHICH  = "P40TABLE" 

If  FLGWRD10  bit  13  (APSFLAG)  = 1,  proceed  to  "P4OALM" 
Perform  "R02B0TH" 

DVTHRUSH  = K:THRESH1  + K:THRESH3 

If  DAPBOOLS  bit  13  (CSMDOCKD)  = 1,  DVTHRUSH  = K:THRESH3 
DVCNTR  = 4 

Switch  FLAGWRD5  bit  12  (NOTHROTL)  to  0 

F = KrFDPS 

MDOT  = K:MDOTDPS 

TDECAY  = KrDTDECAY 

VEX  = - 2 K:DPSVEX 

Proceed  to  "P4OIN" 

P42LM  WHICH  = "P42TABLE" 

If  FLGWRD10  bit  13  (APSFLAG)  = 0,  proceed  to  "P4OALM'' 
F42STAGE  Perform  "R02B0TH" 

DVTHRUSH  = K:THRESH2 
DVCNTR  = 4 

Switch  FLAGWRD2  bit  5 (AVFLAG)  to  1 (LM  active) 

F = K;FAPS 
MDOT  = K;MDOTAPS 
TDECAY  = KrATDECAY 
VEX  = - 2 K;APSVEX 

P40IN  Perform  "S40.I"  (get  initial  target  vectore) 

Perform  "S40.2,3"  (get  initial  attitude) 
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Perform  "PFLITEDB"  with  Interrupts  inhibited 
Switch  FLAGWRD5  bit  6 (3AXISFLG)  to  0 
Perform  "R60LEM" 

Proceed  to  "BURNBABY" 

PA1LM  WHICH  = "P41 TABLE" 

Perform  "R02B0TH" 

If  FLAGWRD1  bit  15  (NJETSFLG)  = 0,  F = K:FRCS4 
If  FLAGWRD1  bit  15  (NJETSFLG)  = 1,  F = K:FRCS2 
Perform  "S40.1"  (get  initial  target  vectors) 

Perform  "S40.2,3"  (get  initial  attitude) 

Inhibit  interrupts 
Perform  "ZATTEROR" 

Perform  "SETMINDB" 

Release  interrupt  inhibit 

Switch  FLAGWRD5  bit  6 (3AXISFLG)  to  0 

Perform  "R60LEM"  (return  after  attitude  maneuver  complete) 
Perform  "S4I.I"  with  TSref  = VGPREV 
VGBODY  = TSbody 

Perform  "GODSPRET"  with  TS  = K:V16N85  (VGBODY) 

DISPDEX  = 05000g  (positive  to  enable  "DYNMDISP") 

Establish  "DYNMDISP"  (pr05) 

Proceed  to  the  third  step  of  "BURNBABY" 

P40ALM  Perform  "ALARM"  with  TS  = 01706g 

REP40ALM  Proceed  to  "GOFLASH"  with  TS  = K;V05N09 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  continue  at 
next  step;  if  other  response,  repeat  this  step.) 

Proceed  according  to  fourteenth  entry  in  WHICH  table 
( , REP40ALM, , P42STAGE, , ) 
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BURNBABY  DVTOTAL  = 0 


Perform  "P4OAUTO"  (assiire  proper  mode  switching) 

GOBLTIME  = TIG 

Perform  "ENGIN0F3"  with  interrupts  inhibited 

Proceed  according  to  the  fifth  entry  in  WHICH  table 
(P4OSPOT,  P4OSPOT,  P4ISPOT,  P4OSPOT,  P4ISPOT,  ) 

P4QSP0T  DISPDEX  = - 15  ("CLOKTASK"  controlled  otherwise  by  P4I , P63; 

Perform  "STCL0K3"  (start  computation  of  TTOGO) 

?.i1  SPOT  TDEC1  = TIG  - K:D29.9SEC  ("CLOKTASK"  already  running  if  P63) 

Perform  "INITCDUW"  (initialize  steering) 

If  FLAGWRD6  bit  8 (MUNFLAG)  = 1 : 

Perform  "CSMPREC"  . 

vcsM  = [refsmmat]  VATT 

RCSM  = [refsmmat]  MTT 
Perform  "MUNGRAV"  with  TSr  = RCSM 
GCSM  = GDT1 
TDEC1  = TAT 
Perform  "MIDTOAVI " 

If  TSerror  = 1 : (did  not  finish  in  time) 

TIG  = PIPTIME1  + K:D29.9SEC 
SAVET  = TSt  - K:5SECDP 
Call  "110-35"  in  SAVET  centiseconds 
If  MODREG  = 63: 

DISPDEX  = -15  (enable  display  of  TTOGO) 

ABVEL  = I TO1  I 
End  job 

TIG-35  Call  "TIG-30"  in  5 seconds 
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P41 BLANK 

TIG-30.1 

TIG-3QA 

TIG-30 


WANTAPS 

ULLGNOT 

ULLGTASK 

TIG-5 


P40SJTJNK 


DISPDEX  = - 2 (cause  "CLOKIASK"  to  blank  display) 

If  the  6th  entry  in  WHICH  table  < Or  (P41 ) 

Call  "TIG-30.1"  in  4-9  seconds 

Establish  "P41BLANK"  (pr17) 

End  task 

Perform  "CLEANDSP" 

End  job 

Establish  "TIG-30A"  (pr17) 

End  task 

Proceed  to  "REGODSP"  with  TS  = K:V16N85  (VGBODl) 

(Entered  at  TIG  - 29.9  seconds) 

Call  "TIG-5"  in  24.9  seconds 

DISPDEX  = - 15  (enable  TTOGO  display) 

TSt  = 6th  entry  in  WHICH  table  (O,  2240,  -1,  2640,  2240,  

If  TSt<  0,  proceed  to  "ULLGNOT" 

Call  "ULLGTASK"  in  TSt  centiseconds 

Proceed  according  to  first  entry  in  WHICH  table 
(ULLGNOT,  ULLGNOT, , WANTAPS,  ULLGNOT,  ULLGNOT) 

Switch  FLGWRD10  bit  13  (APSELAG)  to  1 

AVECaiXIT  = 7th  entry  in  WHICH  table 

(SERVEXIT,  STEERING,  CALCN85,  STEERING,  SERVEXIT, ) 

Proceed  to  "PREREAD" 

Switch  DAPBOOLS  bit  6 (ULLAGER)  to  1 

End  task 

Call  "TIG-0"  in  5 seconds 

Switch  FLAGWRD7  bits  13  (IGNFLAG)  and  12  (ASTNFLAG)  to  0 

Switch  FIAGWRD5  bit  8 (ZOOKFIAG)  te  0 

Proceed  according  to  11th  entry  in  WHICH  table 

(DISPCHNG,  P40SJUNK,  End  task,  P40SJUNK,  DISPCHNG,  DISPCHNG) 

If  "S40.13"  is  running,  proceed  to  "DISPCHNG"  (indicated  by 

restart  tables) 

Establish  "S40.13"  (P40’s  burn  initialization)  (pr20) 
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DISPGHNG  DISPDEI  = - 11  (initiate  astronaut  branching  capability) 

End  task 

^PROnFEn  Switch  FLAGWRD7  bit  12  (ASTNFLAG)  to  1 
If  FLAGWRD7  bit  13  (IGNFLAG)  = 1; 

Call  "IGNITION"  in  0.01  seconds 
DISPDEX  = - 15  (display  only) 

End  job 

IIG-0  Switch  FLAGWRD7  bit  13  (IGNFLAG)  to  1 

If  MODREG  = 63,  call  "ZOOM"  in  ZOOMTIME  centlseconds 

If  FLAGVrElD7  bit  12  (ASTNFLAG)  = 1,  proceed  to  "IGNITION" 

Proceed  according  to  the  12th  entry  in  WHICH  table 

(End  task.  End  task,  TIGTASK,  End  task.  End  task.  End  task) 

TIGTASK  Establish  "TIGNOW"  (prl6) 

Switch  DAPBOOIE  bit  15  (PUIEES)  to  0 
End  task 

IGNITION  Switch  FLAGWRD5  bit  7 (ENGONFLG)  to  1 
Switch  bit  1 4 of  channel  1 1 to  0 

(send  ignition  command) 

Switch  bit  1 3 of  channel  11  to  1 
TEVENT  = TIMENOW 

Switch  DAPBOOIS  bit  15  (PUI5ES)  to  0 

TIG  = TGO  + TIMENOW  (now  contains  cutoff  time) 

Switch  FLAGWRD8  bit  10  (FLUNDISP)  to  0 

Proceed  according  to  the  13th  entry  in  WHICH  table 
(P12IGN,  P40IGN,  , P42IGN,  P63IGN,  ABRTIGN) 

P12IGN  AOSQ  = IGNAOSQ  (Initialize  DAP  bias 

acceleration  estimates) 

AOSR  = IGNAOSR 

ABRTIGN  DISPDEX  = Z (positive  to  kill  "CLOKTASK" ) 

AVEGEXIT  = "ATMAG" 

Switch  FLAGWRD7  bit  11  (SWANDISP)  to  1 


Proceed  to  "P42IGN" 
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P63IGN 


AVEGEXIT  = "LtJNLAND'' 


DISPDEX  = Z (positive  to  kill  "CLOKTASK") 

Switch  FLAGWRD9  bit  9 (LETABORT)  to  1 

Switch  FLAGWRD7  bit  11  (SWANDISP)  to  1 

TIG  = TIMENOW 

WCHPHASE  = 0 

WCHPHOLD  = 0 

FLPASSO  =2 

Proceed  to  "P42IGN" 

PAOIGN  If  FLAGWRD5  bit  12  (NOTHROTL)  = 0: 

Call  "ZOOM"  in  ZOOMTIME  centiseconds 
PA2IGN  Switch  DAPBOOLS  bit  8 (DRIFTBIT)  to  0 
If  FLAGWRD2  bit  9 (IMPULSW)  = 1 : 

If  TGO  ^ 0,  TGO  = 1 

TGO  =7}^  (fractional  part  of  TGO  / 2^^)  (more  significant 

half  zeroed) 

Call  "ENGOFTSK"  in  TGO  centiseconds 

Switch  FLAGWRD7  bits  13  (IGNFLAG)  and  12  (ASTNFLAG)  to  0 
Switch  FLAGWRD2  bit  9 (IMPULSW)  to  0 
Delay  0.5  second 

Switch  DAPBOOLS  bit  6 (ULLAGER)  to  0 
End  task 

Switch  FLAGWRD7  bits  13  (IGNFLAG)  and  12  (ASTNFLAG)  to  0 
Switch  FLAGWRD7  bit  7 (IDLEFLAG)  to  0 
Delay  0.5  second 
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Switch  DAPBOOIS  bit  6(ULIAGER)  to  0 
^.iid  task 

If  MODREG  « 63:  (if  P63  running) 

Proceed  to  ”P63Z00M”  (otherwise  it's  P40) 

OZCOM  THRUST  = KrMAXTHRUST 

Switch  bit  4 of  channel  I4  to  1 
End  task 

P63ZOOM  Switch  FLAGWRD5  bit  8 (ZOOMFLAG)  to  1 
Perform  "FLATOUT" 


End  task 

. ■EERING  Perform  "UPDATEVG" 

If  FLAGWRD2  bit  9 (IMPULSW)  = 0,  proceed  to  "SERVEXIT" 

If  FLAGWRD7  bit  7 (IDLEFLAG)  = 1 , proceed  to  "SERVEXIT" 
Perform  "STOPRATE" 

Switch  FLAGWRD2  bit  9 ( IMPULSW)  to  0 
Switch  FLAGWRD7  bit  7 (IDLEFLAG)  to  1 
Inhibit  interrupts 
TSt  = TIG  - TIMENOW 
If  TSt  < 0,  TSt  = 1 

TGO  = 7}^  (fractional  part  of  TSt  / 2**^)  (more  significarxt 

half  zeroed) 

Call  "ENGOFTSK"  in  TGO  centiseconds 
Release  interrupt  inhibit 
End  job 

ENGOFTSK  Perform  "ENGINOFF" 

End  task 

ENGINOFF  Establish  "POSTBURN"  (pr12) 
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ENGIN0F2  Call  "COASTSET"  in  0.01  second 


ENGIN0F1  Switch  FLAGWRD7  bit  7 (IDLEFLAG)  to  1 
Switch  DAPBOOLS  bit  6 (ULLAGER)  to  0 
ENGINOFA  TEVENT  = TIMENOW 

ENGINOF3  Switch  FLAGWRD5  bit  7 (ENGONFLG)  to  0 
Switch  bit  13  of  channel  11  to  0 
. Switch  bit  14  of  channel  11  to  1 
Switch  DAPBOOLS  bit  U (USEQRJTS)  to  1 

THRUST  = - K:MAXTHRUST  (wipe  out  any  throttle  setting  above 

that  specified  manually) 

Switch  bit  4 of  channel  14  to  1 

Return 

COASTSET  Perform  "ALLCOAST" 

End  task 

POSTBURN  DISPDEX  = Z.  (positive  to  kill  "CLOKTASK") 

AVEGEXIT  = "CALCN85" 

Perform  "GOFLASHR"  with  TS  = K:V16N40  (TTOGO,  DELVSAB,  DVTOTAL) 
(If  terminate,  proceed  to  "TERM40"j  if  proceed,  proceed  to 
"TIGNOW'j  if  other  response,  proceed  to  "POSTBURN".) 

End  job 

TIGNOW  Inhibit  interrupts 
Perfonn  "ZATTEROR" 

Perform  "SETMINDB" 

Release  interrupt  inhibit 

Perform  "REFLASHR"  with  TS  = K;V16N85  (VGBODY) 

(If  terminate,  proceed  to  "TERM40";  if  proceed,  proceed  to 
"TEEIM40";  if  other  response,  repeat  this  step.) 

End  job 
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TSRM4Q 


AVEGEXIT  = "SERVEXIT" 


TRKMKCNT  = 0 

DISPDEX  = Z (positive  to  kill  "CLOKTASK") 

Perform  "RESTORDB"  with  interrupts  inhibited 
Proceed  to  "GOTOPOOH" 

GTGL0K3  TSt  = TIG  - TIMENOW  (modulo  2*^^  centiseconds) 

TSt  =2+100  (fractional  part  of  TSt  / lOO) 

(If  TIG  - TIMENOW  were  4723  centiseconds,  TSt  would  be  25 
centiseconds,  starting  "CLOKTASK"  at  TIG  - 46.98  seconds.) 

Call  "CLOKTASK"  in  TSt  centiseconds 

Return 

CiMPTGO  DISPDEX  = 0 (compute  TTOGO  but  do  not  display) 

Call  "CLOKTASK"  in  0.02  second 
Return 

CLOKTASK  If  DISPDEX > 0,  end  task 

Establish  "CLOKJOB"  (pr27) 

Delay  1 second 
Proceed  to  "CLOKTASK" 

JLQKJOB  TTOGO  = TIMENOW  - TIG 
If  DISPDEX  = - 29: 

NVW0RD1  = -0  (to  specify  a verb  97  paste) 

Proceed  to  "CLOCPLAY"  with  TS  = NVWORD^ 

(If  terminate,  proceed  to  "STOPCLOK" ; if  proceed, 
proceed  according  to  the  second  entry  in  liTHICH 

table;  C0MFAIL3,  C0MFAIL4, , C0MFAIL4, 

C0MFAIL3,  C0MFA.IL3;  if  other  response,  proceed 
to  "C0MFAIL2".) 
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If  DISPDEX  = - 21 : 


V99RECYC 


STOPCLOK 


*ENTER 


Proceed  to  "REFLASH"  with  TS  = KiV06N6l  : • 

(If  terminate,  proceed  to  "STOPCLOK";  If  proceed, 
continue  at  next  step;  if  other  response,  repeat 
this  step.) 

DISPDEX  = 0 

Establish  "ASTNRET"  (pr13) 

End  job 

If  DISPDEX  =-15; 

Proceed  to  "REGODSP"  with  TS  = zero  entr7  in  WHICH  table 

(V06N74,  VO6N40,  , VO6N4O,  VO6N62,  VO6N63) 

If  DISPDEX  =-11; 

NVWORDI  = 77377g  (to  specify  a verb  99  paste) 

Proceed  to  "CLOCPLAY"  with  TS  = zero  entry  in  WHICH  table 

(V06N74,  V06N40,  , V06N40,  V06N62,  YO6N63) 

(if  terminate,  proceed  to  "STOPCLOK";  if  proceed 
proceed  to  "*PROCEED";  if  other  response,  proceed  to 
"*ENTER".) 

If  DISPDEX  = -2: 

Perform  "CLEANDSP" 

End  job 


Switch  DAPBOOLS  bit  6 (ULLAGER)  to  0 
Remove  "ULLGTASK"  from  the  waitlist  if  it  is  there 
DISPDEX  = Z (positive  to  kill  "CLOKTASK") 

Proceed  to  "GOTOPOOH" 

Inhibit  interrupts 

Proceed  according  to  the  3rd  entry  in  WHICH  table 
(GOCUTOFF,  GOPOST,  , GOPOST,  V99RECYC,  GOCUTOFF) 
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GOPOST 


Establish  "POSTBURN" 


(pr12) 


GOCUTOFF 


COMFAIL 


Inhibit  interrupts 
Perform  "ALLCOAST" 

Switch  DAPBOOLS  bit  6 (ULLAGER)  to  0 
Remove  "ULLGTASK"  from  the  waitlist  if  it  is  there 
DISPDEX  = Z (positive  to  kill  "CLOKTASK") 

Release  interrupt  inhibit 
End  job 

Establish  "CUTOFF"  (pr17) 

Switch  FLAGWRD8  bit  10  (FLUNDISP)  to  0 
Inhibit  interrupts 
Perform  "ALLCOAST" 

Switch  DAPBOOLS  bit  6 (ULLAGER)  to  0 
Remove  "ULLGTASK"  from  the  waitlist  if  it  is  there 
DISPDEX  = Z (positive  to  kill  "CLOKTASK") 

Release  interrupt  inhibit 
End  job 

Switch  FLAGWRD7  bit  7 (IDLEFLAG)  to  1 
Switch  FLAGWRD8  bit  10  (FLUNDISP)  to  1 
DVCNTR  = 4 
If  DISPDEX  > 0: 

DISPDEX  = 0 
Perform  "STCL0K3" 

DISPDEX  = - 29  (initiate  fail  branch  display) 
End  job 
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C0MFAIL2 


C0MFAIL3 


COMFAILA 


DYMDISP 


CALCN85 


S41  .1 


Inhibit  interrupts 


Remove  "ZOOM"  from  the  wai-^ilist  if  it  is  there 
Perform  "ENGIN0F4" 


Switch  DAPBOOLS  bit  8 (DRIFTBIT)  to  1 
Invert  DAPBOOLS  bit  10  (AORBTRAN) 


Switch  DAPBOOLS  bit  6 (ULLAGER)  to  1 
Call  "TIG-5"  in  0.01  second 


End  job 

DISPDEX  = Z (positive  to  kill  "CLOKTASK") 


Skip  next  step 
DISPDEX  =-15 

Switch  FLAGWRD7  bit  7 (IDLEFLAG)  to  0 
Switch  FLAGWRD8  bit  10  (FLUNDISP)  to  0 


End  job 

If  DISPDEX  <0,  end  job  ("CLOKTASK"  has  started) 

Perform  "S4I  .1"  with  TSref  = VGPREV 

VGBODY  = TSbody 

Delay  1 second 

Proceed  to  "DYNMDISP" 

Perform  "UPDATEVG" 

Perform  "S4I.I"  with  TSref  = VGPREV 


VGBODY  = TSbody 
Proceed  to  "SERVEXIT" 


Perform  "CDUTRIG" 
Perform  "SMTONB" 
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PAOAUTO 


P47LM 


STARTPA7 


PZ.7B0DY 


CALCN83 


TSbody  = [sMNBMA:^  |rEFSMMAt[  TSref 
Return 

If  FLGWRD10  bit  13  (APSFLAG)  = 1 and  bit  10  of  channel  30  = 0 
(PGNCS)  and  bit  14  of  channel  31  = 0 (DAP  in  Auto  mode)  or  if 
FLGWRD10  bit  13  (APSFLAG)  = 0 and  bit  10  of  channel  30  = 0 and 
bit  14  of  channel  31  = 0 and  bit  5 of  channel  30  = 0 (Auto 
throttle  mode  also  required  if  descent) : 

Return  (switch  configuration  proper) 

Proceed  to  "GOPEEIFI " with  TS  = 00203^  (request  proper  moding) 
(If  terminate,  proceed  to  "GOTO^POOH";  if  proceed,  proceed 
to  "P40AUT0"5  if  other  response,  continue  at  next  step.) 

Return 

Perform  "R02B0TH" 

Perform  "MIDT0AV2" 

Call  "STAR,TP47"  in  TSt  centiseconds  (TSt  modulo  2^^) 

End  job 

AVEGEXIT  = "CALCN83" 

Establish  "P47B0DY"  (pr20) 

Proceed  to  "PREREAD" 

DELVIMU  = 0 
DELVCTL  = 0 

Perform  "GOFLASHR"  with  TS  = K;V16N83  (DELVIMU) 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  proceed 
to  "GOTOPOOH";  if  other  response,  proceed  to  "P47B0DY".) 

End  job  I 

DELVSIN  = DELVCTL  + DELVREF 

Perform  "S4I.I"  with  TSref  = DELVSIN 

DELVIMU  = TSbody 

DELVCTL  = DELVSIN 

Proceed  to  "SERVEXIT" 
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UPDATEVG  QTEMP1  = return  address 


Perform  "S40.8" 

If  FIAGWEI)2  bit  8 (XDELVFLG)  = 1,  return  via  QTEMP1 
If  FIAGWRD7  bit  10  (NORMSW)  = 0: 

TS  = PIPTIME  - TIGSAVE  - TNEWA 
If  TS  < 0,  proceed  to  "GETRANS" 

TStp  = TIGSAVE  + TNEWA 

If  ’’S40.9"  is  still  active:  (as  indicated  by  restart  tables) 

Return  via  QTEMP1 

Establish  "S40.9"  (prIO) 

TIGSAVE  = TStp 
RINIT  = p 
VINIT  = TO 

GETRANS  DELLT4  = TPASS4  - PIPTIME 
Return  via  QTEMP1 

S40.8  If  FUGWRD2  bit  . 8 (XDELVFLG)  = 0,  proceed  to  "RASTEER1" 

TS1  = VGPREV  - pLVREF 
VGAIN^  VG  = TS1 

MFC  = [rEFSMMAt]  VG 
DELVSAB  = |VG| 

VGPREV  = VG 

If  FLAGWRD2  bit  11  (STEERSW)  = 0,  return 
TS  = unit(-DELVREF)  • VG 


If  TS>0; 

Perform  "ALARM"  with  TS  = 0U07g 
Perform  "FINDCDUW" 

Return  (to  caller  of  "S40.8") 

TS1  = 1 + (TS  / VEX) 

TOO  = (KtmFOURDT  TS  TS1  / |DELVREF|)  + TDECAY 
TIG  = TGO  + PIPTIME 
If  TGO^K:FOURSECS: 

Perform  "FINDCDUW" 

Return  (to  caller  of  "S4O.8") 

Switch  FLAGWRD2  bit  9 (IMPULSW)  to  1 
Switch  FLAGWRD2  bit  11  (STEERSW)  to  0 
Return  (to  caller  of  "S4O.8") 

340.1  QTEMP  = return  address 
TIGSAVE  = TIG 

If  FLAGWRD2  bit  8 (XDELVFLG)  = 0,  proceed  to  "S40.IB" 

VINIT  = VTIG 
TS  = I VTIG  * RTIg| 

UT  = unit  (VTIG  * mG) 

RINIT  = piG 

TSang  = (TS  KtTHETACON  / | RTIg|  (DELVSAB  MASS  / F) 

TSa  = (DELVSIN  • UT)  UT 
TSb  = DELVSIN  - TSa 

VGPREV  = TSa  + |TSb|  (sinTSang  unit (TSb  * UT)  + cosTSang  unitTSb) 
OT  = unitVGPREV 
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Perform  "GET.LVC"  with  TS  = VGPREV 
Return  via  QTEMP 
S40.1B  TDEC1  = TIG 

DELLT4  = TPASS4  - TIG 
Perform  "LEMPREC" 

RTIG  = RATT  and  RINIT  = MTT 

UNITR  = unitMTT 

VTIG  = VATT 

PNIT  = VATT 

VTARGTAG  = 0 

CNANGL  = K;EPS1 

If  FLAGWRD7  bit  10  (NORMSW)  = 1,  CNANGL  = K:EPS1  + K:EPS2 
RTX1  = MUDEX 
RTX2  = PBODY 
Perform  "INITVEL" 

VGPREV  = DELVEET3 
UT  = unitVGPREV 
DELVSAB  = I VGPREV  | 

Perform  "GET.LVC"  with  TS  = PLVEET3 
Return  via  QTEMP 

S40.2.3  POINTVSM  = [rEFSMMAt]  UT 
SCAXIS  = KiUNITX 
XSMDrf  = UT 

TSa  = unit(^MDrf  * RTIG) 
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TS^p  = I XSMDrf  * RTIG  j 

If  the  most  significant  half  of  TS^p  = 0: 

TSa  = unit (XSMDrf  » VTIG) 

YSMDrf  = TSa 

ZSMDrf  = - ISMDrf  * ffiMDrf 

Switch  FLAGtfRD2  bit  4 (PFRATFLG)  to  1 

Return 

S40.9  Switch  FLAGWRD2  bit  5 (AVFLAG)  to  1 
CNANGL  = K:EPS1 

If  FLAGWRD7  bit  10  (NORMSW)  = 1,  CNANGL  = K:EPS1  + K:EPS2 
Perform  "HAVEGUES"  with  VTARGTAG  = 0 


End  job 

RASTEER1  RMAG  = | RN | 

TSuc  = unit(RTARG  - M) 

TSc  = I RTARG  - Rn|  (quasi  floating  point) 

TSrIc  = TSc  RMAG  (quasi  floating  point) 

TSss  = RMAG  + RTMAG  + TSc)  / 2 

TS1  = (MUASTEER  - (TSss  - TSc)  MUdA  / 2 

TSa  =^2  (TSss  - RMAG)  TS1  / TSrl^"^  signGEOMSGN 

TS1  = MUASTEER  - TSss  MUdA  / 2 

TSb  = ^2  (TSss  - RTMAG)  TS1  / TSrl^"^ 

TS1  = f(TSss  - TSc)  / TSssQ^ 

TS1  = K:2PI+3  arcsinTSI  - (TSc  / TSss)^  (TSi ) 


TS1  = TSI  signGEOMSGN 

TS  = ^TSss^  / (2  MUASTEEr"^^  (K:2pi+1  - TSi)  - TPASS4  + PIPTIME 
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NEGPROD 


FIRSTTME 


S40.13 


TS  = TSb  slgnTS 

If  FIAGWRD7  bit  10  (NORMSW)  =1; 

If  TSuc  • miTR  < 0<  proceed  to  "NEGPROD"  " 

TS1  = unit(piTR  + TSuc) 

TS2  = unit((-  TS1  * OT)  signGEOMSGN)  TS 
VIPRIME  = TS1  TSa  + TS2 
PLVEET3  = VIPRIME  - W1 
Proceed  to  "FIRSTTME" 

TS1  = unit(TSuc  - UNITR)  TS  . 

VIPRIME  = unit(TSuc  + UNITR)  TSa  + TS1 
PLVEET3  = VIPRIME  - VN1 
Proceed  to  "FIEISTTME" 

TS1  = unit(TSuc  - ^ITR) 

TS2  = unit((TS1  * OT)  signGEOMSGN)  TSa 
VIPRIME  = TS1  TS  + TS2 
DELVEET3  = VIPRIME  - VN1 

If  RTX2  = 0;  (earth  centered  orbit) 

TS  = piTGOBL  (PIPTIME  - GOBLTIME)  KiEARTHMU  / |p 
DELVEET3  = DELVEET3  + TS 
TS1  = DELVEET3  and  skip  next  step 
TS1  = DELVEET3 
Proceed  to  "VGAIN*" 

Switch  FIAGWRD2  bit  9 (IMPULSW)  to  0 
TS  = |VGPREvj  - K;4SEC  K::FRCS2  / MA.SS 
If  FLGWRD10  bit  13  (APSFIAG)  = 0,  proceed  to  "S40.13D" 
Switch  FIAGWRD5  bit  12  (NOTHROTL)  to  1 
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TSa  = TS  - (K:K1VAL  / MASS) 
If  TSa<  0: 


TSt  = (TS  MASS  + K:K2VAL)  / K;K3VAL 
Proceed  to  "S40.132" 

TSb  = F K:5SECS  / (MASS  - MDOT  K;3.5SEC) 

TSc  = TSa  - TSb 

If  TSc>  0,  proceed  to  "S40.13D"  (TGO  > 6 seconds) 

TSt  = K:1SEC2D  + K:5SECS  TSa  / TSb 
Proceed  to  "S40.132" 

S40.13D  TS  = TS  MASS 

If  FLGWRD10  bit  13  (APSFUG)  = 1: 

TSt  = TS  / K:FAPS 

Proceed  to  second  step  of  "S40.132" 

TSt  = TS  / K:S40.136 

Switch  FLAGWRD5  bit  12  (NOTHROTL)  to  0 

If  overflow  (TSt>  2^^^): 

TGO  = TS/  K:S40.136* 

End  job 

If  TSt”^  K:6SEC:  {TGOK  6 seconds) 

Proceed  to  "S40.132" 

If  TSt<  (K;6SEC  + K:89SECS):  (TGO  < 95  seconds) 

Switch  FLAGWRD5  bit  12  (NOTHROTL)  to  1 
Proceed  to  the  second  step  of  "S40.132" 

S40.132  Switch  FLAGWRD2  bit  9 (IMPULSW)  to  1 
TGO  = (0,  TSt  ) 

End  j ob 
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I INITCDUW 


FINDCDUW 


OGABIAS  = 0 
UNFV  = K:UNITX 
PWC  = K:UNITX 
Return 

TSnewthrust  = UNFC 
QCDUVIUSR  = return  address 

NDXCDUW  = bit  13  of  DAPBOOLS  (CSMDOCKD)  (1  or  O) 

FLPAUTNO  =1 

FLAGOODW  = bit  9 of  DAPBOOLS  (XOVINHIB)  (1  or  O) 

Inhibit  interrupts 
MG  = CDU 

If  bit  10  of  channel  30  = 0 and  bit  14  of  channel  31  = 0; 

(PGNCS  control;  DAP  in  Auto  mode) 

FLPAUTNO  = 0 

MG  = CDUD 

Release  interrupt  inhibit 

UNX  = unitTSnewthrust  (argument  of  unit  operation 

adjusted  to  reduce  the 

PZ  = ;mitpWC  possibility  of  overflow) 

Perform  "QUICTRIG" 

If  overflow  (in  either  unit  operation  above),  proceed  to  "NOATTCNT" 
TS  = unitpLV 

If  no  overflow  (|DELvji2  cm/sec): 

Perform  "SMTONB" 

TSdv  = [smnbma::^  ts 

TS  = (TSdVy  - UNFVy)  K:GAINFLTRj^X^j3yy 
If  |ts|>  K:DUNFVLIM,  TS  = K:DUNFVLIM  signTS 
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DCMCL 


i 


( If  no  overflow ; ) 

tMFV  = IMFV  + TS 

7 7 

If  |UNFVy|  > KrUNFVLIM,  UUFV^  = KrIMFVLIM  signbWV^ 
TS  = (TSdv^  - 

If  |ts|>  KtDUIJFVLIM,  TS  = KtDUNFVLIM  signTS 

UEFV  = UNFV  + TS 
z z 

If  |UWFV^|>  K:UNFVLIM,  UEFV^  = KiUMFVLIM  signUNFV^ 
If  FLAGOODW  = 1 ; 

If  (PZ  • pX)^<  K;DOTSWFMX; 

Proceed  to  "DCMCL" 

FLAGOODW  = 0 
PZ  = ZNBPIP 

If  (pz  • pX)^<  K:DOTSWFMX: 

Proceed  to  "DCMCL" 

FLAGOODW  = 0 
pz  = - pBPIP 
PY  = unlt(pz  * px) 
pz  = pr  * px 

UNX  = uiiit(pX  + UNFV  pZ  - UKFV  px) 

z y 

pi  = px  * pz 
pz  = - pY  * px 
Perform  "NB2CDUSP" 

TScdu  = TScdu  + OGABIAS 

X X 

If  I TScdu  J ^ K:CDUZDLIM: 

TScdu  = KtCDUZDLIM  signTScdu 
z z 

Perform  "ALARM"  with  TS  = 00401 g 
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Inhibit  interrupts 

THETAD  = TScdu 

^ELGMB  = - (TScdu  - CDUD) 

If  mDELGMB  ^ + K:HI5>  0,  FLAGOODW  = 0 

y 

If  mDELGMB  ^ + K;HI5  > 0,  FLAGOODW  = 0 
If  FLPAUTNO>  0 or  if  FLAGWRD5  bit  7 (ENGONFLG)  = 0: 

Proceed  to  the  second  step  of  "NOATTCNT" 
i = NDXCDUW 

If  |mDELGMB^|>  K;DAZMAX^,  mDELGMB^  = K;DAZMAX^  sign(mDELGMB^) 
TS  = mDELGMB  COSMGA 

y 

If  |ts1>  K:DAYd2MAX^,  TS  = K:DAYd2MAX^  signTS 
TSa  = mDELGMB 

y 

mDELGMB  = TS  / COSMGA 

y 

TS  = - SINMGA  TSa  - mDELGMB^ 

If  |ts|  > K:DAXMAX^,  TS  = KiDAXMAX^  signTS 
mDELGMB  = - TS 

X 

If  FLAGOODW  = 0,  mDELGMB  = 0 
mDELGMB  “ ttiDF.! iGMR  — SINMGA  mDELGMB 

XX  y 

OMEGAPD  = Ktdvtoacc  (-  mDELGMB  - SINMGA  mDELOffi  ) 

X y ' 

OMEGAQD  = K:dvtoacc  (-  COSOGA  COSMGA  mDELGMB^  - SINOGA  mDELGMB^) 

OMEGARD  = K:dvtoacc  (SINOGA  COSMGA  mDELGMB  - COSOGA  mDELGMB  ) 

y z 

DELCDU  = K:DTdDELT  ^ELGMB  (converted  to  two's  comp,  form) 

TS  = I OMEGARD I OMEGARD  K;biascale  / 1JACCR 
If  |ts|>  K:DELERLIM,  TS  = KtDELERLIM  signTS 
DELREROR  = TS 
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TS  = |oMEGAQd|  OMEGAQD  Ktbiascale  / 1JACCQ 
If  |ts|  > K;DELERLIM,  TS  = K:DELERLIM  signTS 
DELQEROR  = TS 

TS  = |0MEGAPd|  OMEGAPD  K:biascale  / 1JACCP 

If  |ts|>  K:DELERLIM,  TS  = KrDELERLIM  signTS 

DELPEROR  = TS 

Release  interrupt  inhibit 

Return  via  QCDUWUSR 

NOATTCNT  Perform  "ALARM"  with  TS  = 00402g 

Perfom  "STOPRATE"  with  interrupts  inhibited 

Return  via  QCDDWUSR 

QUICTRIG  Inhibit  interrupts 

SINMGA  = sln„  MG 
sp  z 

COSMGA  = cos  MG 
sp  z 

SINIGA  = sin  MG 
sp  y 

COSIGA  = cos  MG 
sp  y 

SINOGA  = sin  MG 
sp  X 

COSOGA  = cos  ANG 
sp  X 

Release  interrupt  inhibit 
Return 

NB2CDUSP  TS  = 1 - UNX  ^ 

y 

If  TS  < 0,  TS  = 0 
TScosmga  = "^TS 

If  TScosmga  ^ 1 , TScosmga  = K:posmaxsp 
TScos  = TScosmga 


(single  precision 
without  converting 
first  to  one's 
complement  form; 
error  is  tolerated 
for  speed. ) 
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ARCTRGSP 


TSsin  = UNX 

y 

Perform  "ARCTRGSP" 

TScdu^  = TSang 

TS  = TScosmga  - | | 

If  TS>  0,  TS  = UNX^  / TScosmga 
TScos  = TS 

TS  = TScosmga  - j j 

If  TS  > 0,  TS  = IMX  / TScosmga 

z 

TSsin  = - TS 
Perform  ''ARCTRGSP" 

TScdUy  = TSang 

TS  = TScosmga  - |uNyy.| 

If  TS  > 0,  TS  = UNYy  / TScosmga 
TScos  = TS 

TS  = TScosmga  - | UNZ^.  | 

If  TS>  0,  TS  = URZ^  / TScosmga 
TSsin  = - TS 
Perform  "ARCTRGSP" 

TScdu^  = TSang 
Return 

If  TSsin  = 0; 

If  TScos  ^ 0,  TSang  = 0 

If  TScos  < 0,  TSang  = - Krposmaxsp 

Return 

TSsec  = TScos  / TSsin 
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If  TScos  > +0,  TSang  = 0 
If  TScos  < -0: 

TSsin  = - TSsin 
TSang  = - Ktposmaxsp 
TSang  = arcsin^p(TSsin)  - TSang 
Return 

TSang  = "I-  + arcsin^p(-  TScos) 

If  TSsin  -<0,  TSang  = - TSang 
Return 


(converted  to  two' 
comp,  form) 


( converted  to  two 
comp,  form) 
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Quantities  in  Computations 


IJACCP , IJACCQ,  IJACCR:  See  DAPB  section. 

ABVEL:  See  SERV  section.  (Displayed  by  nouns  62  and  63  in  "CLOKJOB".) 

; See  COOR  section. 

ACSQi  AOSR:  See  DAPA  section. 

AVEGEXIT:  See  SERV  section. 


^DU  . See  IMUC  section. 

C^DUQ : See  DAPA  section. 

CNANGL:  See  TRGL  section. 

COSIGA,  COSMGA,  COSOGA:  See  COOR  section. 

DAP BOOLS , DELCDU:  See  DAPA  section. 

DELLTA:  See  TRGL  section. 

DELPEROR,  DELQEROR,  DELREROR:  See  DAPA  section. 

DELV : See  SERV  section. 

DELVCTL:  Double  precision  vector  sum  of  velocity  gained  since  the 

■■'nitiation  of  the  Delta-v  monitor  program,  P47,  scaled  B7  in  units  of 
meters  per  centisecond  and  expressed  in  the  Reference  coordinate  system. 

DEL'v'EETS:  See  TRGL  section. 

DELVIMU:  Double  precision  vector  equivalent  to  DELVCTL,  but  expressed 

in  the  Body  coordinate  system  for  display. 

DELV’REF:  Double  precision  sensed-change-in-velocity  vector,  scaled  B7 

in  units  of  meters  per  centisecond  and  expressed  in  the  Reference 
coordinate  system. 

DELV3AB:  Double  precision  magnitude  of  velocity  to  be  gained,  program 

notation  also  VGDISP , scaled  B7  in  units  of  meters  per  centisecond; 
generated  in  the  External  Delta-V  targeting  routines  and  in  the  Burn 
routines . 

DELVSIN:  Double  precision  vector  scaled  B7  in  units  of  meters  per  centisecond 
and  expressed  in  the  Reference  coordinate  system.  Represents  the 
velocity-to-be-gained  vector  generated  by  the  External  Delta-V 
targeting  routines  during  P40,  P4I  and  P42.  Represents  the  total 
accumulated  change-in-velocity  during  P47. 
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DISPDEI:  Single  precision  index  controlling  the  function  of  "CLOKJOB”  and 
"CLOKTASK",  scaled  B14  and  unitless.  "CLOKJOB"  and  "CLOKTASK"  operate 
semi-independently  of  the  giiidance  programs  and  the  primary  interface 
between  them  and  guidance  is  DISPDEX. 

DVCNTR,  DVTHRUSH:  See  SERV  section. 

DVTOTAL;  See  SERV  section.  (Displayed  by  nouns  40  and  62  in  "CLOKJOB".) 

F:  Double  precision  thrust  expected  during  the  burn,  scaled  B7  in  units 
of  kilogram -meters  per  centisecond  squared. 

FLAGOODW;  Single  precision  flag  set  or  reset  on  every  pass  throiigh 
"FINDCDUW"  to  indicate  whether  steering  is  or  is  not  based  on  the 
desired  window  pointing  vector;  scaled  B6  and  unitless. 

FLPASSO:  See  DESC  section. 

FLPAUTNO:  Single  precision  flag  set  to  indicate  that  the  burn  is  not 
\mder  automatic  control  and  reset  to  indicate  that  the  DAP  control 
quEuitities  are  to  be  calculated,  scaled  B6  sind  unitless. 

aSM,  ^T1:  See  SERV  section. 

GEOMSGN;  See  TRGL  section. 

GOBLTIME:  Double  precision  storage  for  TIG,  scaled  B28  in  units  of 
centiseconds;  used  to  bias  the  velocity-to-be-gained  vector  to 
offset  the  effect  of  gravity  during  an  extended  Lambert  burn. 


IGNAOSQ,  IGNAOSR:  Single  precision  initial  DAP  bias  acceleration  estimates, 

scaled  B-2  in  units  of  revolutions  per  second  squared;  a pad  loaded  quantity. 

K:1SEC2D;  Double  precision  constant  stored  as  100  x 2”^^,  scaled  B14  in 
units  of  centiseconds.  Equation  value:  100. 


_2 

K:2pi+1:  Double  precision  constant  stored  as  3.141592653  x 2 , scaled  B1 

in  units  of  radians.  Equation  value:  7^/2.  Program  notation:  2PI+3 

K:2PI+3:  Double  precision  constant  stored  as  3.141592653x2  scaled  B3 
in  mits  of  radians  per  revolution.  Equation  value:  2Tr  . 

-13 

K:3.5SEC:  Double  precision  constant  stored  as  350  x 2 , scaled  B13  in 

units  of  centiseconds.  Equation  value:  350. 

-17 

K:4SEC:  Double  precision  constant  stored  as  400  x 2 , scaled  B17  in 

\mits  of  centiseconds.  Equation  value:  400. 

K:5SECDP:  Double  precision  constant  stored  as  500  x 2~  , scaled  B28  in 

units  of  centiseconds.  Equation  value:  500. 

K:5SECS:  Double  precision  constant  stored  as  500  x 2 scaled  B14  in 
units  of  centiseconds.  Equation  value:  500. 


BURN  - 27 


-1 4 

4:63EC:  Double  precision  constant  stored  as  600  x 2 , scaled  B14  in 

units  of  centiseconds . Equation  value:  600. 

—1 4 

a:8y3ECS:  Double  precision  constant  stored  as  8900  x 2 , scaled  Bi4 

in  \mits  of  centiseconds.  Equation  value;  8900. 

-5 

KiAPSVEX:  Single  precision  constant  stored  as  - 30.30  X 2 , scaled 

B5  in  imlts  of  meters  per  centisecond.  Equation  value:  - 30.30 

—28  ' 

K:ATDECAY:  Double  precision  constant  stored  as  - 18l  X 2 , scaled 

B28  in  units  of  centiseconds.  Equation  value:  - "IS. 

K:biascale:  Single  precision  constant  stored  as  02000g,  scaled  B2 
and  unitless}  program  notation  BIT11.  Equation  value:  0.25 

K:GDUZDLIM:  Single  precision  constant  stored  as  0.3888888888,  scaled 
B-1  in  units  of  revolutions.  Equation  value:  0.1944444444 
(Equivalent  to  70  degrees.) 

—28 

K:D29.9SEC:  Double  precision  constant  stored  as  2990.  X 2 ' , scaled 
B28  in  units  of  centiseconds.  Equation  value:  2990. 

K:DAXMAXq:  Single  precision  constant  stored  as  0.11111111111,  scaled 
B-1  in  units  of  revolutions.  Equation  value:  0.05555555555 
(Equivalent  to  20  degrees.) 

K;DAXMAX^ : Single  precision  constant  stored  as  0.0111111111  , scaled 
B-1  in  units  of  revolutions.  Equation  value:  0.00555555555 
(Equivalent  to  2 degrees.) 


K:DAYd2MAX_:  Single  precision  constant  stored  as  0.05555555555,  scaled 
BO  in  units  of  revolutions.  Equation  value;  0,05555555555 
(Equivalent  to  20  degrees.) 


K;DAYd2MAX^ ; Single  precision  constant  stored  as  0.0055555555,  scaled 
BO  in  units  of  revolutions.  Equation  value;  0.0055555555 
(Equivalent  to  2 degrees.) 

K;DAZMAXq;  Single  precision  constant  identical  to  K;DAXMAXq. 

KzDAZMAX^ ; Single  precision  constant  identical  to  K:DAXMAX^ , 

K:DELERLIM;  Single  precision  constant  stored  as  0.05555555555,  scaled 
B-1  in  units  of  revolutions.  Equation  value:  0.02777777777 
(Bqioi valent  to  10  degrees.) 

K:D0TSWFMX;  Single  precision  constant  stored  as  0.93302  X 2 scaled 
B4  and  unitless.  Equation  value:  0.93302  (Equivalent  to  the 
square  of  the  cosine  of  1 5 degrees.) 

K:DPSVEX:  Single  precision  constant  stored  as  - 29.5588868  x 2 , scaled 

B5  in  units  of  meters  per  centisecond.  Equation  value:  - 29.5588868. 


K:DTdDELT:  Single  precision  constant  stored  as  0.05,  scaled  BO  in 
units  of  guidance  cycles  per  DAP  cycle.  Equation  value:  0.05 
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K:DTDECAY;  Double  precision  constant  stored  as  - 38.  X 2~^^,  scaled 
B28  in  units  of  centiseconds.  Equation  value:  - 38, 

KiDUNFVLIM:  Single  precision  constant  stored  as  0.007  x 2 scaled  B1 
and  unitless.  Equation  value:  0.007, 

Krdvtoacc:  Constant  implicit  in  the  2-second  navigation  cycle,  scaled 

B-1  in  units  of  seconds  to  the  minus  one  power.  Equation  value:  -g-. 

q ^ 

K:EARTHMU:  Double  precision  constant  stored  as  -3.986032  ElO  x 2 , 

scaled  B36  in  units  of  meters  cubed  per  centisecond  squared.  Equation 
value:  -3.986032  ElO. 

K:EPS1:  Double  precision  constant  stored  as  2.777777778  E-2,  scaled  BO 

in  units  of  revolutions.  Equation  value:  2.777777778  E-2.  (Equivalent 
to  10  degrees.) 

K:EPS2:  Double  precision  constant  stored  as  9.722222222  E-2,  scaled  BO 

in  units  of  revolutions.  Equation  value:  9.722222222  E-2.  (Equivalent 
to  35  degrees.) 

K:FAPS:  Double  precision  constant  stored  as  1 ,5569  X 2~'^>  scaled  B7  in 

units  of  kilogram  meters  per  centisecond  squared.  Equation  value: 

1,5569  (Equivalent  to  3500  pounds  force.) 

K:FDPS:  Double  precision  constant  stored  as  4,3670  x 2~'^  > scaled  B7 

in  units  of  kilogram  meters  per  centisecond  squared.  Equation  value: 
4.3670,  (Equivalent  to  9S17.5  pounds  force.) 

-28 

K:F0URSECS:  Double  precision  constant  stored  as  400  x 2 , scaled  B28 

in  units  of  centiseconds.  Equation  value:  400. 

K:FRCS2:  Double  precision  constant  stored  as  0,08896  x 2 scaled 

B7  in  units  of  kilogram  meters  per  centisecond  squared.  Equation 
value:  0.08896  . (Equivalent  to  200  pounds  force.) 

K:FRCS4:  Double  precision  constant  stored  as  0.17792  x 2”^,  scaled 
B7  in  units  of  kilogram  meters  per  centisecond  squared.  Equation 
value:  0.17792  . (Equivalent  to  400  pounds  force.) 

K : GAINFL'ER^ : Single  precision  constant  stored  as  0.2,  scaled  BO 
and  unitless.  Equation  value;  0,2 

K:GAINELTR. ; Single  precision  constant  stored  as  0.1,  scaled  BO 
and  unitless.  Equation  value:  0.1 

K:HI5:  Single  precision  constant  stored  as  76000„,  scaled  B-2  in  units 
of  revolutions  squared.  Equation  value:  -0.015625.  (Equivalent  to 
about  minus  the  square  of  45  degrees.) 

-23 

K:K1VAL:  Double  precision  constant  stored  as  124,55  x 2 , scaled  B23 

in  units  of  kilogram  meters  per  centisecond.  Equation  value:  124.55. 

-2L 

K:K2VAL:  Double  precision  constant  stored  as  31.138  x 2 , scaled  B24 

in  units  of  kilogram  meters  per  centisecond.  Equation  value:  31.138. 
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K:K3VAL:  Double  precision  constant  stored  as  1.5569  X 2 scaled  B10 
units  of  kilogram  meters  per  centisecond  squared.  Equatian  value: 

KiblAXTHRUST:  Single  precision  constant  stored  as  10000^,  scaled  B14 
units  of  DPS  throttle  pulses.  Equation  value:  4096.  (See  THRUST;. 

K;MD0TAPS;  Double  precision  constant  stored  as  0.05135  X 2 scaled 
B3  in  units  of  kilograms  per  centisecond.  Equation  value:  0.05135 
(Equivalent  to  11.32  pounds  mass  per  second.) 

_3 

K;J4D0TDPS;  Double  precision  constant  stored  as  0.148  X 2 , scaled  B3 

in  units  of  kilograms  per  centisecond.  Equation  value:  0.148 

—1 8 

K:mF0URDT:  Double  precision  constant  stored  as  - 800.  X 2 , scaled 

B16  in  units  of  centiseconds.  Equation  value:  - 200. 

Ksposmaxsp:  see  Major  Variables. 

—9 

.K:S40.136:  Double  precision  constant  stored  as  0.4671  X 2 , scaled 

B9  in  units  of  kilogram-meters  per  centisecond  squared.  Equation 
value:  0.4671  (Equivalent  to  1050.  pounds  force). 

"I 

K;S40.136*:  Double  precision  constant  stored  as  0.4671  X 2 , scaled 
B-1  in  units  of  kilogram-meters  per  centisecond  squared.  Equation 
value : 0 . 4671 

-8 

K:THETAC0N:  Double  precision  constant  stored  as  0.31830989  X 2 , 

scsQ.ed  B6  in  units  of  revolutions  per  radian.  Equation  value:  1/4 

K:THRESH1 : Single  precision  constant  stored  as  24.  X 2 scaled 
B14  in  units  of  centimeters  per  second.  Equation  value:  24. 

K:THRESH2:  Single  precision  constant  stored  as  308.  X 2 scaled 

B14  iu  units  of  centimeters  per  second.  Equation  value:  308. 

K;THRESH3:  Single  precision  constant  stored  as  12.  X 2 scaled 
B14  in  units  of  centimeters  per  second.  Equation  value:  12. 

K:UNFVLIM:  Single  precision  constant  stored  as  0.129  X 2 , scaled 

B1  and  unitless.  Equation  value:  0.129 

K:UNITX;  Single  precision  constant  vector  stored  as  (0.5,  0,  0), 
scaled  B1  and  unitless.  Equation  value:  (1,0,0) 

MASS:  see  SERV  section. 

mDELGMB:  Single  precision  vector  containing  the  complement  of  the 
proposed  additions  to  the  desired  gimbal  angle  command  to  be 
issued  to  the  DAP,  scaled  B-1  in  units  of  revolutions. 

MDOT:  Double  precision  nominal  mass  flow  rate  during  thrust,  scaled 
B3  in  units  of  kilograms  per  centisecond. 


in 

1.5569 


BURN  - 30 


MODREG:  see  DATA  section. 

MUdA,  MUASTEER:  see  TRGL  section. 

MUDEX:  see  CONG  section. 

NDXCDUW:  Single  precision  index  (O  or  l)  to  select  the  proper  steering 
constants  for  LM  alone  or  CSM-LM  configuration,  scaled  B14  and  unitless. 

NVW0RD1:  Single  precis' on  cell  used  to  specify  e'.ther  a V97  or  V99  display. 
NWORD2:  See  DINT  section. 

OGABIAS:  Single  precision  quantity  representing  the  outer  gimbal  angle  bias 
for  window  pointing  commands  to  account  for  window  bending  due  to  cabin 
pressurization.  Set  to  zero  in  "INITCDUW”  and  changed  to  AZBIAS  in  P64 
("EXNORM").  Scaled  B-1  in  units  of  revolutions. 

OMEGAPD,  OMEGAQD,  OMEGARD:  See  DAPA  section. 

PBODY : See  ORBI  section. 

PIPriME,  PIPTIMEI:  See  SERV  section. 

£OINTVSM:  See  ATTM  section. 

QCDWUSR:  Single  precision  octal  return  address  storage. 

QTEMP , QTEMPl:  Single  precision  octal  return  address  storage. 

_^\TT,  VATT,  TAT:  See  ORBI  section. 

RCSM,  VCSM:  See  SERV  section. 
iREFSMMAT]:  See  COOR  section. 

RINIT,  VINIT:  See  TRGL  section. 

RMAG:  See  ASCT  section.  Scaled  B29  (earth)  or  B27  (moon)  here. 

VN : See  SERV  section. 

RTARG:  See  TRGL  section. 

RTIG,  VTIG:  see  TRGX  section. 

RTMAG:  see  TRGL  section. 

RTX1 , RTX2:  see  ORBI  section. 

SAVET : Double  precision  temporary  storage  cell  for  time  information, 

scaled  B28  in  units  of  cent i seconds . 

SCAXIS:  See  ATTM  section. 

SINIGA,  SINMGA,  SINOGA:  See  COOR  section. 

lSMNBHAT]:  See  COOR  section. 

TDECl : See  ORBI  section. 

TDECAY : Double  precision  thrust  decay  time  added  to  TGO,  scaled  B28  in 

units  of  centiseconds . 

TEVENT : Double  precision  time-of -event  for  downlink  information,  scaled 

B28  in  units  of  centiseconds. 
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TGO:  Double  precision  predicted  length  of  burn,  scaled  B28  in  units  of 

centiseconds . 

THETAD:  See  IMUC  section. 

THRUST:  See  DESC  section. 

TIG:  Double  precision  predicted  time  of  ignition  input  to  the  burn  routines, 
or  predicted  cutoff  time,  scaled  B28  in  units  of  centiseconds. 

TIQSAVE:  Double  precision  storage  for  the  effective  time  of  the  last 

performance  of  the  Lambert  routine;  scaled  B28  in  imits  of  centiseconds. 

TIMENOW:  See  EXVB  section. 

TNKWA:  Double  precision  pad  loaded  quantity  giving  the  Lambert  cycle 
period;  scaled  B28  in  units  of  centiseconds. 


TPASS4:  See  TRGL  section. 
TRKMKCNT:  See  RNAV  section 


TTOGO:  Double  precision  time  until  engine  ignition  (or  cutoff),  scaled 

B28  in  units  of  centiseconds. 
see  TRGL  section. 

TOFC : Double  precision  desired  thrust  acceleration  vector,  with  variable 

scaling  in  units  of  meters  per  centisecond  squared  and  expressed  in 
the  Platform  coordinate  system. 

UNFV : Double  precision  filtered  value  of  the  sensed  thrust  direction 

vector,  scaled  B1  and  unitless,  and  expressed  in  what  might  best  be 
called  the  "theoretical"  body  coordinate  system.  The  X component  is 
not  used,  but  the  Y and  Z components  are  used  to  bias  the  desired 
thrust  vector  with  respect  to  the  spacecraft  so  that  the  desirod 
direction  of  thrust  passes  through  the  center  of  gravity  of  the  space- 
craft . 

UWITGOBL:  Double  precision  vector  used  to  bias  the  velocity- to-be- 

gained  vector  to  offset  the  effect  of  gravity  during  an  extended 
Lambert  burn,  scaled  B1  and  expressed  in  the  Reference  coordinate 
system. 

IMITR;  See  SERV  section. 

UNWC : Double  precision  vector  along  the  desired  pointing  direction  of 

the  landing  window,  scaling  and  units  variable,  expressed  in  the 
Platform  coordinate  system. 

UT:  Double  precision  unit  vector  in  the  direction  of  velocity  to  be 

gained,  used  to  determine  initial  attitude  for  burns,  scaled  B1  and 
expressed  in  the  Reference  coordinate  system. 

UNX , UNY,  ITOZ:  Double  precision  unit  vectors  along  the  desired  directions 
of  the  three  body  axes,  scaled  B1  and  expressed  in  the  Platform 
coordinate  system. 
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VEX:  Double  precision  engine  exhaust  velocity,  scaled  B7  in  units  of 
meters  per  centisecond. 

VG:  Double  precision  velocity-to-be-gained  vector,  scaled  B7  in  units 

of  meters  per  centisecond  and  expressed  in  the  reference  coordinate  system. 

VGBODY:  Double  precision  velocity- to-be-gained  vector,  scaled  B7  in  units 
of  meters  per  centisecond  and  expressed  in  the  Body  coordinate  system. 

VGPREV:  Double  precision  previous  value  of  VG,  program  notation  also 
VGTIG,  scaled  B7  in  units  of  meters  per  centisecond  and  expressed  in 
the  reference  coordinate  system. 

VIPRIME:  See  TRGL  section. 

VN1:  See  SERV  section. 

VTARGTAG:  See  TRGL  section. 

WCHPHOLD,  WCHPHASE:  See’ DESC  section. 

WHICH:  Single  precision  octal  address  of  one  of  the  following  tables: 


Table  entry  number  Tables 


P12TABLE 

P40TABLE 

P4I TABLE 

P42TABLE 

P63TABLE 

ABRTABLE 

0 

K:V06N74 

K:V06N40 

K:V06N40 

K:V06N62 

K:V06N63 

1 

ULLGNOT 

ULLCaJOT 

WANTAPS 

ULLCaiQT 

ULLGNOT 

2 

C0MFAIL3 

C0MFAIL4 

C0MFAIL4 

C0MFAIL3 

C0MFAIL3 

3 

GOCUTOFF 

GOPOST 

GOPOST 

V99RECYC 

GOCUTOFF 

4 

End  task 

End  task 

End  task 

End  task 

End  task 

5 

P40SP0T 

P40SP0T 

P41SP0T 

P4OSPOT 

P41SP0T 

6 

0 

2240 

-1 

2640 

2240 

7 

SERVEXIT 

STEERING 

CALCN85 

STEERING 

SERVEXIT 

— 

11 

DISPCHNG 

P40SJUNK 

End  task 

P4OSJUNK 

DISPCHNG 

DISPCHNG 

12 

End  task 

End  task 

TIGTASK 

End  task 

End  task 

End  task 

13 

P12IGN 

P40IGN 

P42IGN 

P63IGN 

ABRTIGN 

14 

REP40ALM 

P42STAGE 

PBPIP,  PBPIP,  ZNBPIP:  See  SERV  section. 
pMDrf,  YSMDrf , ZSMDrf:  See  COOR  section. 

ZOOMTIME:  Single  precision  time  after  ignition  at  which  the  DPS  is 

to  be  commanded  to  full  throttle,  scaled  BI4  in  units  of  centiseconds; 
part  of  the  erasable  load. 

Z:  Z register,  or  program  counter.  Cantalns  the  address  of  the  next 
step.  The  contents  of  Z are  always  a positive  number. 


BURN  - 33 


Conic  Subroutines 


TIMERAD 


RTNCONC  = return  address 

Perform  "PARAM"  with  TSr  = RVEC  and  TSv  = VVEC 
If  overflow  (in  "PARAM"): 

Switch  FLAGWRD8  bit  4 (COGAFLAG)  to  1 
Proceed  to  "POODOO"  with  TS  = 20607g 
TSe  = (1  - RdA)  URl  - ^P  (2  - RdA)  ' COGA  U2 
If  overflow  (or  if  jlSel  < 2 : 

Switch  FLAGWRD5  bit  3 (SOLWSW)  to  1 
Proceed  to  "POODOO"  with  TS  = 20607g 
TSue  = iinitTSe 

COSF  = |(R1  P / RDESIRED)  - l]  / |TSe| 

If  (1  - COSF^)  < 0: 

COSF  = 1 signCOSF 
TSs  = 0 

Switch  FLAGWRD8  bit  5 (APSESW)  to  1 
If  (1  - COSF^)  ^ 0: 

TSs  = - COSF^  signSGNRDOT 

Switch  FLAGWRD8  bit  5 (APSESW)  to  0 
TS\i2  = TSs  UN  * TSue  + COSF  TSue 

CSTH  = TSu2  • URl  (magnitude  limited  to  less  than  l) 
SNTH  = URl  * TSia2  • UN 
TSp  = P 
Perform  "GETX" 

Switch  FLAGWRD5  bit  3 (SOLNSW)  to  0 
Proceed  to  "COMMNOUT" 


CONG—  1 


APSIDES  RTNCONC  = return  address 
ISr  = RVEC 
ISv  = VVEC 


TIMETHET 


COMMNOUT 


Perform  "PARAM" 

(Ignore  any  overflow) 

ECC  = V I - P RdA  ■ 

TS.rp  = R1  P / (1  + ECC) 

TSra  = (2  R1  / Rd^O  - TSrp 

If  TSra  < 0 or  if  overflow,  TSra  = K:posmaxdp 

Return  via  RTNCONC 

RTNCONC  = return  address 

TSr  = RVEC 

TSv  = VVEC 

Perform  "PARAM" 

If  overflow  (anywhere  above): 

Switch  FLAGWRD8  bit  4 (COGAFUG)  to  1 
Proceed  to  "POODOO"  with  TS  = 20607g 
TSp  = P 

Perform  "GETX" 

If  FLAGWRD8  bit  7 (INFINFLG)  ==  1,  proceed  to  "POODOO"  with  TS  = 2G)607g 
Switch  FLAGWRD8  bit  4 (COGAFLAG)  to  0 
Perform  "DELTIME" 

If  FUGWRD7  bit  9 (RVSW)  = 0,  perform  "NEWSTATE" 

Return  via  RTNCONC 
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”:SPLERN 


PERIODCH 


i = MUDEX  + 2 
IdMU  = KiMUTABLE^ 
ROOTMJ  = K!MaTABLE^_l^2 
IdROOTMQ  = KrMQTABLE 


(always  entered  from  "KEPPREP" ) 


1+4 


ITERCTR  = 20 
URRECT  = unitRRECT 


R1  = 


RRECT 


KEPCl  = pECT  • pECT  IdROOTMQ 
KEPC2  = PECT  • pECT  IdMU  R1  - 1 
ALPHA  = (1  - KEPC2)  / R1 
If  ALPHA  < 0: 

TS  = K:m50SC  / ALPHA 
TS  = 4^ 

If  overflow,  TS  = Kiposmaxdp 
If  ALPHA^  0: 

TS  = K;2PISC  /aJaLPHA  ' 

If  overflow,  TS  = Ktposmaxdp 
XMAX  = TS 

TSperlod  = XMAX  IdROOTMQ  / ALPHA 
If  0^  TSperlod  < 2^®  and  if  |tAu|  ^TSperlod: 
TAU  = QtAU  I - TSperiodj  signTAU 


Proceed  to  "PERIODCH" 
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X = XKEPNEW 


If  X slgnTAU^O  or  if  |x  slgnTAuj  > XMAX,  X = (XMAX/2)signTAU 
If  TAU  < 0 : 

XMIN  = -XMAX 
XMAX  =0 

Proceed  to  "DXCOMP" 

XMIN  = 0 

Proceed  to  "DXCOMP" 

DXCOMP  EPSILONT  = |tAU  K;BEE22| 

DELX  = X - XPREV 
KEPLOOP  TSx2  = X^ 

XI  = X^  ALPHA 
Perform  "DELTIME" 

If  overflow,  (somewhere  above); 

If  X<0,  XMIN  = X 
If  X ^ 0,  XMAX  = X 
DELX  = DELX  / 2 

If  IdELX  j < 2^~^^  (b  is  the  scale  factor  of  DELX); 

Return  via  KEPRTN 
X = X - DELX 
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BRNCaCTR 


gEPCONVG  ■ 


(If  overflow) 

T = TO 

Proceed  to  "BRNCHCTR" 

DELT  = TAU  - T 

If  |dELt|  ^ EPSILONT,  proceed  to  "KEPCONVG" 

TS  = DELX  DELT  / (T  - TC) 

If  TS<  0: 

XMAX  = X 
DELX  = TS 

If  TS^  XMIN  - XMAX  or  if  (XMIN  - XMAX  - TS)  overflowB; 
DELX  = (XMIN  - X)  K:DP9dlO 

If  TS^  0: 

XMIN  = X 
DELX  = TS 

If  TS  > XMAX  - XMIN  or  if  (XMAX  - XMIN  - TS)  overflows: 
DELX  = (XMAX  - X)  K:DP9dlO 
If  |dELx| 2^“^®  (b  ie  the  scale  factor  of  DELX) ; 

Proceed  to  "KEPCONVG" 

X = X + DELX 
TC  = T 

Proceed  to  "BRNCHCTR" 

ITERCTR  = ITERCTR  - 1 

If  ITERCTR  = 0,  proceed  to  "KEPCONVG" 

Proceed  to  "KEPLOOP" 

RCV  = (R1  - XSQCxi)  DRRECT  + (T  - X^  IdROOTMU  Sxi)  VRECT 
TSv  = j^(XI  Sxi  - 1)  ROOTMD  X /|RCvjjpRECT 
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VCV  = ( 1 - XSQCxi  / jRCVj  ) pECT  + TSv 
TC  = T 
XPREV  = X 

Return  via  KEPRTN  (to  caller  of  "KEPPREP") 

LAMBERT  RTNCONC  = return  address 

Switch  FLAGWRD5  bit  3 (SOLNSW)  to  0 
i = MUDEX  + 2 
IdMU  = K;  MUTABLE 

ROOTMU  = K:MUTABLE^^2 

IdROOTMU  = K ; MUTABLE,.  , 

1+4 

EPSILONL  = TDESIRED  K:BEE19 

Switch  FLAGWRDl  bit  3 <SLOPESW)  to  1 

TSrl  = RIVEC 

TS2  = R2VEC 

Perform  "(ffiOM" 

SNTH  = TSsin 
TSlam  = R1  / MAG7EC2 
CSTH  = TScos 
ImCSTH  = 1 - CSTH 
If  I ImCSTH  I ^ 2“^'^; 

Switch  FLAGWRD5  bit  3 (SOLNSW)  to  1 
Return  via  RTNCONC 

TS  - V2  TSlam  / ImCSTH  ' + SNTH  / ImCSTH 
If  overflow  or  if  TS  > KrCOGUPLIM,  TS  = KrCOGUPLIM 
COGAMAI  = TS 
CSTHmRHO  = CSTH  - TSlam 
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TS  = GSTHmRHO  / SNTH 

If  overflow  (|TS|2  2^)  or  If  CE0MSC2I  < 0,  TS  = KiCOGLOLIM 
COGWIIN  = TS 

If  FLAGWRDl  bit  2 (GDESSW)  = 0,  TWEEKIT  = 2"^ 

If  FLAGWRDl  bit  2 (GUESSW)  = 1: 

TWEEKIT  = 2“^ 

COGA  = -J-  (COGAKEN  + COGAMAX) 

DCOGA  = COGA 

LAMBLOOP  TS  = ImCSTH  / (COGA  SNTH  - CSTHmRHO) 

If  TS  < 0; 

If  DCOGA  ^0,  proceed  to  "LOENERGT' 

Proceed  to  "HIENERGY" 

P = TS 

RdA  = 2 - P (1  + COGA^) 

If  overflow  (P  or  RdA) , proceed  to  "HIENERGY” 

TSp  = P 
Perform  "GET!" 

TPREV  = T 

If  FLAGWRD8  bit  7 (INFINFLG)  = 1; 

If  DCOGA i 0,  proceed  to  "LOENERGY" 

Proceed  to  "HIENERGr' 

Perform  nDgLTIME" 

If  overflow; 

T = TPREV 

Proceed  to  "LOENERGY" 
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LOENERGY 


HIENERGY 


SUFFCHEK 


INITV 


TERRL&MB  = TDESIRED  - T 

If  |tERRLAMb|^EPSILONL-,  proceed  to  "INITV" 

ITERCTR  = ITERCTR  - 1 

If  ITERCTR  = 0,  proceed  to  "SUFFCHEK" 

If  FLAGWRDl  bit  3 (SLOPESW)  =0: 

If  T - TPREV  = 0,  proceed  to  "SUFFCHEK" 

Perform  "ITERATOR"  with  INDEP  = COGA,  DELINDEP  = DCOGA,  DEP  = T, 
DEPREV  = TPREV,  DELDEP  = TERRLAMB,  MAX  = COGAMAX  and  MIN  = COGAMIN 

DCOGA  = DELINDEP 

COGAMAX  = MAX 

COGAMIN  = MIN 

If  |dC0GA|<  2"^^,  proceed  to  "SUFFCHEK" 

COGA  = COGA  + DCOGA 
Proceed  to  "LAMBLOOP" 

COGAMAX  = COGA 
Skip  next  step 
COGAMIN  = COGA 
DCOGA  = DCOGA  / 2 

If  |dC0Ga|  < 2"^^,  proceed  to  "SUFFCHEK" 

COGA  = COGA  - DCOGA 
Proceed  to  "LAMBLOOP" 

If  |tERRLAMb|  > K:BEE17  TDESIRED  + 1: 

Switch  FLAGWRD5  bit  3 (SOLNSW)  to  1 
Proceed  to  "INITV" 

Proceed  to  "INITV" 

TS  = /s/p  / Rl  ROOTMU 

VVEC  = TS  COGA  URl  + TS  UN  * URl 
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If  VTAEGTAG  = 0: 


R2  = MAGVEC2 
Perform  "UMENTER" 

VTARGET  = TSv 
Return  via  RTNCONC 
PARAM  RTNPRM  = return  address 

Switch  FUGWRD7  bit  10  (NORMSW)  to  0 
Switch  FLAGWRD8  bit  4 (COGAFLAG)  to  0 
GEOMSGN  = 27777g  (positive) 

XSrl  = TSr 
TS2  = TSv 
Perform  "GEOM" 

COGA  = TScos  / TSsin 
i = MUDEX  + 2 

IdMU  = K: MUTABLE. 

1 

ROOTMU  = K:MUTABLEj_+2 

IdROOTMU  = K:MUTABLE^+^ 

TS  = MAGVEC22  IdMU  R1 
RdA  = 2 - TS 
P = TS  TSsin^ 

Return  via  RTNPRM 
GEOM  U2  unitTS2 

MAGVEC2  = llS2| 

URl  = unitlSrl 
TScos  = URl  • U2 
R1  = IlSrll 
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IS  = URl  U2 

If  FLAGWRD7  bit  10  (NORMSW)  = 0: 

P = unites  signGEOMSGN 

If  overflow  (unit  vector  poorly  defined),  y.N  = UN  / 2 
TSsin  = |lS|  signGEOMSGN 
Return 

GETX  . i = 1 

Switch  FLAGWRD8  bit  1 (360SW)  to  0 

TSsqp  = V ISp 

TS  = SNTH  / (1  - CSTH) 

If  overflow  ( ITS I >2^): 

If  TS  <•  0,  Switch  FLAGWRD8  bit  1 (36OSW)  to  1 
Proceed  to  "INVRSEQN" 

TS  = (TS  - COGA)  TSsqp 
If  overflow  (1TS|  Z 2^): 

If  TS  C 0,  Switch  FLAGWRD8  bit  1 (36OSW)  to  1 
Proceed  to  "INVRSEQN" 

WLOOP  TSw  = TS 

TS  = RdA  + TSw^ 

If  TS  < 0,  proceed  to  "INFINITY" 

TS  = V TS  ' + TSw 
If  overflow  (|TS|  2:  2^): 
i = 1 

If  TS  < 0,  Switch  FLAGWRD8  bit  1 (36OSW)  to  1 
Proceed  to  "INVRSEQN" 
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If  i <■  3: 


i = i + 1 
Proceed  to  ''WLDOP" 

TS  = 1 / TS 

If  overflow  (|tsI  i 2^),  proceed  to  "INFINITY" 

Proceed  to  "lOLYCOEF" 

INVESEQN  TSw2  = | SNTH  / (l  + CSTH  - SNTH  COGA)  ) 

TSw3  = 1 

1/WLOOP  TS  = RdA  TSw2^  + TSw3^ 

If  TS  ^ 0,  proceed  to  "INFINITY" 

TSw3  = -J  TS  ' + tSw3 
If  i 43: 

i = i + 1 

Proceed  to  "l/WLOOP" 

TS  = TSw2  / TSw3 

PQLYCOEF  If  TS  -C  0,  proceed  to  "INFINITY" 

X = RdA  TS^ 

TS  = 16  TS  (K.'unia  + K:unib  x + K:unio  x^  + . . . + K:unig  x*^) 
If  FLAGWRD8  bit  1 (360SW)  =1: 

If  RdA  < 0,  proceed  to  "INFINITY" 

TS  = (K:2PISC  / -/  RdA  ')  - TS 

XI  = RdA  TS^ 

X = -J  R1  TS 
TSx2  = x2 

KEPCl  = V P R1  ' COGA 
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KEPC2  = 1 - RdA 


INFINITY 


DELTIME 


NEWSTATE 


LAMENTER 


ITERATOR 


Switch  FLAGWRD8  bit  7 (iNFINFITx)  to  0 
Return 

(Clear  overflow  indicator  if  set) 

Switch  FLAGWRD8  bit  7 (INFINFLG)  to  1 
Return 

Sxi  = K:S0  + K:S1  XI  + K:S2  XI^  + ...  + K:S9  XI^ 

Cxi  = K:CO  + K:C1  XI  + K:C2  XI^  + ...  + K:C9  XI^ 

XSQCxi  = TSx2  Cxd 

T = IdROOTMU  ( X (R1  + TSx2  Sxi  KEPC2)  + KEPCl  XSQCxi  ) 
Return 

TSr  = (R1  - XSQCxi)  URl  + (T  - X^  IdROOTMJ  Sxi)  WEC 
R2  = |TSr| 

TS  = ( ROOTMU  (XI  Sxi  - 1)  X / R2  ) NRl 
TSv  = TS  + (1  - XSQCxi  / R2)  VVEC 
Return 

If  FLAGWRDl  bit  3 (SLOWSW)'  = 0_; 

TS  = DELDEP  DELINDEP  / (DEP  - DEPREV) 

If  FUGWRD8  bit  6 (ORDERSW)  = 1,  TS  = |TS|  signDELDEP 
If  FUGWRDl  bit  3 (Stt^PPSSW)  =*  1: 

Switch  FLAGWRDl  bit  3 to  0 
TS  = (MAK  TWEEKIT  - MIN  TWEEKIT ) signDELDEP 
If  TS  < 0: 

If  FLAGWRD8  bit  6 ( ORDERSW)  = 0,  MAX  = INDEP 
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Uf  TS  < 0) 

If  INDEP  + Ts£  min  or  if  overflow: 

TS  = K:DP9d10  (MIN  - INDEP ) 

DEL INDEP  = TS 
Return 

If  FLAGWRD8  bit  6 (ORDERSW)  = 0,  MIN  = INDEP 
If  INDEP  + TS  > MAX  or  if  overflow: 

TS  = K:DP9d10  (MAX  - INDEP) 

DELINDEP  = TS 
Return 

PERIAP01  V¥EC  = TSv  (rescaled  for  lunar  orbit  computations) 

RVEC  = TSr  (rescaled  for  lunar  orbit  computations) 

PERIAFO  NORMEX  = return  address 
TSo  at  K:RPAD 

If  Mudex  V TSo  = |rLS  | 

XXXALT  = TSo 
Perform  "APSIDES" 

TSha  = TSra  - XXXALT 
TShp  = TSrp  - XXXALT 
Return  via  NORMEX 
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Quantities  in  Computations 


IdMU:  Double  precision  storage  register  for  the  gravitational  constant 
for  the  moon  or  the  earth,  whichever  is  the  central  body;  scaled  B-34 
(earth)  or  B-28  (moon)  in  units  of  centiseconds  squared  / meters  cubed. 

IdROOTMU:  Double  precision  square  root  of  IdMU,  scaled  B-17  (earth)  or 
B-14  (moon)  in  units  of  centiseconds  / meters  3/2. 

ImCSTH;  Double  precision  storage  for  (l  - CSTH),  scaled  B2  and  unitless. 

ALPHA:  Double  precision  inverse  of  the  semi-major  axis  for  the  universal 
form  of  Kepler's  equation,  scaled  B-22  (earth)  or  B-20  (moon)  in  units 

of  meters"^-. 

COGA:  Double  precision  cotangent  of  flight  path  angle  (measured  from 
vertical),  scaled  B5  and  unitless. 

GC'.'JiAX,  COGAMIN:  Upper  and  lower  bounds  on  COGA,  scaled  B5  and  unitless. 

COS?:  Double  precision  cosine  of  the  true  anomaly  at  the  desired  radius 
in  the  time-radius  problem,  scaled  B1  and  unitless. 

CPTH;  Double  precision  cosine  of  the  true  anomaly  difference  or  of  the 
angle  between  present  and  desired  position  vectors,  scaled  B1  and 
'jinitless . 

CCT'rlmRHO:  Double  precision  intermediate  quantity  used  in  the  calculation 
of  P and  COGAMIN,  scaled  B7  and  unitless. 

Cr'  : One  of  the  two  special  functions  used  in  the  universal  formulation 
of  the  conic  equation;  double  precision,  scaled  B4  and  unitless. 

DCOGA:  Double  precision  change  in  COGA  in  Lambert  iteration  step,  scaled 
B5  and  unitless. 

DEl^DEP:  Double  precision  change  in  the  dependent  variable  for  the  "ITERATOR" 
subroutine,  variable  scaling  and  units. 

DELINDEP:  Double  precision  change  in  the  independent  variable  for  the 
"ITERATOR"  subroutine,  variable  scaling  and  units. 

Dnni’:  Double  precision  difference  between  the  desired  time  interval  and 
the  computed  approximation  to  it  during  the  "KEPLERN"  iteration, 
scaled  B28  in  units  of  centiseconds. 
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DELX:  Difference  between  successive  values  of  the  universal  con^  para- 
meter X,  scaled  B17  (earth)  or  B16  (moon)  in  units  of  meters  ' . 

DEP,  lEPREV : Double  precision  storage  for  two  successive  values  of  the 
independent  variable  to  be  used  in  the  "ITERATOR"  subroutine;  scaling 
and  units  variable. 


ECC  : Double  precision  eccentricity  computed  in  the  "APSIDES"  routine, 
scaled  B3  and  unitless. 

EPSILONL,  EPSILONT:  Double  precision  definitions  of  convergence  in  the 
•Lambert  and  Kepler  iteration  loops  respectively,  scaled  B28  in  units 
of  centiseconds. 


GEOMSGN:  Single  precision  sign  for  the  sine  of  the  true  anomaly  differ- 
ence, scaled  BO  and  unitless. 


i:  Single  precision  index,  scaled  B14,  and  unitless. 

INDEP:  Double  precision  independent  variable  for  the  "ITERATOR"  subroutine 

scaling  and  units  variable. 

ITERCTR:  Single  precision  iteration  counter,  scaled  B14  and  unitless. 


KEPCl:  Do\able  precision  coefficient  in  the  Kepler  equation,  scaled  B17 
(earth)  or  B16  (moon)  in  units  of  meters. 

KEPC2:  Double  precision  coefficient  in  the  Kepler  equation,  scaled  B6 
and  unitless. 

KEPRTN:  Single  precision  octal  return  address  storage. 

* -6 

K:2PISC:  Double  precision  constant,  stored  as  6.2831853  x 2 , scaled  B6 

-17 

2 , scaled  BO  and  unitless. 

-19 

2 , scaled  BO  and  unitless. 

-22 

2 , scaled  BO  and  \mitless. 

defining  the  special  function 

x;,  all  unltless. 


and  unitless.  Equation  value:  6.2831853. 

K:BEE17:  Double  precision  constant  stored  as 
Equation  value:  2“^'. 

K:BEE19:  Double  precision  constant  stored  as 
Equation  value:  2“^9. 

K:BEE22:  Double  precision  constant  stored  as 
Equation  value:  2“^^. 

K:CO, . . .K:C9:  Ten  double  precision  constants 
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Scale 

Theoretical 

Equation 

Stored  Value 

Factor 

Value 

Value 

K:C0 

0.031250001 

B4 

0.5 

0.500000016 

K:C1 

-0.16666b719 

B-2 

-0.041666667 

-O.O4166668O 

K:C2 

0.355555413 

B-8 

1.38888889  E-3 

1.38888833  E-3 

K:C3 

-0.406347410 

B-14 

-2.48015873  e-5 

-2.48014777  e-5 

K:C4 

0.288962094 

B-20 

2.75573192  E-7 

2.75575727  E-7 

K:C5 

-0.140117894 

B-26 

-2.08767570  E-9 

-2. 087 91 932  E-9 

K:C6 

0.049247387 

B-32 

1.14707456  E-11 

1.14663008  E-n 

K:C7 

-O.OI3O8I923 

B-3S 

-4.77947733  E-14 

-4.75917586  E-I4 

K:C3 

0,002806389 

B-44 

1.56192070  E-16 

1.59524745  E-16 

K:C9 

-0.000529414 

B-50 

-4.11031762  E-19 

-4.70214090  E-19 

KrCCXJLOLIM:  Double  precision  constant  stored  as  -0.999511597,  scaled 
B5  and  unitless.  Equation  value:  -31.9843711.  (Cot  1°48'.) 


K:COGUPLIM:  Double  precision  constant  stored  as  0.999511597,  scaled 
B5  and  unitless.  Equation  value;  31.9843711. 


K:DP9dlO:  Double  precision  constant,  stored  as  0.9,  scaled  BO  and  unitless. 
Equation  value : 0,9. 


3C;vi50SC;  Double  precision  constant,  stored  as  -50.0  x 2 
and  unitless.  Equation  value:  -50.0. 


-12 


scaled  B12 


K: MUTABLE. 


1 

0 

2 

4 

6 

a 

10 

12 

14 


A table  of  constants  containing  fo\ir  gravitational 
constants  for  the  earth  and  four  for  the  moon. 


K: MUTABLE 
3.986032  ElO  B-36 
0,25087606  E-10  B34 
1.99650495  E5  B-18 
0.50087529  E-5  Bl7 
4,902778  E8  B-30 
0.203966  E-8  B28 
2.21422176  E4  B-15 
0.45162595  E-4  BI4 


Scale 

Factor 


Units 


B36 

B-34 

B].8 

B-17 

B30 

B-28 

BI5 

B-14 


raeters^/c  s’" 


2/  3 
cs  /m 


s 


: s/.m 


,3/2 


3/  2 
m /cs 


cs^/n? 


3/2 

m ' cs 


cs/m 


3/2 


Equation  Value 
3.986032  ElO 
0.25087606  E-IO 

1.99650495  E5 

0. 50087 529  E-5 
4.902778  E8 

0.203966  E-8 
2.21422176  E4 
0.45162595  E-4 


Significance 


1/u 


y 1/4 


m 


i/k 


m 


vur 

m 


y 1/ 


m 
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KiRPAD:  Double  precision  stored  as  6373338  x 2"  ^ , scaled  B29  in  units 
of  meters.  Equation  value:  6,373,338.  (Equivalent  to  20,909,901.57 
feet. ) 


K:S0,  ...K:S9:  Ten  do\±ile  precision  constants  defining  the  special 
function  S(x),  all  lanitless. 


Stored  Value 


Scale 

Factor 


Theoretical 

Valiie 


Equation  Value 


K:S0 

0.083333334  B1 

0.166666667 

1 . 66666668 

E-1 

K:S1 

-0.266666684  B-5 

-8.33333333  E-3 

-8.33333387 

E-3 

K:S2 

0.406349155  B-11 

1.98412698  E-4 

1.98412673 

E-4 

K:S3 

-0.361198675  B-17 

-2.75573192  E-6 

-2.75572720 

E-6 

K:S4 

0.210153242  B-23 

2,50521084  E-8 

2.50522I87 

E-8 

K:S5 

-O.O86221951  B-29 

-1.60590438  E-10 

-1.60600899 

E-10 

K:S6 

0.026268812  B-35 

7.64716373  E-I3 

7.64523051 

E-13 

K:S7 

-0.006163316  B-Z*l 

-2.81145725  E-I5 

-2. 8027 5162 

E-15 

K:S8 

0.001177342  B-47 

8.22063525  E-18 

8. 36551806 

E-18 

K:S9 

-0.000199055  B-53 

-1.95729411  E-20 

-2.20995444 

E-20 

K:unia, . 

. .K:unig:  Seven  double 

precision  constants 

used  in  the  definition 

of  the  independent  variable  for  the  universal  formulation  of  Kepler's 

equation,  scaled  B1  and  unitless 

Stored  Value 

Eqiiation  Value 

K:imia 

0.5 

1.0 

K:unib 

-O.I6666677O 

-<).  333333  54 

K:unic 

0.100000392 

0.200000784 

K:unld 

-O.O714OIO86 

-O.1428O2172 

K:tmie 

0.055503292 

0.111006584 

K:unif 

-0.047264098 

-0.094528196 

K:unig 

0.040694204 

0.081388408 

MAGVEC2: 

Magnitude  of  the  second  vector  input  to  the  "GEQM"  routine , 

double  precision  with  variable  scaling  and  imits. 


MAX,  MIN:  Double  precision  maximum  and  minimim  bounds  for  the  "ITERATOR" 
subroutine;  variable  scaling  and  units. 

MUEEX:  Sin^e  precision  index  indicating  whether  the  gravitational  con- 
stant for  the  earth  (O)  or  the  moon  (8)  should  be  used  in  the  conic 
equations,  scaled  B14  and  unitless.  MUDE5C  = -XI  - 2 where  XI  is 
index  register  one  in  the  listing. 
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^’•"'1'^#^:  Single  precision  octal  retiim  address  storage. 

>'  Double  precision  ratio  of  semi— latus  rectinn  and  magnittide  of  present 
position,  scaled  Bk  and  iinitless. 


El,  R2:  Double  precision  magnitudes  of  present  and  desired  position  vectors, 
respectively,  scaled  B29  (earth)  or  B27  (moon)  in  units  of  meters. 

^VEC  , R2VEC;  Double  precision  vector  ir^uts  to  the  "LAMBERT"  routine; 
present  and  desired  position,  respectively,  scaled  B29  (earth)  or  B27 
(moon)  in  units  of  meters. 

RCV:  Double  precision  vector  outptit  of  the  "KEPLERN"  routine;  conic 

position  vector  at  the  specified  time,  scaled  B29  (earth)  or  B27  (moon) 
in  units  of  meters. 

Rd.\:  Double  precision  ratio  of  present  radius  to  semi -major  axis, 
scaled  B6  and  unitless. 

Rl'ESIRED:  Double  precision  input  to  the  "TIMEEAD"  routine  scaled  B29 
(earth)  or  B27  (moon)  in  lanits  of  meters. 

^■S;  Double  precision  position  vector  at  the  lunar  siirface,  scaled  B27 
in  units  of  meters  and  expressed  in  selenographic  coordinates. 

EOOTMU:  Double  precision  sqxiare  root  of  the  relevant  gravitational  con- 
stant, scaled  B18  (earth)  or  B15  (moon)  in  units  of  meters  3/2  /cs. 

ERECT ; Double  precision  vector  ir^ut  to  the  "KEPLERN"  routine;  the 
position  vector  to  be  advanced  throxigh  the  specified  time,  scaled  B29 
(earth)  or  B27  (moon),  in  \anit8  of  meters. 

RTNCONC , RTNPEM:  Single  precision,  octal  return  address  storage  cells. 

ro'SC:  Double  precision  vector  input  to  the  majority  of  the  conic  routines, 
a position  scaled  B29  (ear^h)  or  B27  (moon)  in  units  of  meters. 


Siri'JRDOT:  Single  precision  flag  indicating  the  sign  of  the  radial  velocity 
desired  at  the  desired  radius. 

SITIH;  Double  precision  sine  of  true  anomaly  difference  or  of  the  angle 
betvreen  present  and  desired  position  vectors,  scaled  B1  and  unitless. 

Srd.:  One  of  the  t\$o  epeclal  fttnctloae  used  la  the  universal  foraulation 
of  the  conic  equation;  douft)ls  precision,  sealed  B1  and  unitless. 
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T:  Double  precision  time  (computed  in  "DELTIME")  to  go  from  present 
position  to  desired  position,  scaled  B28  in  units  of  centiseconds. 

TAU : Desired  transfer  time  input  to  the  "KEPLERN"  routine;  double  pre- 
cision scaled  B28  in  units  of  centiseconds. 

TC : Double  precision  time  since  latest  rectification,  scaled  B28 
in  units  of  centiseconds. 

TDESIRED;  Double  precision  input  to  the  "LAMBERT"  routine;  desired  transfer 
time,  scaled  B28  in  units  of  centiseconds. 

TERRLAMB;  Double  precision  difference  between  desired  and  con^juted  transfer 
tiilB  during  the  "LAMBERT"  iterations,  scaled  B28  in  units  of  centiseconds. 

TPREV:  Previous  value  of  T,  scaled  B28  in  units  of  centiseconds  and  double 
precision. 

TWEEKIT;  Single  precision  factor  used  in  the  initiation  of  the  "ITERATOR" 
routine,  set  large  oi*  small  depending  on  whether  or  not  a good  first 
approximation  of  COGA  is  available. 

U2,  U^Rl:  Double  precision  unit  vectors  in  the  directions  of  the  two 
vectors  input  into  the  "GEOM"  routine,  scaled  B1  and  unitless. 

UN:  Unit  normal  vector,  scaled  B1  and  unitless. 

URRECT:  Unit  vector  in  the  direction  of  RRECT,  scaled  B1  and  unitless. 

VCV:  Double  precision  vector  output  of  the  "KEPLERN"  routine;  the 
velocity  vector  at  the  specified  time,  scaled  B7  (earth)  or  B5 
(moon)  in  units  of  meters/centlsecond. 

VRECT:  Double  precision  vector  input  to  the  "KEPLERN"  routine;  the 
velocity  vector  to  be  advanced  through  the  specified  time,  scaled 
B7  (earth)  or  B5  (moon)  in  imits  of  meters/centisecondi 

WARGET:  Double  precision  velocity  vector  output  of  the  "LAMBERT" 
routine;  velocity  at  R2VEC,  scaled  B7  (earth)  or  B5  (moon)  in 
units  of  meters/centlsecond. 

VTARGTAG:  Single  precision  flag  input  to  "LAMBERT"  to  indicate  that 
VTARGET  is  to  be  computed  (if  VTARGTAG  = O). 

VVEC:  Double  precision  vector  input  to  the  majority  of  the  conic  routines; 
velocity,  scaled  B7  (earth)  or  B5  (moon)  in  units  of  meters  per  centi- 
second . 
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x:  Double  precision  temporary  storage  cell  used  in  "POLYCOEF",  scaled  BO 
and  unitless. 

Double  precision  universal  conic  parameter  equal  to  the  product  of 
semi -major  axis  and  eccentric  anomaly  difference  (for  the  ellipse)  or 
to  the  product  of  thft  hyperbolic  analogs  of  eccentric  anomaly  differ- 
ence and  semi -major  axis  (for  the  hyperbola scaled  B17  (earth)  or 
Bl6  (moon)  ir  units  of  meters  to  the  one-half  power. 

XI:  Doublei.precision  square  of  the  eccentric  anomaly  difference  for  an 
ellipse,  or  the  negative  of  the  square  of  its  hyperbolic  analog  for  a 
hyperbola,  scaled  B6  in  units  of  radians  squared. 

XK^PNEW:  Double  precision  value  of  X at  entry  to  "KEPLERN",  scaled  B17 
(earth)  or  Bl6  (moon)  in  units  of  meters  to  the  one-half  power. 

'■‘■'AX,  XKIN:  Double  precision  upper  and  lower  botmds  on  X,  scaled  B17 
(earth)  or  Bl6  (moon)  in  units  of  meters  to  the  one-half  power. 

X?REV:  Previous  value  of  X;  same  units  and  scaling  as  X. 

2 

/.IQCxi:  Double  precision  product  of  X and  Gxi,  scaled  B33  (earth)  or 
B31  (moon)  in  units  of  meters. 

XXXALT:  Value  of  base  altitude  for  computing  apogee  and  perigee  infor- 
mation, scale  factor  B29  (earth)  or  B27  (moon),  units  meters. 
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COOR 


Coordinate  TransformatlonB 


CDUTRIG 

CD»TIW3S 


NBTOSM 


CALCSMSC 


PG  = CTU 

ANG  = MG  converted  to  one's  complement  form 
SINOGA  = sinMG 

X 

COSOGA  = cosMG 

X 

SINIGA  = sinMG„ 


COSIGA  = cosMG 


SINMIA  = SinMG 


COSMIA  = cosMG 


Return 


[tsiJ  = 


[tS2]  = 


[tS3]  = 


10  0 
0 COSOGA  - SINOGA 
0 SINOGA  COSOGA 

COSMOA  - SINMGA  0 
SINMOA  COSMGA  0 
0 0 1 

COSIGA  0 SINIGA 
0 10 
- SINIGA  0 COSIGA 


[nBSMMAt]  = [tSs]  [tS2]  [tSi] 

Retyrn 

pfBsm  = (COSIGA  COSMOA  , SINIGA  , - SiNIGA  COSIGA) 
TS  = SINOGA  SINIGA 
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SMTONB 


EARTHMC 


ZNBsm  = OOSlQk  COSOGA  - SBUGA  TS 
z 

ZNBsny  = -SINOGA  CX)S1CA 

ZNBzn^  = COSOGA  SINIGA  + COSIGA  TS 

piBsm  = QlBam  * ]UlBam 


Rotum 


COSIGA  0 - SINIGA 
0 10 
SINIGA  0 COSIGA 


COSMGA  SINMJA  0 
SINIGA  COSIGA  0 
0 0 1 


10  0 
0 COSOGA  SINOGA 
0 - SINOGA  COSOGA 


[smnbmat]  = [ts3]  [ts2]  [tsi] 

Retiirn 


AZ504  = AZO  + K;WEARTH  (TEPHEM  + TSt) 


If  overflow  (|AZ504|^1),  AZ504  = fractional  part  of  AZ504 


[earthmat]  = 


CO8AZ504 
- sinAZ504 
0 


sinAZ504  0 
eo8AZ504  0 
0 1 


tB504  “ ( -UNm^,  UNITif^,  0) 


Return 
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El  = K:BSUBO  + KrBDOT  (TEPHEM  + TSt) 


MR  = K;FSUBO  + K:FDOT  (TEPHEM  + TSt) 

MN  = KiNODIO  + K:NODDOT  (TEPHM  + TSt) 

TSb  = (-sinMN  , cosMN  cosEI  , cosMN  slnEl) 


TSa  = (cosMN  , sinMJJ  cosEI  , sinMN  sinEl) 
TSc  = (0  , -sinEI  , cosEI ) 


[mnmati]  = 


[mnmat;^  = 


TSa^  TSa^.  TSa^ 

TSb  TSb  TSb 
X y 2 

TSc  TSc  TSc 

X y 2 


10  0 
0 K:COSI  -K:SINI 
0 K:SINI  K:COSI 


cosMN  sinMN  0 

1 

o 

o 

= 

-sinMN  cosMN  0 

0 cosEI  sinEI 

0 0 1 

0 -sinEI  cosEI 

-cosMR 

sinMR 

0 


[mnmatb]  = 

I^NMA'^  = [mMAT^  (mJMAT^  [mNMAT^ 


-sinMR 

-cosMR 

0 


0 

0 

1 


C03(i  + MR) 
-sin(i  + MR) 
0 


sin(i  + MR) 
cos(J  + MR) 
0 


Return 

LAT-LONG  AIPHAM  = ( ALPHAV  | 

If  FLAGWRD3  bit  12  (lUNAFLAG)  = 1: 


Perform  "MOONMX" 

TS  = [mOONMAt]  (ALPHAV  - ([mOONMAT]'^  D1504)  * ALPHAV) 
^HAV  = unitTS 
GAMRP  = K:1B1 

If  FLAGWRDl  bit  13  (ERATFLAG)  = i,  ERADM  = K:504RM 
If  FLAGWRDl  bit  13  (ERAIFIAG)  = 0,  ERADM  = |^| 
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If  FLAGWRD3  bit  12  (mNAFIAO)  * 0: 

Perform  "EARTHMX" 

^ = [earthmat]  (au>hav  - P50A  * Aumv) 

^HAV  = unitTS 
GAMRP  = K:B2dA2 

If  FLAGWRDl  bit  13  '(ERAIFLAfi)  = 1: 

TS  = 1 - ALPHAV  ^ 
z 

ERADM  = /K:B23CSC  / (1  - K:EE  TS) 

If  FLAGWRDl  bit  13  (ERADFLAG)  » 0,  ERADM  = K:ERAD 

COSTH  = GAMRP  VaLPHAV  ^ + AIPHAVi^ 

X y 

SmTH  = ALPHAV 

z 

Perform  "ARCTAN" 

UT  = THETA 
COSTH  = ALPHAV^ 

SINTH  = ALPHAV 

y 

Perform  "ARCTAN" 

LONG  = THETA 

ALT  = ALPHAM  - ERADM 

Return 

LALOTORV  If  FLAGWRD3  bit  12  (HJNAPIAG)  = 1,  GAMRP  = K:1B1 

If  FUGWRD3  bit  12  (IDNAFLAG)  = 0,  GAMRP  = K:B2dA2 

TS  = GAMRP  ainUT 
z 

TS.  = sinLONG  coeLAT 

t 

TS^  = coaLONG  cosLAT 
i^HAV  = unit^ 
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If  FLAGWRD3  bit  12  (LUNAFLAG)  = 1: 

If  FLAGWRDl  bit  13  (ERADFLAG)  = 1,  ERADM  = K;504RM 
If  FLAGWRDl  bit  13  (ERADFLAG)  = 0,  ERADM  = |RLS  | 
Perform  "MOONMX" 

TS  = [mOONMA'^'^  (ALPHAV  + m504  * ALPHAV) 

If  FLAGWRD3  bit  12  (LUNAFLAG)  = 0; 

If  FUGWRDl  bit  13  (ERADFLAG)  = 1: 

TS  = 1 - ALPHAV  ^ 
z 

ERADM  = V K;B2XSC  / (1  - K;EE  TS) 

If  FLAGWRDl  bit  13  (ERADFLAG)  = 0,  ERADM  = K;ERAD 
Perform  "EARTHMX"  . 

TS  = [mTHMA-^^  (ALPHAV  + ( j^RTHMA"^  LE504)  * ALPHAV) 
ALPHAV  = TS  (ERADM  + ALT) 

Return 

ARCTAN  TS  = SINTH^  + COSTH^ 

If  TS  =0: 

THETA  = 0 
Return 

TS  = SINTH  / V TS 
If  Its)  > 1: 

THETA  = i signSINTH 
Return 

THETA  = arcsinTS 

If  COSTH  < 0,  THETA  = - THETA  + ^ signTHETA 
Return 
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CALCGA  (entered  with  ^Brf  and  XSMrf  etc.,  ^Bsm  and  ^Mnb  etc.,  etc.) 
TS  = Tanit(pB  » YSM) 

COSTH  = TS  • PB 
SINTH  = TS  • YNB 
Perform  "ARCTRIG" 

OGC  = THETA 
COSTH  = TS  » PB  • YSM 
SINTH  = YSM  • PB 
Perform  "ARCTRIG" 

MGC  = THETA 

If  |mGc| > K:gloktest; 

Perform  "ALARM"  with  TS  = 00401g 

Switch  FLAGWRD3  bit  14  (GLOKFAIL)  to  1 
COSTH  = pM  • TS 
SINTH  = pM  • p 
Perform  "ARCTRIG" 

IGC  = THETA 

P = (OGC,  IGC,  MGC)  converted  to  two's  complement  form 

THBTAD  = TS 

Return 

ARCTRIG  If  |sINTh|>K;QTSN45,  IHSTA  = arccosGOSTH  signSDJTH 
If  |sINTh|<  K:0TSN45: 

THETA  = arcsinSINTH 

If  COSTH  < 0,  THETA  = f signSINTH  - THETA 
Return 
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0 , DCMATj^j^) 


CALCGTA  TS  = unlt(- DCMAT^^^  , 

SINTH  = TS^ 

COSTH  = TS 

z 

Perform  "ARCTRIG" 

IGC  = THETA 

SINTH  = DCMATj^2 

COSTH  = TS  DCMAT,,  - TS^  DCMAT,- 

z 11  X ij 

Perform  "ARCTRIG" 

ICC  = THETA 

COSTH  = TS  • (DCMAT^^  , DCMAT^2  » DCMAT^^) 

SINTH  = TS  • (DCMAT2^.  , DCMAT22  , DCMAT22) 

Perform  "ARCTRIG" 

OGC  = THETA 
Return 

I 

LSPOS  TSt  = (TSt  + TEPHEM)  / KiCSTODAY 

Svd-tch  FLAGWRDO  bit  3 (FREEFLAG)  to  0 
GTMP  = K:amod  sin(K:ld27  TSt  + K:aarg) 

Switch  FLAGWRDO  bit  3 (FREEFUG)  to  1 

GTMP  = GTMP  + Kzbmod  3in(K:ld32  TSt  + K:barg) 

STMPq  = K:lomo  + Krlomr  TSt  - GTMP 

GTMP  = K:cmod  sin(K:ld365  TSt  + K:carg) 

STMP2  = K:1o30  + K:losr  TSt  - GTMP 
STMP^  = Krlono  + K:lonr  TSt 
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/cosSTMPq 
TS  = [k:KONMAt]  j sIhSIMPq 


VMDON  = unitTS 


\sin(STMP^  - STMP^)> 


/cosSTMP, 


TS  = [k:KONMAt]  ( sinSTMP2 
\ 0 


VSUN  - unitTS 
^8un  ~ unit  TO 
Return 


MTO'B'-'i** 


HEFMF 


TS^  =*  pci 
TSt  =*  TIMENOtf 


Perform  "MDONMP 


pci  a (js^  * IJ4504  + 

= PC2 

Perform  "MCONMI" 

PC2  « (p^  * y!504  + P-, 


[moonma^ 


) [moonmatJ 


Return 


Perform  "CDDTllICr 
TSt  = TBfflNCW 


Perform  "CALCSMSC" 

P^  = unltCpBem  |rBESMMAtJ) 


Perform  "MDONMI" 


[moonma:^ 


p 

PBSAV  * [mDOHMAT 
P^  = unltC^jHBem 


IJ<504  [MOONMA^y 

r]  (Pi  - P * p^) 
REPSMMA'^) 
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Perform  "MOONMX" 

TS  = LM504  [mOONMAtJ 

ZNBSAV  = [mOONMA"^  (TS^  - TS  ^ TS^) 

Switch  FLAGWRD6  bit  1 (ATTFLAG)  to  1 

Return 
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Quantities  In  Computatloni 


ALPHAM:  Magnitude  of  position  vector  input  to  "LAT-LONG"  routine. 

ALPHAV:  Working  storage  for  the  position  vector  or  unit  position  vector 
in  reference,  selenographic , or  geographic  coordinates. 

ALT:  Double  precision  altitude,  scaled  B29  in  units  of  meters. 

ANG:  Single  precision  vector  containing  the  outer,  inner,  and  middle 
gimbal  angles  in  its  X,  Y,  and  Z components,  respectively,  stored  in 
units  of  revolutions  in  two's  complement  form  scaled  B-1  or  in 
one's  complement  form  scaled  BO. 

AZ504:  Double  precision  angle  of  rotation  of  the  earth  around  its  polar 
axis,  scaled  BO  in  mits  of  revolutions.  Prograjs  notation  "504AZ". 

AZO:  Double  precision  position  angle  of  the  earth  at  the  time  when 

TEPHEM  equals  zero,  scaled  BO  in  units  of  revolutions;  included  in 
the  erasable  load. 

CDU  (CDU  , CDU  , CDU  );  Single  precision  vector  containing  the  measured 
values  of  tKe  IMU^gimbal  angles  (outer,  inner  and  middle  gimbal 
in  X,  Y and  Z components  respectively),  scaled  B-1  in  units  of 
revolutions  and  stored  in  two's  complement  form.  Each  component 
is  an  LGC  input  counter  incremented  directly  from  the  Coupling  Data 
Unit  in  response  to  changes  in  the  IMU  gimbal  angles. 

COSIGA,  COSMGA,  COSOGA:  Double  precision  cosines  of  the  inner,  middle 
and  outer  gimbal  angles  respectively,  scaled  B1  and  unitless. 

Program  notation  "COSCDUq,  COSCDUj , COSCDU^." 

COSTH:  Double  precision  cosine  scaled  B1  in  "ARCTAN"  and  B2  in  "ARCTRIG." 

[dCMAT]:  S ee  ALIN  section. 

[eaRTHMAT]:  Double  precision,  3x3,  orthogonal  transformation  matrix, 
scaled  B1  and  unitless.  Agd  = [eARTHMAT]  Aref , where  A is  a vector 
expressed  in  geodetic  and  reference  coordinates  respectively. 

ET : Double  precision  angle  of  Inclination  of  the  equatorial  plane 

measured  from  the  ecliptic  plane  around  the  earth-to-sun  vector  at 
the  vernal  equinox,  scaled  BO  in  units  of  revolutions.  Used  to 
transform  from  reference  coordinates  to  a right-handed,  orthogonal 
system  whose  X-axis  is  along  the  earth-to-sun  vector  at  the  vernal 
equinox  and  whose  Z-axls  is  perpendicular  to  the  ecliptic. 

ERADM:  Double  precision  radius  of  earth  or  moon,  scaled  B29  In  ^nita 
of  meters. 
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GAMRP;  Double  precision  square  of  the  ratio  of  polar  radius  to  equatorial 
radius,  scaled  B1  and  unitless. 

GTMP:  Working  storage  in  "LSPOS"  scaled  BO  in  xinits  of  revolutions. 

K;1B1:  Double  precision  constant  stored  as  2~^,  scaled  B1  and  luiltless. 
Equation  value:  1.  (Corresponds  to  the  square  of  the  ratio  of- 
polar  radius  to  equatorial  radius  for  the  moon . ) 

K:ld27:  Double  precision  constant  stored  as  0.036291712  x 2,  program 
notation  VAL67+4-,  scaled  B-1  and  unitless.  Equation  value: 

0.036291712.  (Equivalent  to  1 / 27.5545  and  used  in  the  extension 
of  the  circular  approximation  to  the  moon’s  orbit  to  account  for 
eccentricity  and  rotation  of  the  line  of  apsides.) 

K:ld32:  Double  precision  constant  stored  as  0.03125  x 2,  program 
notation  VAL67+10,  scaled  B-1  and  unitless.  Equation 
value:  0.03125. 

K:ld365:  Double  precision  constant  stored  as  0.002737925  x 2,  program 
notation  VAL67+16,  scaled  B-1  and  unitless.  Equation  value; 
0.002737925.  (Equivalent  to  1 / 365.2401.) 

K;504RM;  Double  precision  constant  stored  as  1738090  x 2 scaled 
B29  in  units  of  meters.  Equation  value;  1738090. 

K:aarg:  Double  precision  constant  stored  as  0.530784445,  program 
notation  VAL67+2,  scaled  BO  in  units  of  revolutions.  Equation 
value:  0.530784445. 

K:amod:  Double  precision  constant  stored  as  0.01726666666  x 2,  program 
notation  VAL67,  scaled  B-1  in  vinits  of  revolutions. 

Equation  value:  0.017266666.  (Corresponds  to  2 e / 27T  where 
e is  the  mean  eccentricity  of  the  moon's  orbit  = 0.054245.) 

K:B2dA2;  Double  precision  constant  stored  as  0.9933064884  x 2 
scaled  B1  and  unitless.  Equation  value:  0.9933064884.  (cor- 
responds to  the  square  of  the  ratio  of  polar  radius  to  equatorial 
radius  for  the  earth.) 

K:B2XSC;  Double  precision  constant  stored  as  0.0179450689,  scaled 
B51  in  units  of  meters  squared.  Equation  value:  6356784  squared. 
(Corresponds  to  the  square  of  the  polar  radius  of  the  earth.) 

K;barg:  Double  precision  constant  stored  as  0.585365625,  program 
notation  VAL67+8,  scaled  BO  in  units  of  revolutions.  Equation 
value;  0.585365625. 


COOR  - 11 


2S 

.[sBDOl.  Double  precision  constant  stored  as  -1.145529388  E-16  x 2 , 

scaled  B-28  in  units  of  revolutions  per  centisecond.  Equation  value; 

-1. 145529388  E-16.  (Equivalent  to  7.197573418  E-I4  radians  per  second 
or  2,766,240  years  per  revolution.) 

K:tmod:  Double  precision  constant  stored  as  0.003505277  x 2,  program 
notation  VAL67+6,  scaled  B-1  in  units  of  revolutions. 

Equation  value  0.003505277. 

K;BSUB0:  Double  precision  constant  stored  as  6.512013939  E-2,  scaled 
BO  in  units  of  revolutions.  Equation  value  6.512013939  E-2. 

(Equivalent  to  4.09161903  E-1 „ radians. ) 

K;carg:  Double  precision  constant,  stored  as  -0.01106341036,  program  no- 
tation VAL67+14*  scaled  BO  and  unitless.  Equation  value;  -0.01106341036. 

K;cmod:  Double  precision  constant  stored  as  0.005325277  x 2,  program 
notation  VAIj67+12,  scaled  B-1  in  units  of  revolutions , 

Equation  value;  0.005325277.  (Corresponds  to  2e  / 2tr  where  e 
is  the  mean  eccentricity  of  the  geocentric  solar  orbit  = 0.01674.) 

K:C0SI;  Double  precision  constant  stored  as  0.999641732  x 2~\  scaled 
B1  and  unitless.  Equation  value  0.999641732. 

-33 

K;CST0DAY;  Double  precision  constant  stored  as  864OOOO  x 2 , scaled 

B33  in  units  of  centiseconds.  Equation  value:  864OOOO. 

K;EE;  Double  precision  constant  stored  as  6.6935116  E-3,  scaled  BO 
and  tinitless.  Equation  value;  6.6935116  E-3.  (Corresponds  to 
the  square  of  the  eccentricity  of  the  Fischer  ellipsoid. ) 

-29 

K;ERAD;  Double  precision  constant  stored  as  6373338  x 2 , scaled 

B29  in  units  of  meters.  Equation  value;  6373338.  (Corresponds 
to  the  pad  radius  on  the  earth.) 

27 

K;FD0T;  Double  precision  constant  stored  as  4.253263473  E-9  x 2 , 

scaled  B-27  in  imits  of  revolutions  per  centisecond.  Equation  value; 
4.253263473  E-9.  (Equivalent  to  2.672404256  E-6  radians  per  second 
or  27.21  days  per  revolution . ) 

K;FSUB0;  Double  precision  constant  stored  as  8.290901511  E-1,  scaled 
BO  in  imits  of  revolutions.  Equation  value:  8.290901511  E-1. 

(Eqtilvalent  to  5.209327056  radians.) 


COOR  - 12 


K:gloktest:  Double  precision  constant  stored  as  0.1666666667,  scaled 
BO  in  units  of  revolutions.  Equation  value:  0.1666666667. 
(Equivalent  to  60  degrees.)  Program  notation  ".166...". 

K:K0NMA.T  : Double  precision  3x3  matrix,  scaled  B1  and  unitless. 

Used  to  transform  from  ecliptic  to  equatorial,  earth-centered 
coordinates.  Equation  value: 

1 0 ol 

0 a b 

_0  c d J 

where  a = 0.91745,  b = -0.03571  (-0.39784  x 0.08976),  c = 0.39784 
and  d = 0.082350  (0.91745  x 0.08976).  The  quantities  0.39784  and 
0.91745  are  the  sine  and  cosine  respectively  of  23.444  degrees; 
0.08976  is  the  sine  of  5.150  degrees.  Note  that  the  factor  0.08976 
has  no  effect  on  the  transformation  of  the  sun's  position  vector 
and  is  actually  a parameter  of  the  I'unar  orbit. 

K:lomo:  Double  precision  constant  stored  as  0.815282336,  program 
notation  RATESP+6,  scaled  BO  in  units  of  revolutions.  Equation 
value:  0.815282336.  (Corresponds  to  the  position  of  the  moon  in 
it's  orbit  at  July  1,  1969.) 

K:loinr:  Double  precision  constant  stored  as  0.03660098  x 2^,  program 
notation  RATESP,  scaled  B-4  in  units  of  revolutions  per  day. 
Equation  value:  0.03660098.  (Equivalent  to  1 revolution  per 
27.32167  days.  Corresponds  to  the  sidereal  period  of  the  moon.) 

K:lono:  A double  precision  constant  stored  as  0.986209499,  program 
notation  RATESP+10,  scaled  BO  in  units  of  revolutions.  Equation 
value:  0.986209499.  (Corresponds  to  the  position  of  the  mean 
ascending  node  of  the  lunar  orbit  on  the  ecliptic  at  July  1,  1969.) 

K:lonr:  Double  precision  constant  stored  as  -0.00014719  x 2^,  program 
notation  RATESP+4,  scaled  B-4  in  units  of  revolutions  per  day. 
Equation  value:  -0.00014719. 


K;loso:  Double  precision  constant  stored  as  0.274674910,  program 
notation  RATESP+8,  scaled  BO  in  units  of  revolutions.  Equation 
value:  0.274674910.  (Corresponds  to  the  position  of  the  sun  at 
July  1 , 1969 . ) 


K:losr:  Double  precision  constant  stored  as 
notation  RATESP+2,  scaled  B-4  in  units  of 
Equation  value:  0.00273779.  (Equivalent 
365.2581  days.  Corresponds  as  closely  to 
the  anomalistic  year.) 


0.00273779  x 2 , program 
revolutions  per  day. 
to  1 revolution  per 
the  sidereal  year  as  to 
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iv:NODDOr:  Double  precision  constant  stored  as  -1.703706190  E-11  x 2 , 

scaled  B-28  in  units  of  revolutions  per  centisecond.  Equation 
value:  -1.703706190  E-11.  (Equivalent  to-1. 070470170  E-8  radians 
per  second  or  18.600  years  per  revolution.) 

KtNODIO:  Double  precision  constant  stored  as  9.862094363  E-1,  scaled 
BO  in  vinlts  of  revolutions.  Equation  value:  9.862094363  E-1. 
(Equivalent  to  6.196536640  radians.) 

K;QTSN45:  Double  precision  constant  stored  ae  0.1768,  scaled  B2  and 
unitless..  Eq-uatlon  value;  0.7072.  (Equivalent  to  the  sine  of  45°.  ) 

•1 

K:SINI;  Double  precision  constant  stored  as  2.676579050  E-2  x 2”  , scaled 
B1  and  -unltless.  Equation  value:  2.676579050  E-2. 

23 

K:WEARTH:  Double  precision  constant  stored  as  1.160576171  E-7  x 2 , 

scaled  B-23  in  units  of  revolutions  per  centisecond.  Equation  value; 
1.160576171  E-7.  (Equivalent  to  7.292115147  E-5  radians  par  second.) 

LAT:  Double  precision  geodetic  or  selenographic  latitude,  scaled  BO 
in  units  of  revolutions. 

^504!  Double  precision  vector  to  account  for  precession  and  nutation 
of  the  earth’s  polar  axis  (the  deviation  of  the  true  pole  from 
the  mean  pole),  scaled  BO,  unitless  and  expressed  in  reference 
coordinates;  used  in  an  approximate  transformation  from  reference 
to  true  equatorial  coordinates. 

LM504:  Double  precision  vector  to  account  for  precession  and  nutation 
of  the  moon's  polar  axis  (the  deviation  of  the  true  pole  from  the 
mean  pole),  scaled  BO  in  units  of  radians  and  expressed  in  seleno- 
graphic coordinates;  an  approximation  most  accurate  at  the  nominal 
midpoint  of  a mission.  Program  notation  "504LM"  (in  erasable  load). 

LCMG;  Double  precision  geodetic  or  selenographic  longitude,  scaled 
BO  in  units  of  revolutions. 

MN:  Double  precision  angle  in  the  ecliptic  plane,  measured  from  the 
earth-to-sun  vector  at  the  vernal  eqviinox  to  the  moon-to-sun  vector 
at  the  mean  descending  node  on  the  ecliptic  of  the  moon's  orbit 
aroimd  the  earth.  Used  to  rotate  the  X-aJcis  in  the  ecliptic  plane. 

[mNMATi]  , {mNMAT;^  , [mnMAT^  : Three  double  precision,  3x3,  orthogonal 
transformation  matrices,  scaled  B1  and  unitless.  ^NMAT^  in- 
corporates a rotation  around  the  X reference  axis  through  the  angle 
of  inclination  of  the  earth's  polar  axis  followed  by  a rotation 
around  the  Z axis  (now  perpendicular  to  the  ecliptic)  throvigh  the 
angle  to  the  descending  node  on  the  ecliptic  of  the  moon's  orbit 
around  the  earth.  QWMAT2]  rotates  the  system  around  the  new  X 
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axis  through  the  angle  of  inclination  qf  the  moon's  true  polar  axis. 
[MNMATS]  completes  the  transformation  to  selenographic  coordinatfes 
by  rotating  around  the  moon's  polar  axis  from  the  descending  node  to 
the  present  position  relative  to  that  node. 

[MOONMAT]:  Double  precision,  3x3,  orthogonal  transformation  matrix, 

scaled  B1  and  unitless.  Asg  = [mOONMAT]  Aref  where  A is  a vector 
expressed  in  selenographic  and  reference  coordinates  respectively. 

MR:  Double  precision  angle  of  rotation  of  the  moon  around  its  true 

polar  axis,  scaled  BO  in  units  of  revolutions. 

[NBSMMAT]:  Double  precision,  3x3,  orthogonal  transformation  matrix, 
scaled  B1  and  unitless.  Asm  = [NBSMMATI  Anb  where  A is  a vector 
expressed  in  stable  member  and  navigation  base  (body)  coordinates 
respectively. 

OGC,IGC,MGC:  Double  precision  commanded  glmbal  angles  scaled  BO  in 
units  of  revolutions  or  (equivalently)  scaled  B21  in  units  of  gyro 
torque  oulses  of  2“^^  revolutions  each. 

[REFSMMAT]:  Double  precision,  3x3  transformation  matrix,  scaled  B1 

and  unitless.  Defined  such  that  Asm  = [rEFSMMAT]  Arf  where  A is 
a vector  expressed  in  stable  member  and  reference  coordinates 
respectively . 

RLS  : See  CONG  section. 

SINIGA,  SINMGA,  SINOGA:  Double  precision  sines  of  the  inner,  middle 
and  outer  glmbal  angles  respectively,  scaled  B1  and  unitless. 

Program  notation  SINGDUq,  SINCDU2>  SINCDU^. 

SINTH:  Double. precision  sine,  scaled  B1  in  the  "ARCTAN"  routine 

and  B2  in  the  "ARCTRIG"  routine. 

[SMNBMAT]:  Double  precision,  3x3,  orthogonal  transformation  matrix, 
scaled  B1  and  unitless.  Anb  = [SMNBMAT]  Asm  where  A is  a vector 
expressed  in  navigation  base  (body)  and  stable  member  coordinates 
respectively. 

STMP^  (i=0,2,4);  Three  double  precision  working  storage  registers 
in  "LSPOS"  scaled  BO  in  units  of  revolutions. 

TEPHEM:  Triple  precision  elapsed  time  between  July  1.0  universal 
time  and  the  time  the  LGC  clock  is  zeroed,  scaled  B42  in  units  of 
centiseconds ; included  in  the  erasable  load. 

THETA:  Double  precision  angle  computed  from  SINTH  and  COSTH,  scaled 
BO  in  units  of  revolutions. 

THETAD:  See  ATTM  section. 
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ISsTin:  Double  precision  vector  contents  of  the  MPAC  when  return  from 
”LSPOS”,  representing  the  unit  position  vector  of  the  sun,  scaled 
B1  and  unitless. 

Double  precision  vector,  scaled  BO,  which  gives  the  polar  axis  in 
the  reference  coordinate  system.  The  x component  (program  notation  "-AYO" 
gives  the  "true  to  mean  pole  rotation  about  the  -Y  axis";  the  y component 
(p'^ogram  notation  "AXO")  gives  the  "true  to  mean  pole  rotation  about  the 
t-X  axis”}  Included  in  the  erasable  load. 

IffiGl  , Working  storages  for  the  position  vectors  or  unit  position 

rectors  in  reference,  selenographic,  or  geographic  coordinates. 

V5DN:  Double  precision  unit  position  vectors  of  the  moon  and  sun, 
scaled  B1  and  unitless. 

YNB,  ZNB  (piBrf,  YNBrf,  ZNBrf;  BIBsm,  TNBsm,  ZNBsm):  Double  precision 
a:  it  vectors  along  the  X,  T and  Z navigation  base  axes  (body  axis) 
respectively,  scaled  Bl,  unitless,  and  expressed  in  reference  or  stable 
w-^mber  coordinates. 

p5M,  YSM,  ZSM  (KMrf,  YSMrf,  ZSMrf;  ^nb,  TSMnb,  ZSMnb):  Double  precision 
unit  vectors  along  the  X,  I and  Z stable  member  axes  respectively, 
sealed  Bl,  unitless,  and  expressed  in  reference  or  navigation  base 
coordinates . 

pBSAV,  ZNBSAV:  Working  storages  for  the  YNB  and  ZNB  unit  vectors  in  moon 
1 -xed  coordinates. 
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Digital  Autopilot  Control  Routines 


T5RUPT  (Entered  on  program  Interrupt  #2) 

Proceed  to  address  specified  In  T5ADR 
D0T6RUFT  (Entered  on  program  Interrupt  #1 ) 
Perform  "T6J0BCHK" 


Resme 

T6J0BCHK  If  TIME6  < 0 or  TIME6  = +0,  proceed  to  "CCSHOLE" 

If  TIME6  > 0,  return 
1 = NXT6AXIS 
TIME6  = T6NEXTTMq 
NXT6AXIS  = T6NEXTAX^ 

T6NEXTTMq  = T6NEXTTM2 
T6NEXTAX^  = T6NEXTAX^ 

T6NEXTTM2  = K:posmaxsp 
T6NEXTAX^  = 0 

If  TIME6  > K:T6llm,  TIME6  = K:posmaxsp 

If  TIME6  < K:T6llm: 

Perform  "C13STAIjL"  protecting  the  L and  Q registers 
Switch  bit  15  of  channel  13  to  1 (enable  TIMES  counter) 

If  TSNEXTTMq  > K:T6llm,  TSNEXTTM^  = K:posmaxsp 
If  1 = 0,  perform  "WRITEP"  with  TS  = NEXTP 

If  i = 4,  perform  "WRITEU”  with  TS  = NEXTU 

If  1 = 13,  perform  "WRITEV"  with  TS  = NEXTV 
Return 
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JTLST 


TS  = TIME6 


If  T6NEXTTM2  < TS:  (new  jet  time  shorter  than  smallest 

remaining  jet-on  time  ) 

TSt  = TS  - T6NEXTTM2 
TSa  = NXT6AXIS 
TIME6  = TeNEXTTM^ 

NXT6AXIS  = T6NEXTAX^ 

T6NEXTTM2  = T6NEXTTMq 
T6NEXTAX^  = T6NEXTAX^ 

T6NEXTTMq  = TSt 
T6NEXTAX^  = TSa 
Perform  "CI3STALL" 

Switch  bit  15  of  channel  13  to  1 (Enable  TIME6  coimter) 
Return 

TS  = TS  + T6NEXTTMq 

If  T6NEXTTM2  < TS:  (New  jet  time  shorter  than  second  remaining 

jet-on  time  in  list) 

TSt  = TS  - T6NEXTTM2 

TSa  = T6NEXTAX^ 

T6NEXTTMq  = T6NEXTTM2  - TIME6 

T6NEXTAX^  = T6NEXTAX^ 

T6NEXTTM  = TSt 
2 

TbNEXTAX^  = TSa 
Return 

T6NEXTTM  = T6NEXTTM  - TS  (New  time  is  longest) 

Return 
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DAPir-LER 


MOREIDLE 


CHEKBITS 


ALTDSPLY 


If  RCSFLAGS  bit  13  = 0: 

Switch  RCSFLAGS  bit  13  to  1 

Establish  "I/ACCSET"  (pr  27) 

Perform  "CHEKBITS" 

If  DAPBOOLS  bit  3 (ACCSOKAY)  = 1: 

Proceed  to  "STARTDAP" 

Perform  "QERRCALC" 

Perform  "CALCPERR" 

T5ADR  = "DAPIDLER" 

NEXTP,  NEXTU  and  NEXTV  = OOOOOg 

Switch  channels  5 and  6 to  OOOOOg  (all  jets  off) 

Switch  bits  12-9  of  channel  12  to  0 (gimbal  drive  bits) 

Set  TIME5  to  cause  program  interrupt  #2  in  100  milliseconds 
Resume 

If  bits  13  and  14  of  channel  31  both  = 1: 

Proceed  to  "MOREIDLE"  (No  longer  in  Held  or  Auto  mode) 

If  IM0DES33  bit  6 = 1:  (Internal  DAP  disable) 

Switch  RCSFLAGS  bit  3 (DSTEPONE)  to  1 
Proceed  to  third  step  of  "MOREIDLE" 

Perform  "ALTDSPLY" 

If  channel  30  bit  10  = 1,  Proceed  to  "MOREIDLE" 

Return 

Invert  RCSFLAGS  bit  4 (DSPLYALT) 

If  RCSFLAGS  bit  4 (DSPLYALT)  = 1,  proceed  to  "NEEDLER" 

If  FLAGWRDO  bit  15  (NEED2FLG)  = 1: 

M = - (OMEGAP,  OMEGAQ,  OMEGAR) 

i 

Return 
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If  FLAGWRDO  bit  4 (NEEDLFLG)  = 1 : 


NEEDIER 


TStheta  = THETAD  - CDU 

y y 

TSpsl  = THETAD  - CDU 
^ z z 

AK  = M21  TStheta  + M22  TSpsl 
AK^  = M31  TStheta  + M32  TSpsl 
TSphl  = THETAD^  - GDU^ 

AK  = Mil  TStheta  + TSphl 


(converted  to  one's  comp  form) 
(similarly  converted) 

(limited  within  t 
(limited  within  - -^) 
(converted  to  one's  con?)  form) 
(limited  to  within  - ■^) 


If  FLAGWRDO  bit  4 (NEEDLFLG)  = 0,  AK  = -(PERROR,  QERROR,  RERROR) 
Return 


If  RCSFLAGS  bit  3 (DSTEPONE)  = 1 ; 

Switch  bit  6 of  channel  12  to  0 (Reset  IGDU  Error  Gounter 

enable  discrete) 

AK  = 0 (-0) 

EDRIVE  =0  (-0) 

GDUj^GMD  = 0 for  1 = x,  y,  z (-0) 

Switch  RGSFLAGS  bit  3 (DSTEPONE)  to  0 
Switch  RGSFLAGS  bit  2 (DSTEPWO)  to  1 
Return 

If  RCSFLAGS  bit  2 (DSTEPTWO)  = 1 : 

Switch  bit  6 of  channel  12  to  1 

Switch  RGSFLAGS  bits  2 (DSTEPTWO)  and  3 (DSTEPONE)  to  0 
Return 

If  bit  6 of  channel  12  = 0;  (ICDU  Error  Counters  have  been 

disabled) 

Switch  RCSFLAGS  bit  3 (DSTEPONE)  to  1 
Return 
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]^;ESDII.'8  Perform  the  indented  steps  for  1 = z,  then  y,  then  x 


STARTDAF 


TS  = - AK.  K:ONETENTH 
1 

If  [TS|  i Ktecllm,  TS  = Kreclim  signTS 

CDU.CMD  = CDUXMD  + Krtrvtoc  (TS  - EDRIVE.) 

1 i 1 

EDRIVE.  = TS 
1 

Switch  bits  13,  14  and  15  of  channel  14  to  1 (send  CDU^CMD's) 

Return 

Perform  " ZATTEROR" 

TJq,  TJ^ , and  TJ2  = 0 

OMEGAP,  OMEGAQ,  and  OMEGAR  = 0 

TRAPEDP,  TRAPEDQ,  and  TRAPEDR  = 0 

AOSQ  and  AOSR  = 0 

ALPHAQ  and  ALPHAR  =0 

NEGUq  and  NEGU^  = 0 

AOSQTERM  and  AOSRTERM  = 0 

QACCDOT  and  RACCDOT  = 0 

ALLOWGTS  = 0 

COTROLER  = 0 

INGTS  =0 

QGIMTIMR  and  RGIMTIMR  = 0 
OLDPMIN  and  OLDQRMIN  = 0 
PJETCTR^  = 0 (1  = 1,2,3) 

Switch  RCSFLAGS  bits  1,5  (CALL(»IBL)  ,1 0 (PBIT),11  (QRBIT)  to  0 
OLDXFORP  = CDU 

X 

OLDYFORP  = CDU 

J 

OLDZFORQ  = CDU 

z 

Switch  RCSFLAGS  bit  12  to  1 
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SKIPUV^  and  SKIPUV^  = 4 
TIME6  = K:posmaxsp 

T6NEXTTMq  and  T6NEXTTM2  = Ktposmaxsp 
T6NEXTAX^  and  T6NEXTAX^  = 0 
NXT6AXIS  =0 

NEXTP,  NEXTU,  and  NEXTV  = OOOOOg 
DAPZRUPT  = -10 

NPTRAPS,  NQTRAPS  and  NRTRAPS  = 2 
T5ADR  = "PAXIS" 

Set  TIME5  to  cause  program  interrupt  #2  in  100  milliseconds 
Resume 

PAXIS  Set  TIME5  to  cause  program  interrupt  #2  in  (IOO  - TIME5)  milliseconds 

If  DAPZRUPT  > 0,  proceed  to  "BAILOUT"  with  TS  = 32000 g 
(previous  DAP  cycle  still  in  progress) 

Perform  "CHEKBITS" 

CDUiTMP  = CDUi  (i  = x,y,z) 

CDUD  = CDUD  - DELCDU 

TCP  = TCP  - 1 

TCQR  = TCQR  - 1 

Proceed  to  "PAXFILT" 

RATELOOP  i = 2 

TSq  = 2 i 

If  TJ.  = 0,  TSt  = 0 

If  TJ.  4 0: 

1 ' 

If  ItJ.I  < K:100msT6: 

I i* 

TSt  = K:T6tosec  TJ. 

1 

TJ^  = 0 
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(If  TJ^  i-  0) 

If  iTJ^i  > K;100msT6: 

TJi  = TJ^  - K:100m8T6  signTJ^ 

TSt  = KrO.lsecBO  signTJ^ 

TS^  = TSt  NUMJETS^ 

TSdnln  = KrBITIO 
If  TSdnln  < 0; 

TSdnln  = -TSdnln 
TSq  = TSq  + 1 

DOWNTORK^g^  = DOWNTORK^gq  + TSdnln 
If  i > 0: 

1 = 1-1 

Proceed  to  2nd  step  of  "RATELOOP" 

JETRATER  = 1JACCR  (TS^  + TSg) 

JETRATEQ  = 1JACCQ  (TS^  " TS2) 

BACK?  JETRATEP  = 1JACCP  TSq 
TS  = CDUxTMP 

TSx  = TS  - OLDXFORP  (converted  to  one's  con5)leinent  form) 

OLDXFORP  = TS 

TRAPEDP  = TRAPEDP  - ^ JETRATEP 

TRAPEDQ  = TRAPEDQ  - i (JETRATEQ  + AOSQTERM) 

TRAPEDR  = TRAPEDR  - (JETRATER  + AOSRTERM) 

TS  = CDUyTMP 

TSy  = TS  - OLDYPORP  (converted  to  one's  con^jlement  form) 

OLDYFORP  = TS 
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MEASRATE  = (TSx  + Mil  TSy)  / K;1d40  (limited) 

TRAPEDP  = TRAPEDP  + MEASRATE  - OMEGAP  (limited) 

DXERROR  = DXERROR  + (Mil  TSy  + TSx)  - K;1d40  PLAST 
TS  = CDUzTMP 


TSz  = TS  - OLDZFORQ  (converted  to  one’s  complement  form) 

OLDZFORQ  = TS 

MEASRATE  = (M21  TSy  + M22  TSz)  / K:1d40  (limited) 

TRAPEDQ  = TRAPEDQ  + MEASRATE  - OMEGAQ  (limited) 

DYERROR  = DYERROR  + (M21  TSy  + M22  TSz)  - K:1d40  QLAST 
MEASRATE  = (M31  TSy  + M32  TSz)  / K;1d40  (limited) 

TRAPEDR  = TRAPEDR  + MEASRATE  - OMEGAR  (limited) 

DZERROR  = DZERROR  + (M31  TSy  + M32  TSz)  - K;1d40  RLAST 
If  DAPBOOLS  bit  13  (CSMDOCKD)  = 1: 
n = DKOMEGAN 


na  = DKKAOSN 


TRAPS IZE=  DKTRAP 
If  DAPBOOLS  bit  13  (CSMDOCKD)  = 0: 
n = LMOMEGAN 
na  = LMKAOSN 


TRAPS IZE  = LMTRAP 
If  ITRAPEDP]  > - TRAPSIZE; 

OMEGAP  = OMEGAP  + TRAPEDP  / NPTRAPS  (limited) 

TRAPEDP  = 0 


NPTRAPS  = n 
NPTRAPS  = NPTRAPS  + 1 
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OMEGAP  = OMEGA.P  + JETRATEP 


(limited) 


If  ItRAPEDQI  > - TRAPSIZE: 

QKALERR  = TRAPEDQ  / NQTRAPS 
TRAPEDQ  = 0 

OMEGAQ  = OMEGAQ  + QKALERR 

AOSQ  = AOSQ  + KzIdlOOms  QKALERR  / (NQTRAPS  + 
NQTRAPS  = n 
NQTRAPS  = NQTRAPS  + 1 
OMEGAQ  = OMEGAQ  + JETRATEQ  + AOSQTERM 
If  jTRAPEDRl  > - TRAPSIZE: 

RKALERR  = TRAPEDR  / NRTRAPS 
TRAPEDR  = 0 

OMEGAR  = OMEGAR  + RKALERR 

AOSR  = AOSR  + K:1d100ras  RKALERR  / (NRTRAPS  + 
NRTRAPS  = n 
NRTRAPS  = NRTRAPS  + 1 
OMEGAR  = OMEGAR  + JETRATER  + AOSRTERM 
If  DAPBOOLS  bit  8 (DRIFTBIT)  = 1 : 

ALPHAQ  and  ALPHAR  = 0 
AOSQTERM  and  AOSRTERM  = 0 
AOSQ  and  AOSR  = 0 
If  DAPBOOLS  bit  8 (DRIFTBIT)  = 0 ; 

AOSQ  = AOSQ  + K:CALLGODE  QACCDOT 

ALPHAQ  = AOSQ 

AOSQTERM  = Kiaosint  AOSQ 


(limited) 

na) 

(limited) 


(limited) 

na) 

(limited) 


(sp) 
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PAXFILT 


SUPERJOB 


(If  DAPBOOLS  bit  8 (DRIFTBIT)  = O) 

AOSR  = AOSR  + K:CALLCODE  RACCDOT 
ALPHAR  = AOSR 
AOSRTERM  = K:ao3int  AOSR 
Proceed  to  2nd  line  of  "SUPERJOB" 

The  following  coding  causes  the  "Resme"  instruction  to 
resume  operations  at  "SUPERJOB"  instead  of  at  the  job  that 
was  interrupted 

If  RCSFLAGS  bit  5 (CALLGMBL)  = 1: 

Perform  "ACDT+C12" 

DAPARUPT  = ARUPT^ 
dp 

DAPBQRPT  = BRUPT 

DAPBQRPT  +1  = QRUPT 

DAPZRUPTj  = ZRUPT^ 
dp  dp 

BRUPT  = Instruction  stored  at  location  SUPERJOB 

ZRUPT  = Address  of  SUPERJOB  + 1 

Resume 

The  purpose  of  this  \inusual  manipulation  of  the  "Resiune" 
instruction  is  to  establish  "SUPERJOB"  on  a time-critical 
basis — immediately — while  still  allowing  it  to  be  interrupted 
by  tasks  and  other  interrupts. 

Proceed  to  "RATELOOP" 

If  QGIMTIMR  = 0: 

NEGUq  = 0 

QACCDOT  = 0 

Switch  bits  9 and  10  of  channel  12  to  0 (Q  GTS  drives) 
QGIMTIMR  = — K:posmaxsp 
If  QGIMTIMR  > 0: 

QGIMTIMR  = QGIMTIMR  - 1 
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SKIPPAXS 


CHKVISFZ 


TRYUORV 


If  RGIMTIMR  = 0; 

NEGU2  = 0 
RACCDOT  =0 

Switch  bits  11  and  12  of  channel  12  to  0 (R  GTS  drives) 
RGIMTIMR  = - Ktposmaxsp 
If  RGIMTIMR  >0: 

RGIMTIMR  = RGIMTIMR  - 1 

PJETCTR^  = PJETGTR^  - 1 signPJETCTRj^  (i  = 1,2,3)  (zero  unchanged) 
If  RCSFIAGS  bit  12  =1,  proceed  to  "CHKVISFZ" 

Switch  RCSFIAGS  bit  12  to  1 
Proceed  to  "QRAXIS" 

TS  = - contents  of  channel  31  (all  bits  complemented) 

If  bits  9-12  of  TS  all  = 0: 

TS  = OOOOOg 
Proceed  to  "TSNEXTP" 

i = bits  9-12  of  TS  shifted  right  8 to  bit  positions  1-4 

ROTINDEX  = KrINDXYZ.  (if  somehow  i is  illegal,  proceed  to 

^ two  steps  before  "TSNEXTP") 

NUMBERT  = 6 

Perform  "SELECTP"  with  i = NUMBERT 

If  NUMBERT  = 6:  (required  jets  are  all  available) 

TS  = POLYTEMP 
Proceed  to  "TSNEXTP" 

If  ROTINDEX  < 5:  (Principal  axis  translation  cannot  be 

accomplished  because  of  jet  failure;  try  tacking  along 
an  appropriate  U or  V axis) 

TS  = OOOOOg 

Invert  RCSFIAGS  bit  1 

If  RCSFIAGS  bit  1 = 1,  TS  = 00001 g 
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(If  ROTINDEX  < 5) 

ROTINDEX  = ROTINDEX  + TS  + 4 


Proceed  to  "TRYUORV" 

If  NUMBER!  ^ 4!  (One  combination  of  jets  is  available  to 

acconplish  a U or  V axis  translation) 

TS  = POLYTEMP 
Proceed  to  "TSNEXTP" 

Perform  "ALARM"  with  TS  = 02001 g 
Invert  RCSFLAGS  bit  1 
TS  = OOOOOg 
TSNEXTP  NEXTP  = TS 

If  bit  13  of  channel  31  = 1 and  DAPBOOLS  bit  9 (XOVINHIB)  = 1; 


Proceed  to  "PURGENOY"  (Auto  with  X-axis  override  disabled) 

If  bit  13  of  channel  31  = 1 or  DAPBOOLS  bit  15  (PULSES)  = 0: 

Proceed  to  "DETENTCK"  (Minimum  inpulse  not  allowed  or 

not  specified  by  DAPBOOLS) 

(otherwise,  minimum  inpulse  mode) 

PERROR  = 0 

CDUD  = CDU 

X X 

If  OLDPMIN  > 0;  (not  returned  to  detent  since  jets  fired) 

TS  = - contents  of  channel  31  (all  bits  complemented) 


OLDPMIN  = bits  3 and  4 of  TS 


Proceed  to  "JETSOFF" 

(otherwise,  OLDPMIN  = 0,  indication  that  no  yaw  commands  were 
present  during  last  DAP  cycle) 

If  bits  3 and  4 of  channel  31  both  = 1 , proceed  to  " JETSOFF" 
If  bit  4 of  channel  31  = 0,  TJq  = - Krmininptj  (-P) 
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ZEROENBL 


DETENTCK 


If  bit  3 of  channel  31  = 0,  TJ^  = Krmlnimptj  (+P) 

OLDPMIN  = 1 
NUMBER!  = 4 

If  FLAGWRD5  bit  5 (AORBSFLG),  NUMBER!  = 5 
Proceed  to  "PJE!SLEC" 

SAVEHANDq  = RHCQ 
SAVEHAND^  = RHCR 
RHCP , RHCQ , and  RHCR.  = 0 

Perform  "C13S!ALL"  with  interrupts  inhibited 

Switch  bits  8 and  9 of  channel  13  to  1 

(start  RHC  read  and  enable  RHC  counters) 

Return 


!S  , = channel  31 

ch31 

If  bit  15  = 1 and  DAPBOOLS  bit  12  (OURRCBI!)  = 0 

Proceed  to  "PURGENCY" 

If  TS^^^-i  bit  15  = 0 and  DAPBOOLS  bit  12  (OURRCBI!)  = 1 
Switch  RCSFLAGS  bit  9 (JUS!IN)  to  1 


Proceed  to  "RA!ERR0R" 

If  bit  15  = 0 and  DAPBOOLS  bit  12  (OURRCBI!) 

Switch  RCSFLAGS  bit  9 (JUS!IN)  to  1 

PERROR  = 0 

Switch  DAPBOOLS  bit  12  (OURRCBI!)  to  1 

DXERROR , = 0 

dp 

DYERROR,  = 0 
dp 

DZERROR^  = 0 
dp 

PLAS!  = 0 

QLAS!  = 0 

RLAS!  = 0 


= 0 
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RATERROR 


(If  bit  15  = 0 and  DAPBOOLS  bit  12  (OURRCBIT)  = O) 

RHCQ  = 0 
RHCR  = 0 

Switch  RCSFLAGS  bits  10  (PBIT)  and  ll(QRBIT)  to  0 
Perform  "ZEROENBL" 

Proceed  to  "JETSOFF" 

If  bit  15  = 1 and  DAPBOOLS  bit  12  (OURRCBIT)  = 1; 

If  RCSFLAGS  bit  9 (JUSTIN)  =1: 

If  channel  31  bit  13  = 0,  proceed  to  "RATEDAMP" 
Switch  RCSFLAGS  bits  9 & 11  (JUSTIN  & ORBIT)  to  0 
Proceed  to  "RATEDAMP" 

If  RCSFLAGS  bit  10  (PBIT)  = 1 , proceed  to  "RATEDAMP" 

If  RCSFLAGS  bit  11  (QRBIT)  = 1 , proceed  to  "RATEDAMP" 
Switch  DAPBOOLS  bit  12  (OURRCBIT)  to  0 
If  channel  31  bit  13=1; 

CDUD  = CDU 

X X 

Proceed  to  "PURGENCY" 

Perform  "ZATTEROR" 

Proceed  to  "PURGENCY" 

CDUD  = CDU 

X X 

TSp  = PLAST 

PLAST  = STIKSENS  RHCP  ((|rHCP|  - 1)  + K:LINRAT) 

TS1  = PUST  - TSp 
Perform  "ZEROENBL" 

EDOT  = OMEGAP  - PLAST 
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RATEDAMP 


PEGI 


If  iTSll  > RATEDB; 

TCP  = K;40cyc 
Proceed  to  "PEGI" 

If  RCSFLAGS  bit  10  (PBIT)  = 1,  proceed  to  "PEGI" 

E = DXERROR 
PERROR  = DXERROR 

Proceed  to  third  line  of  "PUR(31NCY" 

RHCP  =0 

Proceed  to  "RATERROR" 

CDUD  = CDU 

X X 

DXERROR,  = 0 
dp 

PERROR  = 0 
ABSEDOTP  = lEDOTl 

If  ABSEDOTP  > RATEDB  and  if  TCP  >0: 

Switch  RCSFLAGS  bit  10  (PBIT)  to  1 
Skip  next  step 

Switch  RCSFLAGS  bit  10  (PBIT)  to  0 

TJq  = - 2 K:25B5  EDOT  IdANETP  (limited) 

If  ABSEDOTP  > 2JETLIM: 

NUMBERT  = 6 
Proceed  to  "PJETSLEC" 

TJq  = 2 TJq 

NUMBERT  = 4 

If  FLAGWRD5  bit  5 (AORB^-LG ) = 1 , NUMBERT  = 5 
Proceed  to  "PJETSLEC" 
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CALCPERR 


PURGENCY 


PJETSLEC 


E = M11  (GDU  - CDUD  ) 

7 7 

E = E + GDU  - GDUD  + DELPEROR 

X X 

PERROR  = E 
Return 

Perform  "GALGPERR" 

EDOT  = OMEGAP  - OMEGAPD 
AXISGTR  = -1 

If  DAPBOOLS  bit  13  (GSMDOGKD)  = 1; 

Perform  "SPSRGS"  with  interrupts  Inhibited 
If  TJq  = 0: 

Invert  FLAGWRD5  bit  5 (AORBSFLG) 

Proceed  to  "JETSOFF" 

HUMBERT  = 4 

If  FUGWRD5  bit  5 (AORBSFLG)  = 1,  HUMBERT  = 5 
Proceed  to  "PJETSIEG" 

SEHSETYP  = 0 

Perform  "TJETLAW"  with  interrupts  inhibited 
HUMBERT  = 6 

If  FIREFGT  > K;mFOURDEG  or  if  |tJq|  < K;l60msT6; 
HUMBERT  = 4 

If  FLAGWRD5  bit  5 (AORBSFLG)  = 1,  HUMBERT  = 5 
TS  = 1 

If  TJq  = 0,  proceed  to  "JETSOFF" 

If  TJq  < 0,  TS  = 0 
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JETSOFF 


WRITE? 


SELECT? 


ABSTJ  = ItJqI 
ROTINDEX  = TS 

Rerform  "SELECT?"  with  1=6 

If  NUMBERT  =6,  TS  = 4 (jets  all  available  for  4-jet  rotation] 
If  NUMBERT  7^  6,  TS  = 2 
NUMJETSq  = TS 

Rerform  "WRITE?"  with  TS  = ROLYTEM?  (turn  on  rotation) 

If  ABSTJ  > K:150msT6,  proceed  to  "QRAXIS" 

If  ABSTJ  c K;150msT6  - K:136msT6; 

ABSTJ  = K:150msT6  - K!l36insT6 
TJq  = KiMINTIMES  slgnTJp 
Inhibit  Interrupts 
TbNEXTTMg  = ABSTJ 

TbNEXTAX^  =0  (0  Indicates  ?-axls) 

Rerform  "JTLST" 

Switch  RCSFLACE  bit  12  to  0 
Invert  FLAGWRD5  bit  5 (AORBSFLC ) 

Release  Interrupt  Inhibit 
Rroceed  to  "QRAXIS" 

Rerform  "WRITE?"  with  TS  = NEXT? 

TJo  = 0 

Proceed  to  "QRAXIS" 

Set  bits  1-8  of  channel  6 = bits  1-8  of  TS 
Return 

TSa  - K:quads?jj^gj^^ 
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(logic  "and"  function) 


PRAXIS 


TSb  - KitypmanPj^Q^jjjj^g^ 
POLYTEMP  = TSa  TSb 


If  any  of  the  blnai'y  bits  that  are  1 in  POLYTEMP  are  also 
1 in  CH6MASK  (at  least  one  of  the  required  jets  has  been  failed) 


If  i = 0:  (1  cannot  be  zero  in  selection  of 

translation  jets) 

Perform  "ALARM"  with  TS  = 02003g  (rotation  failure) 
Proceed  to  "JETSOFP' 


i = 1 - 1 
NUMBER!  = i 
Proceed  to  "SELECTP" 

Return 

EDOTR  = OMEGAR  - OMEGARD  (limited) 

EDOTQ  = OMEGAQ  - OMEGAQD  (limited) 

If  channel  31  bit  13  = 0: 

If  DAPBOOLS  bit  12  (OURRCBIT)  = 1,  skip  next  step 
Perform  "QERRCALC" 

If  GOTROLER  = 0,  proceed  to  "TRY GTS" 

If  GOTROLER  > 0,  proceed  to  "GTS" 

Proceed  to  "RGS" 


QERRGALG 


TSy  = GDU  - GDUD 

^ ^ (converted  to  one's  comp,  form) 

TSz  = GDU  - GDUD 


z z 

QERROR  = M21  TSy  + M22  TSz  + DELQEROR 
RERROR  = M31  TSy  + M32  TSz  + DELREROR 


Return 


RGS  GOTROLER  = 0 
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't'XORUL  CE 


OMEGAU  = - GOEFFQ  EDOTQ  + COEFFR  EDOTR 
OMEGAV  = GOEFFQ  EDOTQ  + GOEFFR  EDOTR 
If  channel  31  bit  7=0: 

TS  = 5 

Proceed  to  "+XORULGE" 

If  channel  31  bit  8=0: 

TS  = 4 

Proceed  to  "+XORULGE" 

If  DAPBOOLS  bit  6 (ULLAGER)  = 1 : 

TS  = 5 

Proceed  to  "+XORTJLGE" 

NEXTU  = 0 
NEXTV  = 0 

If  DAPBOOLS  bit  8 (DRIFTBIT)  = 1 : 

SENSETIP  = 0 

Proceed  to  3rd  step  of  "TSNEXTS" 

SENSETIP  = 0 

If  FLGWRD10  bit  13  (APSFLAG)  = 1,  SENSETYP  = 2 
Proceed  to  3rd  step  of  "TSNEXTS" 

ROTINDEX  = TS 

SENSETYP  = ROTINDEX  - 3 

If  DAPBOOLS  bit  11  (ACC40R2X)  = 1; 

TS1  = 4 and  skip  next  3 steps 
If  DAPBOOLS  bit  10  (AORBTRAN)  = 1: 

TS1  = 3 and  skip  next  step 
TS1  = 2 


(limited) 

(limited) 
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NUMBER!  = TS1 


TSNEXTS 


Perform  "SELCTSUB" 

If  POLYTEMP  > 0,  proceed  to  "TSNEXTS” 

Perform  "ALARM"  with  TS  - 02002g 
NEXTU  = bits  8,7,  4 and  3 of  POLYTEMP 
NEXTV  = bits  6,5,2  and  1 of  POLYTEMP 

(Note  that  translation  codes  in  NEXTU  and  NEXTV  may  not  be 
iiBplemented  at  the  same  time,  but  each  cell  contains  codes  for  a 
jet  pair  on  diagonally  opposite  quads.) 

If  channel  31  bit  13  = 1,  proceed  to  "ATTSTEER" 

If  DAPBOOLS  bit  15  (PULSES)  = 0,  proceed  to  "CHEKSTIK" 

(otherwise,  minimum  iii?)ulse) 

Perform  "ZATTEROR"  with  interrupts  inhibited 

QERROR  = 0 

RERROR  = 0 

TS  = - contents  of  channel  31  (all  bits  cou^slemented) 

If  OLDQRMIN  > 0:  (not  returned  to  detent  since  Jets  fired) 

OLDQRMIN  = bits  1,2,5  and  6 of  TS  (+Q,  -Q,  +R,  -R) 
Proceed  to  "XTRANS" 

(otherwise,  OLDQRMIN  = 0,  indication  that  no  Q or  R commands 
were  present  during  the  last  DAP  cycle) 

If  bits  1,2,5  and  6 of  TS  all  = 0,  proceed  to  "XTRANS" 

If  bit  1 of  TS  = 1 ; ( +Q) 

TJ^  = K;pTJMINT6  (U) 

TJg  = - K:pTJMINT6  (V) 

Proceed  to  "MINQR" 
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If  bit  2 of  TS  = 1:  (-Q) 

TJ^  = - K:pTJMINT6  (U) 

TJ^  = K;pTJMINT6  (V) 

Proceed  to  "MINQR" 

If  bit  5 of  TS  = 1:  (+R) 

TJ^  = K:pTJMINT6  (U) 

TJ^  = K:pTJMINT6  (V) 

Proceed  to  "MINQIl” 

If  bit  6 of  TS  = 1:  (-R) 

TJ^  = - K:pTJMINT6  (U) 

TJ2  = - K:pTJMINT6  (V) 

MINQR  RETJADR  = "MIMITN 
OLDQRMIN  = 1 
AXISCTR  = 1 

MINRTN  If  DAP BOOLS  bit  13  (CSMDOCKD)  = 1; 

'^'^AXISCTR  ^ ^^^^'^AXISCTR 
NUMBER!  = 2 

If  DAPBOOLS  bit  10  (AORBTRAN)  = 1,  NUMBER!  = 3 


Proceed  to  "AFTERTJ” 

CHEKSTIK  INGTS  = 0 

COTROLER  = -1 

If  TS^^^^  bit  15  = 0,  proceed  to  "RHCACTIV" 
If  DAPBOOLS  bit  12  (OURRCBIT)  = 0; 

Proceed  to  "ATTSTEER" 

Switch  RCSFLAGS  bit  9 (JUSTIN)  to  0 
SAVEHANDq  = 0 
SAVEHAND^  = 0 


(TS  , was  loaded 
ch31 

in  "DETENTCK") 
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RHCACTIV  TSq  = QLAST 


ENTERUV 


QLAST  = STIKSENS  SAVEHAND^  ( ( | SAVEHANDqI  - 1 ) + 
TS3  = QLAST  - TSq 
TSr  = BLAST 

BLAST  = STIKSENS  SAVEHAND^  ( (|SAVEHAND^|  - 1 ) 
TS4  = RLAST  - TSr 
QBATEDIF  = OMEGAQ  - QLAST 
BRATEDIF  = OMEGAB  - BLAST 

UBATEDIF  = - COEFFQ  QBATEDIF  + COEFFR  BHATEDIF 

VRATEDIF  = COEFFQ  QBATEDIF  + COEFFB  BBATEDIF 

If  |TS3|  > BATEDB,  proceed  to  "ENTEBUV" 

If  |TS4l  > BATEDB,  proceed  to  "ENTEBUV" 

If  BCSFUGS  bit  11  (QBBIT)  = 1; 

Proceed  to  2nd  step  of  "ENTEBUV" 

Proceed  to  "ATTSTEEB" 

TCQB  = K;40oyo 

Inhibit  interriqjts 

Perform  "ZATTEBOB" 

Belease  interrupt  inhibit 

DYEBBOB , = 0 

dp 

DZEBBOB,  = 0 
dp 

If  |URATEDIF|  < BATEDB: 

If  |VRATEDIF|  < BATEDB: 

Proceed  to  "TOPSEUDO" 

UBATEDIF  = 0 
Proceed  to  "QBTIME" 


K: LINBAT) 

+ K: LINBAT) 


( limited ) 
( limited ) 
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QRTIME 


TOPSEUDO 


BACKHAND 


ATTSTEER 


If  jVRATEDlFl  < RATEDB; 

VRATEDIF  = 0 
If  TCQR  > 0; 

Switch  RCSFLAGS  bit  11  (QRBIT)  to  1 
Skip  next  step 

Switch  RCSFLAGS  bit  11  (QRBIT)  to  0 
RETJADR  = "BAX:KHAND" 

AXISCTR  = 1 
NUMBER!  = 4 


If  SKIPUV^^^3,^  = 0: 

SKIPDVaxisctR  ^ ^ 

If  AXISCTR  = 0,  proceed  to  "CLOSEOUT" 
AXISCTR  = AXISCTR  - 1 


Proceed  to  location  stored  in  RETJADR 


TS  = URATEDIF 

If  AXISCTR  = 1 , TS  = VRATEDIF 
i = 16  AXISCTR  + 2 
If  TS  < 0,  i = i + 1 

TSt  = - K:bkscl  TS  IdANET. 


(2  or  18) 

(index  the  proper  2-Jet  acceler- 
ation in  the  direction  of  desired 
acceleration) 


If  |TSt|  > K-.bklim,  TSt  = TSt  / 3 (still  > K:150msQR) 
i = AXISCTR  + 1 
TJ^  = TSt 

Proceed  to  " AFTER! J" 


UERROR  = - COEFFQ  QERROR  + GOEFFR  RERROR  (limited) 

TERROR  = COEFFQ  QERROR  + GOEFFR  RERROR  (limited) 
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TJLAW  RETJADR  = "TJLAW4" 
AXISCTR  = 1 


If  SKIPUV^j3^^  = 0: 

SKIPUVajisctr  = ^ 


If  AXISCTR  = 0,  proceed  to  "CLOSEOUT" 
AXISCTR  = AXISCTR  - 1 


Prooeed  to  location  stored  in  RETJADR 
If  AXISCTR  = 1 : 

E = VERROR 
EDOT  = OMEGAV 
If  AXISCTR  = 0; 

E = DERROR 
EDOT  = OMEQAU 

If  DAPBOOLS  bit  13  (CSMDOCKD)  = 1: 

If  DAPBOOLS  bit  U (USEQRJTS)  = 0,  COTROLER  =8191 
Perform  "SPSRCS"  with  interrupts  Inhibited 
NDMBERT  = 4 
Proceed  to  "AFTERTJ" 

Perform  ".TJETLAW" 

AFTERTJ  If  FLAGWRD5  bit  13  (SNUFFER)  = 0,  proceed  to  "DOROTAT" 

If  FLGWRD10  bit  13  (APSFUC)  = 1,  proceed  to  "DOROTAT" 

If  DAPBOOLS  bit  8 (DRIFTBIT)  = 0,  proceed  to  "XTRANS" 

DOROTAT  ■ i = AXISCTR  + 1 

If  TJ^  = 0;  (no  rotation  command;  execute  trans  command) 

If  AXISCTR  = 1 : 


Perform  "WRITEV"  with  TS  = NEXTV 
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(If  AXISCTR  =1:) 

AXISCTR  = 0 

Proceed  to  address  speolfied  by  RETJADR 
Perform  "WRITEU"  with  TS  = NEXTU 
Proceed  to  "CLOSEOUT" 

TS  = 2 

If  TJ^  < 0,  TS  = 0 
ABSTJ  = [TJ^I 

ROTINDEX  = AXISCTR  + TS  (0,1, 2, 3) 

If  ABSTJ  > K:150msQR 
Perform  "SELCTSUB" 

If  AXISCTR  = 1 , perform  "WRITEV"  with  TS  = POLYTEMP 
If  AXISCTR  = 0,  perform  "WRITEU"  with  TS  = POLYTEMP 
Proceed  to  "FEEDBACK" 

If  ABSTJ  < K:pTJMINT6: 

ABSTJ  = K:pTJMINT6 

i = AXISCTR  + 1 

TJ^  = K;pTJMINT6  signTJ^ 

NUMBERT  = 0 

If  bit  1 of  channel  4=1,  NUMBERT  = 1 

(Bit  1 of  channel  4 is  used  here  as  sort  of  a 
random  number  generator;  it  is  part  of  the  conputer 
clock  and  oscillates  at  a frequency  of  3200  pps.) 

If  SENSETYP  > 0,  NUMBERT  = SENSETYP  - 1 

Perform  "SELCTSUB" 

If  AXISCTR  =1,  TS  = 13 

If  AXISCTR  = 0,  TS  ='4 
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Inhibit  lnterri;5)t8 
TbNEXTAX^  = TS 

If  T6NEXTAX^  =13,  perform  "WRITEV"  with  TS  = POLYTEMP 
If  T6NEXTAX^  = 4,  perform  "WRITEU"  with  TS  = POLYTEMP 
T6NEXTTM2  = ABSTJ 
Perform  "JTLST” 

Release  interrupt  Inhibit 

SKIPUV^yjq^^  = 0 (cause  this  axis  to  be  skipped  next  cycle) 
PEEDBACK  i = AXISCTR  + 1 

If  NUMBER!  > 3,  NUMJETS^  = 2 
If  HUMBERT  < 3,  NUMJETS^^  = 1 
If  AXISCTR  = 0,  proceed  to  "CLOSEOUT" 

AXISCTR  = AXISCTR  - 1 
Proceed  to  address  specified  in  RETJADR 
XTRANS  TJ^  = 0 
TJ2  = 0 

Inhibit  interrupts 

If  SKIPUVq  4 0,  perform  "WRITEU"  with  TS  = NEXTU 
SKIPUVq  = 4 

If  SKIPUVq  4 0,  perform  "WRITEV"  with  TS  = NEXTV 
SKIPUVq  = 4 

Release  interrupt  inhibit 
Proceed  to  " CLOSEOUT" 

WRITEU  Set  bits  3,4,7  and  8 of  channel  5 = bits  3,4,7  and  8 of  TS 
Return 

WRITEV  Set  bits  1,2,5  and  6 of  channel  5 = bits  1,2,5  and  6 of  TS 
Return 
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SEI.JTSUB 


TSa  = ItiquadsUR^gjj 
TSb  = KrtypmanQRj^Q^^jjgj 


POLYTEMP  = TSa  TSb 


(logic  "and”  function) 


If  any  of  the  binary  bits  that  are  1 In  POLYTEMP  8a*e  also 
1 In  CH5MASK  (at  least  one  of  the  required  Jets  Is  flagged 
as  failed): 


NUMBERT  = 3 
Proceed  to  "FAILOOP" 


Return 


FAILOOP  TSa  = K:quad8QRjjyj^j2^^ 

TSb  = K:typmanQRj^Q^^Qg^ 

POLYTEMP  = TSa  a TSb  (logic  "and"  function) 

If  POLYTEMP  A CH5MASK  7^  OOOOOgt 
If  NUMBERT  = 0; 


Perform  "ALARM"  with  TS  = 02004, 


8 


If  AXISCTR  = 0; 


TJ^  = 0 

Perform  "WRITEU"  with  TS  = NEXTU 
Proceed  to  "CLOSEOUT" 

TJ2  = 0 

Perform  "WRITEV"  with  TS  = NEXT7 


TRY  GTS 


AXISCTR  = 0 

Proceed  to  address  specified  by  RETJADR 
NUMBERT  = NUMBERT  - 1 
Proceed  to  "FAILOOP" 

Return  (to  routine  that  called  "SELCTSUB") 

If  DAPBOOLS  bit  14  (USEQRJTS)  = 1,  proceed  to  "RCS" 
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If  ALLOWGTS  = 0,  proceed  to  "RCS" 


If  channel  5 = OOOOOg,  proceed  to  "GTS" 

If  INGTS  = 0,  proceed  to  "RCS" 

Perforin  "TIMEGMBL"  with  interrupts  inhibited 
INGTS  = 0 
Proceed  to  "RCS" 

GTS  . COTROLER  = -1 
SKIPUVq  = 4 
SKIPUV^  = 4 
INGTS  = 2 
QGIMTIMR  = 2 
RGIMTIMR  = 2 
QRCNTR  = 2 

TSj^  = AOSR  (rescaled  to  B-3) 

WCENTRAL  = EDOTR 
ACENTRAL  = TS^ 

KCENTRAL  = RDAPK 
If  KCENTRAL  = 0: 

K2THETA  = 0 
Proceed  to  "NEGUSUM" 

TS  = RERROR 

.i^LGORTHM  K2THETA  = KCENTRAL  TS 

A2CNTRAL  = ACENTRAL^  / ( 2 KCENTRAL  ) 
K2CNTRAL  = WCENTRAL  (rescaled  to  B3) 


(limited) 


(limited) 
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FUNCTION  = K2CNTRAL  + A2CNTRAL  signACENTRAL 

DEL  = 1 signFUNCTION 

If  I FUNCTION  I < 2“^^,  DEL  = 0 

K2CNTRAL  = DEL  K2CNTRAL  + A2CNTRAL 

A2CNTRAL  = K2CNTRAL  - A2CNTRAL  / 3 

K2THETA  = K2THETA  + ACENTRAL  A2CNTRAL 

FUNCTION  = KCENTRAL  K2CNTRAL 

K2CNTRAL  = DEL  K2CNTRAL 

If  DEL  = 0,  proceed  to  "NEGUSUM" 

RSTOFGTS  Perform  "GTSQRT" 

K2CNTRAL  = TS  , K2CNTRAL 
sqrt 

SHFTFLAG  = ININDEX  / 2 + SHFTFLAG 
TS  = K2CNTRAL 

pd 

K2THETA  = K2THETA  + TS  (values  less  than  2 are  considered 

to  be  zero ) 

mwsrn  TS^  = ne^Vcntr 

NEGUj^CNTR  = ^ slgnK2THETA 
If  K2THETA  < 2"'"“,  NEGU^^^j^^j^  = 0 

TS^  = TS^  ^^^QRCNTR  (old  NEGU  value  times  new  NEGU  value) 

If  TSp  <0;  (If  a reversal  of  gimbal  drive  direction 

is  called  for) 

QACCDOT(^CntR  “ ° 

If  QRCNTR  >0: 

Set  bits  11  & 12  of  channel  12  = 0 
Skip  next  step 

Set  bits  9 & 1 0 of  channel  12  = 0 
If  TSp  < 0,  set  bit  5 (CALLGMBL)  of  RCSFLAGS  = 1 
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If  QRCNTR  = 2; 


/ 


CLOSEOUT 


QRCNTR  = 0 


WCENTRAL  = EDOTQ 

ACENTRAL  = AOSQ 

(rescaled  to  B-3) 

( limited) 

KCENTRAL  = QDAPK 

If  KCENTRAL  = 0; 

K2THETA  = 0 

Proceed  to  "NEGUSUM" 

TS  = QERROR 
Proceed  to  "ALGORTHM" 

This  routine  returns  processing  to  Task  status  via  the  EDRUPT 
instruction  and  then  uses  the  following  equations  to  resiane 
operation  at  the  job  whose  address  is  in  DAPZRUPT  ( thus 
ending  a prolonged  semi-interrupt  of  that  Job) 

ARUPT,  = DAPARUPT, 
dp  dp 

ERUPT  = DAPBQRPT 

Q = DAPBQRPT  +1 

ZRUPT,  = DAPZRUPT, 
dp  dp 

DAPZRUPT  = - K:posmaxsp 

Resume 
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ACDT4'J12  QACCDOT  = - NEGU^  ACCDOTQ 
RACCDOT  = - NEGUg  ACCDOTR 
TS  = OOOOOg 

If  NEGUq  = 1,  switch  bit  10  of  TS  to  1 

If  NEGUq  = -1 , switch  bit  9 of  TS  to  1 

If  NEGUg  = 1,  switch  bit  12  of  TS  to  1 

If  NEGU  = -1,  switch  bit  11  of  TS  to  1 

2 

Set  bits  9-12  of  channel  12  = bits  9-12  of  TS 
Switch  bit  5 of  RGSFLAGS  (CALLGMBL)  to  0 
Return 

TIMEGMBL  ALLOW  (TTS  = 1 
NEGU2  = 0 

If  ACCDOTR  < 0 or  if  AOSR  = 0,  proceed  to  "TIMQGSiBL'' 

TS  = - K;0.4gts  AOSR 

NEGUg  = -1  signTS  (if  TS  = 0,  NEGIJ  will  be  zeroed  below) 

If  ITS  I ^ 2 ACCDOTR; 

RGIMTIMR  = K:0CT31 
ALLOWGTS  = 0 
Proceed  to  "TIMQGMBL" 

TSt  = ITSI  K:0CT00240  / ACCDOTR  (units  of  100  milliseconds) 
If  TSt  < Ktgtstmin,  NEGU^  = 0 
If  TSt  > K;gt strain,  RGIMTIMR  = TSt 
TIMQCMBL  NEGUq  = 0 

If  ACCDOTQ  i 0 or  if  AOSQ  = 0,  proceed  to  "D0NEYET2” 

TS  = - K:0.4gts  AOSQ 
NEGUq  = -1  signTS 
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D0NEYET2 

ALLCOAST 


ZATTEROR 

STOFRATE 


DAPT4S 


If  |TS1  2;  2 ACCDOTQ: 

QGIMTIMR  = K;OCT31 
ALLOW GTS  = 0 
Proceed  to  "D0NEYET2" 

TSt  = |TSl  K:0CT00240  / ACCDOTQ  (units  of  100  milliseconds) 
If  TSt  < K:gtstinln,  NEGDq  = 0 
If  TSt  ^ Ktgtstmin,  QGIMTIMR  = TSt 
Perform  "ACDT+C12" 

Return 

Perform  "STOPRATE" 

AOSQ  and  AOSR  = 0 

ALPHAQ  and  ALPHAR  = 0 

AOSQTERM  and  AOSRTERM  = 0 

Switch  DAPBOOLS  bit  8 (DRIFTBIT)  to  1 

Perform  "RESTORDB" 

Return 
CDUD  = CDU 

OMEGAPD,  OMEGAQD  and  OMEGARD  = 0 
DELCDU  = 0 

DELPEROR,  DELQEROR,  and  DELREROR  = 0 
Return 

(Entered  every  240  milliseconds  from  "T4RUPT";  also  called 
GPMATRIX.  This  calculates  the  gimbal  rate  to  body  rate  matrix) 

Mil  = sin  CDU 
sp  z 

COSMG  = cos  CDU 
sp  z 
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RCSMONIT 


VOPENED 


M22  = sin  CDU 

sp  X 

M31  = - COSMG  M22 

M32  = C08  CDU 
sp  X 

M21  = COSMG  M32 


Return 

(Entered  every  480  milliseconds  from  "T4RUPT",  also  called 
RCSMON) 

TS  = - contents  of  channel  32  (all  bits  oonqjlemented ) 

TSq  = bits  1-8  of  TS  (RCS  thruster  fail  discretes) 

TS  = OOOOOg 

For  1 = 1,2, 3,4, 5, 6,  7 and  8:  If  bit  i of  TSq  4 bit  i of 
PVALVEST,  switch  bit  i of  TS  to  1 

If  TS  = OOOOOg,  return  (no  change) 

For  1=8  through  1 , in  that  order,  examine  bit  1 of  TS;  upon 
finding  the  first  bit  that  is  a "1",  continue  at  next  step 
with  1 = that  bit  number. 


If  bit  i of  PVALVEST  = 1 , proceed  to  "VOPENED" 
Switch  bit  of  CH5MASK  indicated  by  K:  5FAILTABj^  to  1 
Switch  bit  of  CH6MASK  indicated  by  K:6FAILTAB^  to  1 
Switch  bit  i of  PVALVEST  to  1 
Establish  "I/ACCJOB" 


Cpr27) 


Return 

Switch  bit  of  CH5MASK  indicated  by  KtSFAILTAB^  to  0 
Switch  bit  of  CH6MASK  Indicated  by  K:6FAILTAB^  to  0 
Switch  bit  i of  PVALVEST  to  0 

Establish  "1/aCCJ0B"  (pr27) 

Return 
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GTSQRT 


SCALLOOP 


If  FUNCTION  ^ 0; 

SHFTFLAG  = 0 

TS  ^ = 0 
sqrt 

Return 


(bad  argument  for  square  root) 


SHFTFLAG  =0 

If  FUNCTION  < ; (most  significant  half  =0) 

SHFTFLAG  = 7 

FUNCTION  = FUNCTION  2^^  (operate  on  least  significant  half) 
ININDEX  =12 

If  ^ _ FUNCTION  £ 0: 

ININDEX  = ININDEX  - 2 
If  ININDEX  =0,  Skip  next  step 


Proceed  to  "SCALLOOP" 

TS  = FUNCTION  / 2"^  " ININDEX 

HALFARG  = TS  / 2 


(rescaled  for  square  root  accuracy) 


TS  , = K:R00THALF 
sqrt 

If  HALFARG  ^ i,  TS  ^ = 1 

sqrt 

TS  . = i TS  ^ + HALFARG  / TS  ^ 
sqrt  sqrt  sqrt 

TS  . = i TS  , + HALFARG  / TS 

sqrt  sqrt  ' sqrt 

TS  . = TS  . + HALFARG  / TS 

sqrt  sqrt  ' sqrt 


TSsqrt  =.TSsqrt  2 


-3 


(Newton  algorithm) 


Return 
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Quantities  In  Computation a 


IdAKET^  (1  = 2,3,18,19):  See  DAPB  section. 

IdANETP:  Single  precision  inverse  of  the  acceleration  expected 
from  the  simultaneous  firing  of  two  P-axis  RCS  jets  scaled 
B8  in  units  of  seconds  squared  per  revolution,  (also  called  IdANET 

-1 4 

1 JACCP , IJACCQ,  1 JACCR:  See  DAPB  section. 

2JETLIM:  Single  precision  rate  limit  used  in  "PEGI"  to  decide 
if  two  or  four  jets  should  be  used  for  a P-axis  rotation, 
scaled  B-3  in  units  of  revolutions  per  second.  Actually- 
stored  as  a negative  quantity  with  the  program  notation 
-2JETLIM,  but  interpreted  in  this  doctiment  as  positive. 

A2CNTRAL:  Double  precision  working  storage  for  trim  gimbal  control 

logic.  Using  the  notation  of  section  3 of  the  Luminary  GSOP  it 
first  contains  o<y2K  scaled  B3  with  units  rev/sec;  when  next 
used  it  contains  -aw  + <xy3K  scaled  B3  with  units  revs/sec. 

ABSEDOTP:  Temporary  single  precision  storage  for  the  magnitude  of 
EDOT  in  "PEGI"  scaled  B-3  in  units  of  revolutions  per  second. 

Actually  ABSEDOTP  = the  magnitude  of  EDOT  minus  one  least  incre- 
ment (not  compensated  for  CCS  instruction) 

ABSTJ:  Temporary  storage  for  the  magnitude  of  TJ. , scaled  B1 0 in 
units  of  centlseconds. 

ACCDOTQ,  ACCDOTR:  See  DAPB  section. 

ACENTRAL:  Single  precision  working  storage  for  trim  gimbal  control 

logic.  Using  the  notation  of  section  3 of  the  Lminary  GSOP  it 
contains  <•<',  the  dlstiarbing  acceleration  scaled  B-3  with  units  of 
revs/sec^. 

AK:  Single  precision  vector  containing  the  desired  setting  of  the 
FDAI  error  needles,  scaled  B-1  in  imits  of  revolutions  for 
attitude  errors  and  B-3  in  units  of  revs/sec  for  rate  errors. 

ALLOWGTS:  A single  precision,  binary  switch  set  to  allow  entry  into 
the  Gimbal  Trim  System  attitude  control  law  if  other  conditions 
are  satisfied,  scaled  B14  and  unitless. 

ALPHAQ,  ALPHAR:  Single  precision  storage  for  the  most  significant 
halves  of  AOSQ  and  AOSR  for  down  telemetry,  scaled  B-2  in 
units  of  revolutions  per  second  squared. 

AOSQ,  AOSR:  Double  precision  disturbing  acceleration  due  to  thrust 
vector/c.g.  offset  or  other  external  torques,  scaled  B-2  in 
units  of  revolutions  per  second  squared. 
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AOSQTERM , AOSRTERM:  Single  precision  addition  to  vehicle  rate  that 
would  be  added  during  one; TOO  millisecond  period  as  a result 
of  disturbing  accelerations,  scaled  B-3  in  units  of  revolutions 
per  second. 

ARUPT , ERUPT , ZRUPT , and  Q:  Special  cells  used  with  the  interrupt 

and  resume  instructions.  Q is  also  the  return  address  register. 

AXISCTR:  Single  precision  index  used  to  differentiate  among  the 

three  axes,  scaled  B14  and  unitless.  A value  of  1 corresponds 
to  the  V axis,  0 to  the  U axis  and  -1  to  the  P axis. 

_CDU  (CDU  , CDU  , CDU^):  Single  precision  vector  containing  the 
measured  ^alues^of  the  IMU  gimbal  angles  (outer,  inner  and 
middle  gimbal  in  X,Y  and  Z components,  respectively),  scaled 
B-1  in  units  of  revolutions  and  stored  in  two's  complement  form. 

Each  component  is  an  LGC  input  counter  incremented  directly 
from  the  Coupling  Data  Unit  in  response  to  changes  in  the 
IMU  gimbal  angles. 

CDU  CMD,  CDU  CMD,  CDU  CMD:  See  IMUC  section. 

X ^ y * z 

CDUiTMP  (l  = x,y,z):  Single  precision  storage  locations  for  values 

of  CDU  , CDU  and  CDU  respectively.  Used  to  obtain  a synchronous 
sample  of  th^  CDU  values  for  rate  estimation. 

CDUD:  Single  precision  vector  interface  with  steering  and  attitude 
maneuver  routines  containing  the  desired  values  for  the  IMU 
gimbal  angles  (outer,  inner  and  middle  gimbal  angles  in  x,y  and  z 
components,  respectively),  scaled  B-1  in  units  of  revolutions 
and  stored  in  two's  complement  form. 

CH5MASK,  CH6MASK:  Single  precision  octal  flagwords  whose  individual 
bits  (1  through  8 only)  are  set  to  indicate  jet  failures 
(in  "RCSMONIT").  See  description  of  K:5FAILTAB  and  K:6FAILTAB. 

COEFFQ:  Single  precision  negative  of  the  quantity  used  for  the  first 

column  of  the  matrix  taking  a vector  expressed  in  Q,R  coordinates  to 
one  expressed  in  the  non-orthogonal  U' , V coordinates.  Scaled  BO 
and  unitless. 

COEFFR:  Single  precision  quantity  used  for  the  second  column  of  the 

matrix  taking  a vector  expressed  in  Q,  R coordinates  to  one  expressed 
in  the  non-orthogonal  U' , V coordinates.  Scaled  BO  and  unitless. 

COSMG:  Single  precision  cosine  of  middle  gimbal  angle,  scaled  BO 
and  unitless. 

COTROLER:  Single  precision  variable  cell  scaled  BI4  and  unitless 
controlling  access  to  the  Q,  R-axis  gimbal  trim  system. 
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DAPBOOLS:  Single  precision  flagword  whose  individual  bits  have  the 


following  meanings: 

Bit 

Mnemonic 

Meaning  when  set  { 1 ) 

Meaning  when  clear  (O) 

15 

PULSES 

Minimtam  impulse 
command  mode 

Not  minimum  impulse 

14 

USEQRJTS 

GTS  not  allowed 

GTS  allowed 

CSMDOCKD 

C34  attached  to  IM 

CSM  not  attached 

Backup  SPS  DAP 

Normal  LM  DAP 

12 

OURRCBIT 

Still  in  Rate  Command 
Mode 

Not  in  Rate  Command 

11 

ACC40R2X 

4- jet  P-axis  transla- 
tion requested 

2- jet  P-axis  translation 

10 

AORBTRAN 

X-trans  B system 

X-trans  A system 

9 

XOVINHIB 

LPD  phase;  X-axis 

Not  in  Landing  Point 

overide  disabled 

Designation  Phase 

8 

DRIFTS IT 

Assume  that  offset 
acceleration  is  zero 

Offset  acceleration  likely 

7 

RHCSCALE 

Normal  RHC  scaling 

Fine  RHC  scaling 

6 

ULLAGER 

Internal  ullage 

No  program  iillage 

request 

request 

5 

4 

DBSLECT2 

DESELECT 

Bits  4 and  5 are  used  together  to  select  attitude 
deadbands.  The  meanings  are: 

bit  5 bit  4 

Deadband 

1 1 

5° 

1 0 

5° 

0 1 

1° 

0 0 

0.3° 

3 

ACCSOKAY 

Computed  accelerations  Computed  accelerations 

probably  correct 

probably  incorrect 

2 

AUTRATE2 

Used  together  to  determine  index  (RATEINDX) 

1 

AUTRATE1 

which  is  used  to  select  attitude  maneuver  rate 

DAPARUPT,  DAPBQRPT , DAPZRUPT:  Double  precision  storage  locations  for 

the  accumulator,  L register,  Q,  B,  Z and  BBANK  registers  for  the  job 
interrupted  by  "SUPERJOB". 

DEL:  Single  precision  switch  which  is  described  in  MIT ' s Luminary  GSOP, 

Section  3,  as  a capital  delta  (“^ ) ; scaled  BI4  and  unitless. 
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DELCDU:  Interface  with  steering  and  attitude  maneuver  routines, 
minus  desired  change  in  glmbal  angles  per  100  millisecond 
period,  scaled  B-1  in  units  of  revolutions,  stored  in  two's 
complement  form. 

DELPEROR,  DELQEROR,  DEIEEROR;  Single  precision  smoothing  terms  calculated 
during  attitude  maneuver  and  steering  routines,  used  un  automatic 
control  portions  of  the  DAP.  Scaled  B-1  in  units  of  revolutions. 

DKOMEGAN,  DKKADSN;  Single  precision  Kalman  filter  gains  for  the 

docked  configuration,  scaled  B14  and  unitless.  See  discussion 
of  the  "Recursive  State  Estimator"  in  Section  3 of  the  Limiinary 
GSOP.  Part  of  the  erasable  load. 

DKTRAP;  Single  precision  deadband  for  the  state  estimator  in  the 
docked  configuration,  scaled  B-3  in  units  of  revolutions  per 
second.  Part  of  the  erasable  load. 

D0WNT0RK^(l  = 0-5);  Single  precision  table  of  quantities  for 

downlink  which  give  comulatlve  jet  on  times  for  the  various 
axes;  the  correspondence  is  ( 0,+P;  1 ,-P}  2,+U5  3,-U;  4,+V;  5,-V); 
Scaled  B5  in  units  of  seconds.  Part  of  erasable  load. 

DXERROR,  DIERROR,  DZERROR;  Double  precision  cumulative  error  between 
the  actual  rate  and  the  rate  requested  through  the  hand 
controller.  Scaled  B-1  with  units  of  revolutions. 

E,  EDOT:  See  DAPB  section. 

EDOTQ,  EDOTR:  Single  precision  biased  rate  estimates,  scaled 
B-3  in  units  of  revolutions  per  second. 

EDRIVE;  Single  precision  vector  containing  the  present  settings 
of  the  FDAI  error  needles,  scaled  B-1  in  units  of  ten  revo- 
lutions for  attitude  errors  or  B-3  in  units  of  10  revs/sec 
for  rate  errors. 

FIREFCT;  See  DAPB  section. 

FUNCTION;  Double  precision  working  storage  for  trim  gimbal  control 
logic.  Using  the  notation  of  section  3 of  the  Luminary  GSOP  it 
contains  first  cj  +o<|o<|/2K  scaled  B3  with  units  of  revs/sec; 
second  it  contains  K(-acj  o<-*/2K)  scaled  B-6  with  units  of 
revsvsec^. 

HALFARG;  One  half  of  the  argument  ^ in  single  precision,  for  the 

square  root  Iteration  In  "SCALLOOP",  scaling  variable  and  units 
"revolutions  per  second  squared"  squared. 

IM0DES33;  See  INTR  section. 
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Iw INDEX:  Single  precision  variable  used  in  the  same  way  as 

SHFTFLAG  to  count  multiplications  by  four  in  the  square-root 
routine.  Scaled  B14  and  unitless. 

INGTS:  Single  precision  two-valued  switch  set  to  indicate  thAt 

the  GTS  attitude  control  law  was  operating  during  the  previous 
cycle,  scaled  B14  and  unitless. 

JETRATEP,  JETRATEQ,  JETRATER;  Single  precision  addition  to  vehicle 
rate  expected  to  have  been  contributed  by  the  RCS  Jets  during 
the  last  period,  scaled  B-3  in  units  of  revolutions  per  second. 
Alternate  program  notations,  JETRATE+0,  JETRATE+1,  JETRATE+2, 

KtO.lsecBO;  Single  precision  constant,  program  notation  -100MS, 

stored  as  -0.1,  scaled  BO  in  units  of  seconds.  Equation  values 
0.1.  (Equivalent  to  +100  milliseconds). 

K:0.4gts:  Single  precision  constant  actually  equal  to  1 + 0.6 
(stored  value  0.6,  program  notation  0C'I23146,  added  to  1) 
but  scaled  B-2  and  unitless.  Equation  value:  0.4 

K:100msT6:  Single  precision  constant,  program  notation  -100MST6, 
stored  as  -160  x 2“'^,  scaled  BIO  in  units  of  centiseconds. 
Equation  value:  +10.  (Equivalent  to  +100  milliseconds) 

K;136msT6:  Single  precision  constant,  program  notation  -136^CT6, 
stored  as  774458»  scaled  BIO  in  units  of  centiseconds. 
Equation  valuei  +13.625  (Equivalent  to  +136.25  milliseconds) 

K:150msQR:  Single  precision  constatt,  program  notation  -150MS, 
stored  as  7741 7g,  scaled  BIO  in  units  of  centiseconds. 

Equation  value:  +15  (Equivalent  to  +150  milliseconds) 

K:150msT6;  Single  precision  constant,  program  notation  +150I6T6, 
stored  as  00360g,  scaled  BIO  in  units  of  centiseconds. 

Equation  value:  +I5  (Equivalent  to -t- 15O' milliseconds) 

K:l60msT6:  Single  precision  constant,  program  notation  -160MST6, 
stored  as  773778,  scaled  BIO  in  units  of  centiseconds. 

Equation  value:  +16.  (Equivalent  to  +I60  milliseconds) 

K:1d100ms:  Single  precision  constant  stored  as  00005g,  program 
notation  FIVE,  scaled  B1 5 in  units  of  seconds“\  Equation 
value:  10  (Equivalent  to  I/O.IOO) 


K:ld40;  Single  precision  constant,  program  notation  I/40,  stored  as 
006323,  scaled  B2  in  units  of  seconds.  Used  to  convert  sensed 
vehicle  attitude  change  data,  scaled  B-1  in  ’anits  of  revolutions, 
to  vehicle  rate  data,  scaled  B-3  in  units  of  revolutions  per 
second.  Equation  value:  0.10  (Equivalent  to  100  milliseconds) 

K:25B5:  Single  precision  constant,  program  notation  25/32,  stored  as 
3IOOO3,  scaled  B5  in  units  of  centiseconds  per  second.  Equation 
value : 25 • 

K:40cyc:  Single  precision  constant,  program  notation  4OCYCL  or  4OCIC, 
stored  as  OOO5O3,  scaled  BI4  with  units  of  deci-second.  Used  as 
. the  initial  setting  for  the  timing  cell  for  the  "direct"  manual 
control  mode.  Equation  value:  40 

K:5FAILTABj_:  Table  of  eight  single  precision  octal  constants  indicating 
which  bit  of  channel  5 is  to  be  disabled  by  each  one  of  bits  1-8 
of  channel  32. 


i K:  5FAILTABi-  .jet  # Channel  5 code  and  bit  # 


8 

QOO4O 

10 

2D 

6 

7 

00020 

9 

2U 

5 

6 

00100 

13 

lU 

7 

5 

00200 

14 

ID 

8 

4 

00010 

6 

3D 

4 

3 

00001 

1 

4U 

1 

2 

00004 

5 

3U 

3 

1 

00002 

2 

4D 

2 

:60msT6: 

Single  precision 

constant  stored  as 

OOI4O3, 

scaled  BIO  in 

units 

of  centiseconds. 

Equation  value  6. 

Used  as  minimum  impulse 

jet  on  time  for  the  docked  configuration 

for  the 

Q,  R axes. 

K:6FAILTABj^:  Table  of  eight  single  precision  octal  constants  indicating 
which  bit  of  channel  6 is  to  be  disabled  by  each  one  of  bits  1-8  of 
channel  32. 


i 

K:6FAILTA&i 

.let  # 

Channel  6 

code  and  bit 

8 

00010 

11 

2F 

4 

7 

00020 

12 

2S 

5 

6 

00004 

15 

IF 

3 

5 

00200 

16 

IS 

8 

4 

00001 

7 

3F 

1 

3 

00002 

3 

4F 

2 

2 

00040 

8 

3S 

6 

1 

00100 

4 

43 

7 

K:aosint:  Sinble  precision  constant,  program  notation  200MS,  stored  as 
063158 > scaled  B-1  in  units  of  seconds.  Equation  value:  0.1 
(Equivalent  to  100  milliseconds.) 
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K:BIT10:  Single  precision  constant,  stored  as  01000  , scaled 

B5  and  \initless.  Used  to  rescale  the  jet  on  tiiiles  for  the  dovmlink. 
Equation  value  1.0. 

Krbkllm:  Value  cf  overflow  in  a quantity  scaled  BIO  in  units  of 
centiseconds.  Equation  value;  1024 

Kibkscl:  Actually  not  a constant  as  such,  rather  a multiplication  by 
three  Implemented  as  a double  and  an  add;  effective  units, 
centiseconds  per  second;  effective  scale  factor,  B5.  Equation 
value:  100  x 0.96  (0.96  is  the  error  Introduced  because  the 

method  is  approximate). 

KtCALLCODE;  Single  precision  constant,  stored  as  00032g,  scaled  B6 
in  units  of  seconds.  Equation  value:  0.1016  (Equivalent  to 
102  milliseconds). 

K:eclim:  Single  precision  constant  stored  as  00600g,  program  notation 

DACLIMIT  +1 , scaled  B-1  for  attitude  errors  in  units  of  ten  revolutions 
or  B-3  for  rate  errors  in  units  of  ten  revolutions  / second. 

Equation  values  are:  attitude  errors,  0.01171875  (equivalent  to 
42.1875  degrees);  rate  errors,  0.00292968,  (equivalent  to  10.5469 
deg/sec).  Note  however  that  the  FDAI  error  needles  are  pinned  by 
attitude  commands  of  5-06250  deg.  and  rate  commands  of  1.265625 
deg/ sec. 


K:gtstmin:  Value  of  least  significant  bit  in  a single  precision  quantity 
scaled  B14  and  unitless.  Equation  value:  1 


K:INDXYZ^:  Table  of  eight  single  precision  constants  to  translate  any  of 
the  eight  possible  combinations  of  inputs  from  the  Q and  R axes  of 
the  translational  hand  controller  (bits  9-12  of  channel  31 ) into 
an  index  to  select  the  proper  jets  from  the  table  of  K:typmanP; 
scaled  B14,  unitless  and  stored  as  follows: 


i  function 

1 +Q 

2 -Q 

3 error 

4 +R 

5 +U 

6 +V 

7 error 

8 -R 

9 -V 

10  -U 


K:INDXYZ. 
1 

4 
2 

5 
9 

10 

3 

8 

7 


K:LINRAT:  Single  precision  constant  stored  as  00056^,  scaled  B12  in 

units  of  RHC  counts.  Used  as  the  coefficient  of  the  linear  term  in 
the  quadratic  expression  for  hand  controller  response.  Equation 
value : 11-5 
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KtmFOURDEG;  Single  precision  constant,  program  notation  -FOURDEG, 
stored  as  751172,  scaled  B-3  in  units  of  revolutions. 

Equation  value:  -0.01111  (Equivalent  to  -3.9996  deg) 

K:minimptj:  Single  precision  constant  stored  as  00012g,  program 

notation  TEN,  scaled  BIO  in  units  of  centiseconds.  Equation 
value:  0.625  (corrected  to  true  minimum  impulse  time  in  jet 
selection  routine) 

K:MINTIMES:  Single  precision  constant  stored  as  77751g,  scaled  BIO 
in  units  of  centiseconds.  Equation  value:  1.375. 

K:0C.T00240:  Single  precision  constant  stored  as  00240g,  scaled 
B1 0 in  units  of  i/seconds  (actually  computation  cycles  per 
second).  Equation  value:  10. 

K:0CT31:  Single  precision  constant  stored  as  00031g,  scaled  BI4 

and  unitless.  Equation  value:  25.  (Corresponds  to  an  inter- 
val of  2.5  seconds,  25  cycles  at  100  ms  per  cycle.) 

K:0NETENTH:  Single  precision  constant  stored  as  031 46g,  scaled  BO 
and  unitless.  Equation  value:  0.10. 

K:pTJMINT6:  Single  precision  constant,  program  notation  +TJMINT6, 

stored  as  00026g,  scaled  BIO  in  units  of  centiseconds.  Equation 
value:  1.375  (Equivalent  to  13.75  milliseconds). 

K:quadsP.:  Table  of  seven  single  precision  octal  constants,  program 
notation  TYPEP , containing  the  binary  codes  for  various  jet 
pairs  that  can  be  used  to  accoijiplish  a given  maneuver,  stored 
in  order  of  their  desirability  (i>4,  more  desirable;  i S 3, 
less  desirable).  The  constants  and  their  significance  is  ind- 


icated 

i 

below. 

K: quadsP . 

Bits  8-1 

Use 

6 

00377 

1111  1111 

All  quads;  translation  or  rotation 

5 

00245 

1010  0101 

Quads  1 and  3;  jets  7,8,15,16 

4 

001 32 

0101  1010 

Quads  2 and  4;  jets  3,4,11  ,12 

3 

00151 

0110  1001 

2-jet  rotations  above  use  diagonal 
quads 

2-jet  rotations  below  use  adjacent 
quads 

Rotation  using  jets  4,7  or  8,11 

2 

00231 

1001  1001 

Rotation  using  jets  7,12  or  11,16 

1 

00226 

1001  0110 

Rotation  using  jets  12,15  or  3,16 

0 

00146 

0110  0110 

Rotation  using  jets  4,15  or  3,8 
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K:quadsQR.;  Table  of  five  single  precision  octal  constants,  program 
notation  TYPEPOLY,  containing  the  binary  codes  for  primary  and 
secondary  jet  combinations  that  can  be  used  to  accomplish 
rotations  around  an  axis  in  the  Q-R  plane  and  translations 
perpendicular  to  the  Q-R  plane. 


i 

K: quads QR. 

Bits  8-1 

Use 

4 

00377 

1111  1111 

All  quads;  2- jet  rotation,  4- jet  • 

3 

00231 

1001  1001 

1-jet  rotation,  B-systcan  (1  ,6,9,1- 
+X  jets  6,14  (quads  1 ,3);  -X  jets 
(quads  2,4) 

2 

00146 

olio  0110 

1-jet  rotation,  A-system  (2,5,10,' 
+X  jets  2,10  (quads  2,4);  -X  jets 
5,13  (quads  1 ,3) 

1 

00252 

1010  1010 

1-jet  rotation  using  only  +X  jets 

0 

00125 

0101  0101 

1-jet  rotation  using  only  -X  jets 

K:ROOTHALF;  Single  precision  constant,  stored  as  26501-,  scaled 
BO  and  unitless.  Used  as  a starting  value  of  the  Newton  al- 
gorithm in  the  GTS  law  square  root  routine.  Equation  value 
0.70710. 


K:T6lim:  Single  precision  constant,  program  notation  1 - PRI037, 
stored  as  (40000g  - 37000g),  scaled  B1 0 in  units  of  centi- 
seconds.  Equation  value:  32.  (equivalent  to  320  milliseconds) 

K:T6tosec:  Single  precision  constant,  program  notation  ELEVEN, 
stored  as  0001 3g,  used  in  such  a way  (L  register  retained 
after  multiplication)  that  effective  scaling  is  B-10  in 
units  of  seconds  per  centlsecond.  Equation  value  11/1024 
or  0.010742. 


Krtrvtoc:  Constant  implicit  in  the  FDAI  error  counter,  equation 

interface,  scaled  Bl5or  B17  in  units  of  ICDU  error  counter  incre- 
ments per  ten  revolutions  for  attitude  errors  or  ten  revs 
per  second  for  rate  errors.  Equation  value  32768  or  131072. 

(one  least  increment  to  the  error  counter  represents  about  0.11 
degrees  on  the  FDAI  error  needles) 


K:typmanP.:  Table  of  eleven  single  precision  octal  constants, 

program  notation  JETSALL,  each  containing  the  binary  codes  for 
all  the  jet  pairs  that  can  be  used  to  accomplish  a particular 
maneuver.  The  constants  and  their  significance  is  indicated 
below. 


± 

K: tyomanP. 

Bits  8-1 

Maneuver  (let  numbers] 

0 

00252 

1010  1010 

-P 

rotation  (3,8,11,16) 

1 

00125 

0101  0101 

+P 

rotation  (4,7,12,15) 

2 

001 40 

0110  0000 

-Y 

translation 

(4,8) 

3 

00006 

0000  0110 

-Z 

translation 

(3,15) 

4 

00220 

1001  0000 

+Y 

translation 

(12,16) 

5 

00011 

0000  1001 

+Z 

translation 

(7,11) 

6 

001 51 

0110  1001 

+V 

translation 

(4,11  and 

7,8) 

7 

00146 

olio  0110 

-U 

translation 

(8,15  and 

3,4) 

8 

00226 

1 001  01 1 0 

-V 

translation 

(3,12  and 

15, 

9 

00231 

1001  1001 

+U 

translation 

(7,16  and 

11, 

10 

001  51 

0110  1001 

+V 

translation 

(4,11  and 

7,8) 
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KttypmanQR^:  Table  of  six  single  precision  octal  constants, 

program  notation  ALLJETS,  each  containing  the  binary  codes  for 
all  the  jets  that  can  be  used  to  aoconqplish  rotations  around 
an  axis  in  the  Q-R  plane  and  translations  perpendicular  to  the 
Q-R  plane. 


1 

0 

1 

2 

3 

4 

5 


K;typmanQR^ 

00110 

00022 

00204 

00041 

00125 

00252 


Bits  8-1  Maneuver  (let  numbers) 


0100  1000  -U  rotation  (6,13) 

0001  0010  -V  rotation  (2,9) 

1000  0100  +U  rotation  (5,14) 

0010  0001  +V  rotation  (1,10) 

0101  0101  -X  translation  (1,5,9,13) 

1010  1010  +X  translation  (2,6,10,14) 


K2CNTRAL:  Double  precision  working  storage  for  trim  gimbal  control 
logic.  Using  the  notation  of  section  3 of  the  Luminary  GSOP  it 
first  contains  co  scaled  B3  with  units  of  revs  / sec;  second  it 
contains  -Acj  + «*/  2K  scaled  B3  with  units  of  revs  / sec  ; 
third  it  contains  -a  (-aw  + ^^/2K)  scaled  B3  with  units  of  ^ 
revs  / sec;  fourth  it  contains  (K  (-Aco  + «*y2K) )*  (-A  (-a<»+ *''/2K) ) 
with  scaling  undetermined  at  this  point  because  of  variable 
scale  return  from  square  root  routine  and  with  units  of  rev^/  sec^. 


K2THETA;  Double  precision  working  storage  for  trim  gimbal  control 
logic.  Using  the  notation  of  section  3 of  the  Liaminary  GSOP  it 
first  contains  K6  scaled  BO  in  units  of  revs^/  sec^  ; second  it 
contains  K6  + «<  (-Aeu  + •<^/3K)  scaled  BO  with  units  of  revs2/  sec^  ; 
third  it  contains  KB  + «(  + + (K  (-ao)  + »* /2K)  )i  (-a(-aw  + "‘^2K) ) , 

or  U' , scaled  BO  with  units  of  revs^/  sec^. 

KCENTRAL:  Single  precision  working  storage  for  trim  gimbal  control 
logic.  Using  the  notation  of  section  3 of  the  Luminary  GSOP 
it  contains  K,  three  tenths  of  the  "jerk"  or  time  derivative  of 
angular  acceleration,  scaled  B-9  with  units  of  rev  / sec^. 

LMDMEGAN,  LMKAOSN:  Single  precision  Kalman  filter  gains  for  the 

LM  alone  configuration,  scaled  B14  and  unitless.  See  discussion 
of  the  "Recursive  State  Estimator"  in  section  3 of  the  Luminary 
GSOP.  Part  of  the  erasable  load. 


LMTRAP;  Single  precision  deadband  for  the  state  estimator  in  the 
LM  alone  configuration,  scaled  B-3  in  units  of  revolutions 
per  second.  Part  of  the  erasable  load. 

Mil,  M21 , ^E2,  M31 , M32:  Single  precision  factors  used  in  trans- 
forming from  gimbal  angle  differences  into  body  axis  rotations, 
scaled  BO  and  unitless. 

MEASRATE:  Single  precision  tenporary  storage  for  measured  rate, 
program  notation  OMEGAU,  scaled  B-3  in  units  of  revolutions 
per  second.  Carefully  limited  in  case  of  overflow  to 
t 0.12499  (i  44.997  degrees/ sec) 
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NEGUq,  NEGUpt  Single  precision  switches,  program  notations  NEGTJQ 
and  NEgUR,  indicating  whether  the  DPS  gimbal  drives  should 
be  driven  and  whose  signs  indicate  the  complement  of  the 
direction  in  which  each  gimbal  is  to  be  driven;  scaled  B14 
and  unitless.  See  the  discussion  of  the  GTS  control  law  in 
MIT*  s'‘ Luminary  GSOP,  Chp  3. 

NEXTP,  NEXTU,  NEXTV:  Single  precision  storage  for  the  P,U  and 
V-axis  translation  Jet  codes  to  be  inplemented  as  soon  ae 
rotation  commands  are  con5)leted.  Stored  as  octal  quantities  and 
set  to  OOOOOg  to  indicate  that  all  Jets  are  to  be  turned  off. 

NPTRAPS,  NQTRAPS,  NRTRAPS:  Single  precision  time  varying  portion 
of  the  Kalman  filter  gain,  scaled  B14  and  unitless. 

HUMBERT:  Single  precision  index  used  to  select  the  number  of 
Jets  to  be  used  for  a particular  maneuver  and  to  specify 
which  Jet  quads  will  be  used,  scaled  B14  and  unitless. 

NUMJETS„,  NUMJETS.,  NUMJETS2:  Single  precision  number  of  Jets  Used 
for  P,U  and  v-axis  rotation,  respectively,  scaled  B14  and  unit- 
less. Program  notations  NO.PJETS,  NO.UJETS,  and  NO.VJETS. 

NXT6AXIS:  Single  precision  quantity  used  to  Indicate  which  set  of 
Jets  is  to  be  turned  off  at  the  next  TIME6  interrupt  (0  for  P, 

4 for  U,  and  13  for  V),  program  notation  NXT6ADR,  scaled  B14 
and  unitless. 

OLDPMIN,  OLDQRMIN:  Single  precision  flagwords  set  greater  than 
zero  when  a minimum  ifl^julse  command  is  sensed  and  reset  to 
zero  when  no  commands  are  present. 


OLDXFORP,  OLDYFORP,  OLDZFORQ:  Single  precision  storage  for  the 
value  of  the  gimbal  angles  at  the  previous  sanqjle,  used  to 
calculate  rate  of  change  of  gimbal  angles,  scaled  B-1  in 
units  of  revolutions  and  stored  in  two's  conq^lement  form. 

OMEGAP,  0MEGA.Q,  0MEGA.R,  0MEGA.U,  OMEGAV:  Single  precision  estimated 

vehicle  rate,  calculated  using  commanded  accelerations  and  times, 
scaled  B-3  in  units  of  revolutions  per  second.  Limited  to 
+0.12499  (+  44.997  degree s/sqc)  ^ overflow  ^ecks 

OMEGAPD,  OMEGAQD,  OMEGARD:  Single  precision  rate  biases  generated  in  the 
attitude  maneuver  and  steering  routines,  scaled  B-3  in  units  of 
revs  / sec. 
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PERROR;  Single  precision  P-axis  error,  scaled  B-1  in  units  of  rev- 
olutions . 


PJETCTR.  (i  = 1,2,3):  Single  precision  timing  counters  used  to  separate 
RCS  jet  firings  for  the  docked  configuration.  The  index  corres- 
pondence is  1 - P axisj  2 - U axis;  3 - V axis.  Scaled  B14 
with  units  of  decl-seconds.  For  i = 2 cr  3 alternate  program 
notation  is  UJETCTR  or  VJETCTR. 


BLAST,  QLAST,  RLAST:  Single  precision  quantities,  giving  the  rate 
requested  by  the  astronaut  via  the  hand  controller.  Scaled 
B-3  with  units  of  revolutions  per  second. 

POLYTEMP:  Single  precision  logical  intersection  of  octal  constants 
from  the  tables  K:typman  and  K: quads.  Bits  9 through  15  will 
be  zero  and  bits  1 through  8 will  contain,  at  most,  four  binary 
ones  indicating  four  Jets  to  be  actuated  to  perform  a maneuver. 
See  tables  below  showing  codes  for  various  types  of  maneuvers. 

PVALVEST:  Single  precision  octal  quantity  reflecting  the  latest 
estimation  of  the  state  of  the  jet  failure  bits  in  CH5MASK 
and  CH6MASK. 

QACCDOT,  RAGCDOT:  Actual  rate  of  change  of  the  rotational  rates 
induced  by  the  thrust  vector/c.g.  offset,  single  precision, 
scaled  B-8  in  units  of  revolutions  per  second  cubed;  equal 
to  zero  or  plus  or  minus  ACCDOTQ  and  ACCDOTR,  respectively; 
These  can  be  loaded  by  indexing  as  in  the  routine  "NEGUSUM" . 

QDAPK,  RDAPK:  Single  precision  derivatives  of  angular  acceleration 
about  the  positive  Q and  R axes,  respectively,  multiplied  by 
a fractional  gain  (in  "SPSCONT")  and  scaled  B-9  in  units  of  revs 
per  second  cubed.  Program  notations  KQ  and  KRDAP. 


QERROR,  RERROR;  Single  precision  Q and  R-axis  error,  scaled  B-1 
in  units  of  revolutions. 


QGIMTIMR,  RGIMTIMR:  Single  precision  counters  scaled  B14  in 
units  of  100  millisecond  intervals. 
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QKALERR,  RKALERR;  Single  precision  filtered  difference  between 
calculated  rate  and  measured  rate,  scaled  B-3  in  units-  of 
revolutions  per  second.  Program  notations  DAPT1MP1  and 
DAPTEMP2 . 

QRATEDIF,  RRATEDIF;  Single  precision  storage  for  difference  between 
desired  rate  and  actual  rate  for  the  Q and  R axes,  respectively, 
used  only  in  non-automatic  modes,  scaled  B-3  in  units  of  revolu- 
tions per  second. 

QRCNTR:  Single  precision  index  scaled  B14  and  unitless. 

RATEDB:  Single  precision  rate  deadband,  scaled  B-3  in  units  of 
revolutions  per  second.  RATEDB  is  called  -RATEDB  in  the 
program  and  is  stored  as  a negative  quantity  for  convenience. 

In  this  document  however,  for  convenience v in  interpretation, 
the  sign  has  been  changed  and  RATEDB  is  a positive  quantity. 

RCSFLAGS:  Listed  separately  on  next  page. 

RETJADR;  Return  address  used  to  distinguish  between  manual  and 

automatic  modes  during  the  Q,R-axls  computations  when  the  s&me 
routine  must  be  performed  twice.  Equals  "BACKHAND",  "TJLAW4", 
or  "MINRTN". 

RHCP,  RHCQ,  RHCR:  Three  single  precision  counters,  program  nota- 
tions P-RHCCTR,  Q-RHCCTR  and  R-RHCCTR,  scaled  B14  in  units  of  ' 
counts  from  the  Rotational  Hand  Controller.  The  value  of  these 
counts  in  terms  of  commanded  rate  is  variable  and  determined 
by  the  astronaut  through  the  DAP  Data  Load  Routine  (03). 


ROTINDEX;  Single  precision  index  indicating  the  type  of  maneuver 
for  which  jets  are  to  be  selected,  scaled  B14  and  unitless. 
See  detailed  descriptions  of  KiINDXYZ. 


SAVEHAND_,SAVEHAND. : Temporary  storage  for  the  Rotational  Hand 

Controller  inputs  from  the  Q and  R axes,  necessary  because  all 
the  RHC  counters  are  reset  at  once  during  the  P-eixls  routines. 


SENSETYP:  Single  precision  quantity  scaled  B14  and  unitless.  Used 
to  indicate  X-axis  translational  sense  desired  during  U and  V 
rotations.  A value  of  0 implies  balanced  couples,  1 in^jlles 
-X,  and  2 implies  +X. 
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RCSFLAGS;  Single  precision  flagword  whose  individual  bits  have  the 
following  meanings  (note  that  not  all  bits  are  used  at  present): 

Bit  Mnemonic  Meaning  when  set  (l)  Meaning  when  reset  (O) 

15  

14  

13  


12 


11 


10 


QRBIT 


PBIT 


Job  to  calculate  DAP 
parameters  not  needed 
at  present 

Perform  P-axis  calcu- 
lations 

In  "direct"  rate 
command  for  Q, R 
axes 

In  "direct"  rate 
command  for  P-axis 


Set  up  job  to  calculate 
DAP  parameters 

Skip  P-axls  calculations 


Not  in  "direct"  rate 
command 


Not  in  "direct"  rate 
command 


JUSTIN 


Hand-controller  just 
sensed  as  out  of  detent 


Hand-controller  just 
sensed  as  in  detent 


8 

7 

6 

5 

4 


CALLGMBL 


DSPLYALT 


DSTEPONE 


DSTEPTWO 


Perform  "ACDT+C12" 
routine  to  set  engine 
glmbal  drive  bits 

Output  errors  to 
FDAI 


Initialize  FDAI  error 
drive 

Initialize  the  dlsplay- 
calculate  cycle  for  the 
FDAI  errors 

Used  to  alternate  in 
"tacking"  translation 
policies 


"ACDT+C12"  not  being 
called 


Calculate  the  errors 
(this  bit  controls  the 
dlsplay-calculate  cycle) 

Drive  already  initialized 
Cycle  already  initialized 


Used  to  alternate  in 
"tacking"  translation 
policies 
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SHFTFLAG;  Single  precision  variable  scaled  Bl4  and  unitless,  used 
to  count  multiplications  by  four;  used  in  the  square-root 
routine  to  maintain  accuracy. 

SKIPUVq  , SKIPUV^ : Single  precision  flags  set  equal  to  zero  when  either 
IT  or  V-axis  computations  are  to  be  skipped  because  a shostoj^t jet 
firing  vras  calculated  on  the  last  DAP  pass.  Scaled  B14  and 
unitless.  Program  notation  SKIPU  and  SKIPV. 

STIKSENS;  A single  precision  conversion  factor  which  converts  a 
quadratic  expression  in  hand-controller  counts  to  a rate 
desired  in  revolutions  per  second.  Scaled  B-1 5 in  units  of 
revolutions  per  second  per  RHC  - count  squared. 

T5ADR;  Double  precision  variable  starting  address  for  the  TIME5 
Interrupt.  Set  equal  to  "PAXIS"  or  "DAPIDLER". 

T6NEXTAX. , T6NEXTAX„:  Single  precision  quantities,  program  nota- 
tions T6NEXT  +1  and  T6FURTHA  +1 , respectively,  used  to  form 
a list  of  jets  to  be  cut  off  at  various  intervals  after  the 
next  TIME6  interrupt,  scaled  B14  and  unitless.  See  description 
of  NXT6AXIS. 

T6NEXTT^^,  TbNEXTTMp;  Single  precision  quantities,  program  notations 
T6NEXT  and  T6FTOTHA,  respectively,  used  to  store  the  time  inter- 
val after  the  next  TIME6  interrupt  when  the  jets  indicated  in 
T6NEXTAX^  and  T6NEXTAX  are  to  be  cut  off , scaled  B1 0 in  units 
of  centiseconds. 

TCP,  TCQR:  A single  precision  timer  used  in  the  "direct"  manual 
rate  control.  Scaled  B14  with  units  of  declseconds. 

THETAD:  See  list  of  major  variables. 

TIME5!  Single  precision  counter  incremented  every  10  milliseconds 
(every  centlsecond)  which  causes  the  "T5RUPT"  routine  to  be 
entered  in  the  interrupt  mode  whenever  it  overflows. 

TIME6:  Single  precision  counter  decremented  every  0.625  milliseconds 
when  enabled  (channel  13,  bit  15);  causes  the  "D0T6RUPT"  routine 
to  be  entered  as  an  interrupt  whenever  it  is  reduced  to  zero  (-0). 

TJq,  TJ. jTJ^:  Single  precision  jet  fire  times  for  the  P ,U  .and  V 

axes,  respectively,  scaled  B1 0 in  units  of  centiseconds.  Program 
notations  T JP , TJU,  and  TJV. 

TRAPEDP , TRAPEDQ,  TRAPEDR:  Transient  rate  error  measured  as  the 

difference  between  measured  rate  and  calculated  rate  at  every 
100  millisecond  interval,  filtered  and  used  to  correct  rate 
calculation  parameters,  scaled  B-3  in  units  of  revolutions  per 
second.  Carefully  limited  in  case  of  overflow  to  ± 0.12499 
(+  44.997  degrees). 

TRAPSIZE:  Single  precision  filter  deadband,  stored  as  a negative 
quantity.  Scaled  B-3  in  units  of  revolutions  per  second. 

Program  notation,  DAPTREG6. 
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UERROR,  VERROR:  Single  precision  storage  for  the  attitude  errors 
around  the  U said  V axes,  scaled  B-1  in  units  of  revolutions. 

DRATEDIF,  VRATEDIF;  Single  precision  storage  for  attitude  rate 

error  in  non-automatic  modes  of  operation,  scaled  B-3  in  units 
of  revolutions  per  second. 

WCENTRAL:  Single  precision  working  storage  for  trim  gimbal  control 
logic.  Using  the  notation  of  section  3 of  the  Luminary  GSOP  it 
contains  u> , the  angular  velocity,  scaled  B-3  with  units  of  rev/sec. 


DAPA  - 50 


Maneuver  Codes 


Codes  for  jets  with  thrust  perpendicular  to  the  P-axis 


Bits  1-8 

of  channel  6 

(in  the  order  8765  4321) 

(Jets  16,4,8,12,  11,15 

NUMBERT 

-P  Rotation 

+P  Rotation 

-Y  Trans. 

-Z  Trans. 

ROTINDEX  = 0 

ROTINDEX  = 1 

ROTINDEX  = 2 

ROTINDEX  = 3 

6 

1010  1010 

0101  0101 

0110  0000 

0000  0110 

5 

1010  0000 

0000  0101 

0010  0000* 

0000  0100* 

4 

0000  1010 

0101  0000 

0100  0000* 

0000  0010* 

3 

0010  1000 

0100  0001 

0110  0000* 

0000  0000* 

2 

1000  1000 

0001  0001 

0000  0000* 

0000  0000* 

1 

1000  0010 

0001  0100 

0000  0000* 

0000  0110* 

0 

0010  0010 

0100  0100 

0110  0000* 

0000  0110* 

+Y  Trans. 

+Z  Trans. 

+V  Trans. 

ROTINDEX  = 4 

ROTINDEZ  = 5 

ROTINDEX  = 6 

6 

1001  0000 

0000  1001 

0110  1001 

5 

1000  OOOD^ 

0000  0001* 

0010  0001 

4 

0001  0000^^ 

0000  1000* 

0100  1000 

3210 

meaningless 

meaningless 

meaningless 

(see  above  and  below) 

-U  Trans . 

-V  Trans. 

+U  Trans. 

+V  Trans. 

ROTINDEX  = 7 

ROTINDEX  = 8 

ROTINDEX  = 9 

ROTINDEX  = 10 

6 

0110  0110 

1001  0110 

1001  1001 

0110  1001 

5 

0010  0100 

1000  0100 

1000  0001 

0010  0001 

4 

0100  0010 

0001  0010 

0001  1000 

0100  1000 

3 

0110  OOOO'^ 

0000  0000* 

0000  1001* 

0110  1001* 

2 

0000  0000^ 

1001  0000* 

1001  1001* 

0000  1001* 

1 

0000  0110* 

1001  0110* 

1001  0000* 

0000  0000* 

0 

0110  0110* 

0000  0110* 

0000  0000* 

0110  0000* 

Those  codes  immediately  followed  by  asterisks  are  meaningless 
because  1)  they  include  less  than  two  binary  one's  (less  than 
two  jets  would  be  actuated),  2)  they  are  identical  to  a code  higher 
in  the  list,  or  3)  they  contain  one  pair  of  binary  one's  but  this 
pair  does  not  accomplish  the  required  maneuver. 
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Maneuver  Codes 


Codes  for  jets  with  thrust  perpendicular  to  the  Q-R  plane 

Channel  5 bits  1-8  (in  the  order  8765,4321)  (jets  14,13,10,9,  6, 5, 2,1) 


NUMBERT 

-U  Rotation 

-V  Rotation 

+U  Rotation 

+V  Rotation 

ROT  INDEX  = 0 

ROT  INDEX  = 1 

ROTINDEX  = 2 

ROTINDEX  = 3 

4 

OIQO  1000 

0001  0010 

1000  0100 

0010 

0001 

3 

0000  1000 

0001  0000 

1000  0000 

0000 

0001 

2 

0100  0000 

0000  0010 

0000  0100 

0010 

0000 

1 . 

0000  1000^ 

0000  0010^ 

1000  0000* 

0010 

0000* 

0 

0100  0000^ 

0001  0000^ 

0000  0100* 

0000 

0001* 

-X  Trans. 

+X  Trans. 

ROT  INDEX  = 4 

ROTINDEX  = 5 

4 

0101  0101 

1010  1010 

3 

0001  0001 

1000  1000 

2 

0100  0100. 

0010  0010 

1 

0000  0000» 

1010  1010* 

0 

0101  0101^-^ 

0000  0000* 

^ Those  codes  immediately  followed  by  asterisks  are  meaningless 
because,  for  the  rotations,  they  are  identical  to  a code  higher 
in  the  list,  and  for  the  translations,  they  are  identical  to  a 
code  higher  in  the  list  or  are  zero.  It  should  be  noted  that  the 
rotation  codes  derived  with  NUMBERT  = 0 or  1 are  valid  and  are  used 
to  assure  that  1-jet  rotation  commands  will  complement 
X translation  commands  in  effect. 
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tfet  Thrust  Directions,  Numbers  and  Channel  5 or  6 codes 
(each  jet  indicated  as  belonging  to  either  system  A or  E, 

Horizontal  jets,  P-axis  rotations  and  Y,Z  translations 


Vertical  jets,  U,V  axis  rotations  and  P translations 


Digital  Autopilot  Phase  Plane  Logic 

1 /ACGSET  AOSQ  and  AOSR  = 0 (moat  algnlfloant  heJ.ves  of  d.p.  woeds) 

ALPHAQ  and  ALPHAR  = 0 
1 /ACC JOB  Perform  " 1 /ACCS" 

End  Job 

1 /ACCS  DOCKTEMP  = bit  13  of  DAPBOOLS  (CSMDOCKD) 

LEMMASS  = MASS 

If  DOCKTEMP  = 1 , LEMMASS  = MASS  - CSMMASS 
Inhibit  Interrupts 

If  FLGWRD10  bit  13  (APSFLAG)  = 1;  (ascent  or  lunar  surface) 
2JETLIM  = Ksnomaxjts 
1 = 12 

If  LEMMASS  < K:LOASCENT,  LEMMASS  = K:LOASCENT 
If  LEMMASS  ^ HIASCENT,  LEMMASS  = HIASCENT 
If  FLGWRD10  bit  13  (APSFLAG)  = 0; 

2JETLIM  = K;2jllnriwn 
1 = 6 

If  LEMMASS  < KtLODESCNT  + HIASCENT; 

LEMMASS  = K;LODESCNT  + HIASCENT 
If  LEMMASS  ^ KtHIDESCNT,  LEMMASS  = K:HIDESCNT 
MASS  = LEMMASS 

If  DOCKTEMP  = 1,  MASS  = LEMMASS  + CSMMASS 
Release  Intern^)!  Inhibit 
If  DOCKTEMP  = 1,  proceed  to  "DOCKED" 

1=1-2 

1JACCR  = K:INERCONB^  + K; INERCONA^/(LEMMASS  + KtlNERCONC^) 
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i = i - 2 


TJACCQ  = K:INERCONB^  + K:INERCONA^  / (LEMMASS  + KtlNERCOWC^) 
i = i - 2 

1JACCP  = K:INERCONB^  + K:INERCONA^  / (LEMMASS  + K:INERCONC^) 
Perform  "COMMEQS"  (see  pg.  DAPB  - 22) 

1JACCU  = - COEFFQ  1JACCQ  + COEFFR  1JACCR  (rescaled  to  B-2) 

If  i > 0:  (ascent) 

ALLOWGTS  = 0 
INGTS  = 0 

Proceed  to  "1/ACCONT" 

LPVTARM  = KtLconB  + K:LconA  / (LEMMASS  + KrLconC) 

MPACq  = (K:dvtoacc  ABDELV  MASS  / K:GFACTM)  LPVTARM  (limited) 
Inhibit  interrupts 

ACCDOTR  = MPACq  IJACCR  / K:T0RKJET1  (limited) 

ACCDOTQ  = MPACq  IJACCQ  / K:T0RKJET1  (limited) 

Proceed  to  "SPSCONT" 

DOCKED  MPACq  = KtlnrtcofC  LEMMASS  CSMMASS  + K:inrtcofF 

MPACq  = MPACq  + (KrinrtcofA  CSMMASS  + K:inrtcofD)  CSMMASS 
MPACq  = MPACq  + (KrinrtcofB  LEMMASS  + K;inrtcofE)  LEMMASS 
MPAC^  = MPACq 

MPACq  = K:cgcoefC  LEMMASS  CSMMASS  + KrcgcoefF 
MPACq  = MPACq  + (KrcgcoefA  CSMMASS  + K:cgcoefD)  CSMMASS 
MPACq  = MPACq  + (K:cgcoefB  LEMMASS  + K:cgcoefE)  LEMMASS 
1JACCP  = K;1JACCON  / MASS  (limited) 

IdANET  = Kiposmax 
1dANET_|^2  “ K:posmax 
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SPSCONT 


IdANET^^  = K;posmax 
IdANET^^g  = K-.posmax 

IdANET^^g  = K;posmax 
Inhibit  interrupts 
1JACCQ  = K:T0RQC0NS  / MPAC^ 

1JACCR  = 1JACCQ 
COEFFQ  = - 0.70711 
COEFFR  =0.70711 

ACCDOTR  = K:dvtoacc  ABDELV  MASS  MPAC^  / MPAC^ 

ACCDOTQ  = ACCDOTR 
QDAPK  = ACCDOTQ  K:DGBF 
RDAPK  = ACCDOTR  K:DGBF 
MPAC^  = channel  12 

TS  = bits  12  (-R  GTS)  and  11  (+R  GTS)  of  MPAC^ 

If  TS  = 0,  RACCDOT  = 0 
If  TS  ^ 0: 

If  bit  12  of  MPAC^  = 0,  RACCDOT  = ACCDOTR 

If  bit  12  of  MPAC^  = 1,  RACCDOT  = - ACCDOTR 

TS  = bits  10  (-Q  GTS)  and  9 (+Q  GTS)  of  MPAC^ 

If  TS  = 0,  QACCDOT  = 0 

If  TS  i-  0: 

If  bit  10  of  MPAC^  = 0,  QACCDOT  = ACCDOTQ 

If  bit  10  of  MPAC^  = 1,  QACCDOT  = - ACCDOTQ 

If  DAPBOOLS  bit  U (USEQRJTS)  = 1: 

ALLOWGTS  = 0 
INGTS  =0 

Proceed  to  "DOCKTEST" 


(limited) 


(+R  GTS) 
(-R  GTS) 

(+Q  GTS) 
(-Q  GTS) 


DAPB  - 3 


If  T5ADR  i "PAXIS": 
ALLOWGTS  = 0 
INGTS  = 0 

Proceed  to  "DOCKTEST" 


If  INGTS  = 0,  perform  "TIMEGMBL" 
DXKTEST  If  DXKTEMP  = 1,  proceed  to  "I/ACCRET" 
1/ACCONT  DBVALI  = DB 

DBVAL2  = - 3 DB  / 4 

DBVAL3  = DB  / 2 

Inhibit  interrupts 

AOSU  = -COEFFQ  AOSQ  + COEFFR  AOSR 

AOSV  = COEFFQ  AOSQ+  COEFFR  AOSR 

Release  interrupt  inhibit 

DRIFTER  = bit  8 of  DAPBOOLS  (DRIFTBIT) 

FLATEMP  = 0 

If  ALLOWGTS  = 1 or  DRIFTER  = 1 : 

FLATEMP  = KtFLATVAL 
Z3TEM  - 0 
If  DRIFTER  = 1: 

Z3TEM  = K:Z0NE3MAX 
TS  = 1 + 2 1JACCP  / K:acp 


Inhibit  interrupts 

IdANET  1^  = T / (2  UACCP) 

1dANET_^^  =1/(2  UACCP) 

ACCFCT_^^  = (-  1dANET_^^)  / TS 

ACCFCT  . = ACCFCT 

—13  “’4 

IdACOAST  = K;1dp03 
IdACOAST  = K:1dp03 


(limited) 

(limited) 
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BOTHAXES 


Release  interrupt  inhibit 
If  DRIFTER  = 1 , AOSU  and  AOSV  = 0 
UV  = 0 
i = 0 
If  UV  = 0: 

If  AOSU  < 0,  i = 1 
ABSAOS  = (AOSUj 
If  UV  = 1 : 

If  AOSV  < 0,  i = 1 
ABSAOS  = I AOSV  I 
DBB1  = DBVAL1 
DBB2  = DBVAL1 

If  ABSAOS  ^ K:niiniacc,  proceed  to  "NOTMUCH" 

If  FLATEMP  = 0 : ( powered  flight  without  fine  GTS ) 

If  i = 0; 

DBB2  = DBB2  + DBVAL1 
DBB4  = DBB2 
If  ABSAOS  ^ K:ni.1875 

DBB1  = (1  - 32  ABSAOS)  DB 
Skip  next  step 
DBB1  = - DBVAL3 
DBB3  = DBVAL2 
If  i = 1 : 

DBB1  = DBB1  + DBVAL1 
DBB3  = DBB1 
If  ABSAOS  ^ K:m.1875 

DBB2  = (1  - 32  ABSAOS)  DB 
Skip  next  step 
DBB2  = - DBVAL3 
DBB4  = DBVAL2 

j = li  - 

IdACOSTT.  = 8/9  ( l/  ABSAOS  ) 

J 

IdACOSTT^  = K:1dp03 
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TS  = 1 + (2  IJACCU  + ASSADS)  / K:acp 

If  overflow  (|TS|  ^ 2^):  (ANET  88.6  degrees/second^) 

ANET  = IJACCU  + i ABSAOS 
IdATEMP  = i / ANET 

TSf  = - i IdATEMP  / (i  + ANET  / K:acp) 

Proceed  to  "ACCTHERE" 

ANET  = 2 IJACCU  + ABSAOS 

IdATEMP  = 1 / ANET 

TSf  = - IdATEMP  / (1  + ANET  / K:acp) 

Proceed  to  "ACCTHERE" 

NOTMUCH  IdACOSTTQ  = K : ldp03 
IdACOSTT^  = K:ldpQ3 
If  FLATEMP  = 0: 

If  ABSAOS  > Kiminiacc  - K:tinyacc; 

If  i = 0: 

DBB3  = DB7AI3 
DHB4  = 2 DB7AI3 
If  i = 1: 

DBBZ^  = DB7AI3 
DBB3  = 2 DB7AI3 

If  ABSAOS  < K:mlniacc  - K:tliyacc: 

DBB3  = DBVALl 
DBBif  = DB7AL1 
AMET  = 2 IJACCU  + ABSAOfi 
IdATEMP  = 1 / ANET 
TSf  = - IdATEMP  / (1  + AHBT  / K:acp) 


ACCTHERE 


J = |i  - li 

ACFTEMj_^2  = 

ldATEMlj_^2  = IdATEMP 

TS  = 1 + (IJACCU  + ABSAOS)  / K:acp 

If  overflow  (|TS|  ^ 2^): 

TS  = K:posmaxsp 
ANET  = K:acp  (TS  - l) 

IdATEMP  = 1 / ANET 

TSf  = - IdATEMP  / (1  + ANET  / K:acp) 

ACFTEMj  = TSf 
IdATEMlj  = IdATEMP 
ANET  = 2 IJACCU  - ABSAOS 
ACCSWTEM  = 0 
If  ANET  < K:miniacc; 

ANET  = K:miniacc 
IdATEMP  = 1 / ANET 

TSf  = - IdATEMP  / (1  + ANET  IdACOSTT^) 

ACFTEM^^2  = "^Sf 

ldATEM1^^2  = IdATEMP 
ANET  = IJACCU  - ABSAOS 

If  ANET  ^ Kiminlacc:  (replace  1-jet  params  with  2- jet  params 

xmless  relevant  jet  failed.) 

ACCSWTEM  = 2 i - 1 

If  UV  = 0 and  i = 0 and  bits  4 and  7 of  CH5MASK  = 0: 

Proceed  to  "STMIN-"  (no  minus  U jets  failed) 
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STMIN- 


(If  A»T  £ K:Blnlacc) 

IfUV  = Oandi  = l«nd  bits  3 and  8 of  0M5KASK  = 0: 

Procaed  to  "STIC1I-"  (no  plus  U Jets  failed) 
IfUV  = landl=0  and  bits  2 and  5 of  CW5MiSK  = 0: 

Proceed  to  •'SBCDI--”  (no  minus  V Jets  failed) 
IfUV  = landi  = land  bits  1 and  6 of  CH5KASK  = 0: 


Proceed  to  "SUflN-"  (no  plus  V Jets  failed) 

ANET  = Krminiacc  (jet  fail\are;  use  Krminlacc  instead 

of  2- Jet  parameters) 

IdATEMP  = 1 / ANET 

TSf  = - IdATEMP  / (1  + ANET  IdACOSTT^) 

ACFTEHj^  = TSf 
IdATEMl^  = IdATEMP 

If  UV  = 0 and  bit  3 or  8 of  CH5MASK  = 1,  or  if  UV  = 1 ^ bit 
1 or  6 of  CH5MASK  = 1:  (Jet  fail\ire  - poaiti-fre  torque) 


IdATEMl^  = IdATEMlj^ 

ACFTEJ^  = ACFTEM^ 

If  UV  = 0 and  bit  4 or  7 of  CH5MASK  =1,  or  if  UV  = 1 and  bit 
2 or  5 of  CH5MASK  = 1:  (^et  failure  - negative  torque) 

IdATEMl^  = IdATEMlQ 

ACFTE^^  = ACFTEMq 

AXDSTEMq  = FLATEMP  + DBBl  - DBB3 


AXDSTEMj^  = FLATEMP  + DBB2  - DBB4 
Inhibit  interrupts 


ACCSWy^  = ACCSWTEM 
If  UV  = 0: 

IdANETQ  = IdATEMlQ 
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(If  UV  = 0) 


IdANET^  = IdATEMl^ 

IdANET^  = lciATKMl2 
IdANET^  = IdATEMl^ 
IdACOASTg  = IdACOSTTQ 
IdACOASTj^  = IdACOSTTj^ 
ACCFCTq  = ACFTEMq 
ACCFCT^  = ACFTEM^ 

ACCFCT2  = ACFTEM2 

ACCFCT^  = ACFTEHj 

Release  interrupt  inhibit 

UDBl  = DBBl 

UDB2  = DBB2 

UDB3  = DBB3 

UDB4  = DBB4 

UAXDISTq  = AXDSTEMq 

UAXDIST^  = AXDSTEII^ 

UV  = 1 

Proceed  to  "BOTHAXES" 


IdANET^^  = 
IdANETj^^  = 
IdANET^g  = 
IdANET^g  = 
IdACOAST^^ 
IdACOAST^^ 


IdATEJO-Q 

IdATEMl^ 

ldATEMl2 

IdATEMl^ 

= IcIACOSTTq 
= IdACOSTTj^ 
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ACCFCTj^^  = ACPTDJq 
ACCFCTj^^  = ACFTEJIj^ 
ACCFCTj^g  = ACFTEM2 
ACCFCT^g  = ACFTHI^ 
FLAT  = FLATKMP 


Z0NEI3LIM  = Z3TEM 


FIRIDB_j^^  = DB7AL1 

FIREDB  , c = DB7AL1 
-15 

COASTDB_j^^  = DB7AL1  + FUT 
COASTDB_j^^  = DBVALl  + FLAT 
AXISDIST_^^  = 0 
AXISDIST_j^^  = 0 
If  FLAT  > 0: 


FIREDBq  = DBVALl 
FIREDBj^  = DBVALl 
FIHEDBj^^  = DBVALl 
FIREDBj^^.=  DBVALl 
COASTDBq  = DBVALl  + FLAT 
COASTDBj^  = DBVALl  4-  FUT 
COASTDBj^^  = DWALl  + FUT 
COASTDBj^^  = DBVALl  + FUT 
AUSDISTq  = 0 
AUSDIST^  = 0 

ACLSDISTj^^  = 0 

ausdisTj^^  = 0 
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If  FLAT  = 0: 


(Powered  flight  without  fine  GTS) 


FIKEDBq  = UDBl 
FIREDB^  = UDB2 
COASTDBq  = UDB4 
COASTDB^  = UDB3 
AXISDISTq  = UAXDISTq 
AXISDISTj^  = UAXDISTq 
FIREDB^^  = DBBl 
FIREDB^^  = DBB2 
CX)ASTDB^^  = DBB4 
COASTDBj^^  = DBB3 
AXISDIST^^  = AXDSTEMq 
AXISDIST^^  = AXDSTEMq 

1/ACCRET  Switch  DAPBOOLS  bit  3 (ACCSCKAY)  to  1 
Release  interrupt  inhibit 


Return 
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^ TJETLAW 


( 


HOIDQ  = retiorn  address 


ADRSDIFl  = K:AXISDIFF^3^^ 

If  EDOT  > 0: 

t 

ADRSDIF2  = ADRSDIFl 
ROTSENSE  = K: SENSOR 
If  EDOT  ^ 0: 

E = - E 
EDOT  = - EDOT 
ADRSDIFl  = ADRSDIFl  + 1 
ADRSDIF2  = ADRSDIFl 
ROTSENSE  = - K: SENSOR 
i = ADRSDIFl 

If  1e|  > 2"^:  (lE)>  11.25  degrees) 

If  E < 0,  proceed  to  "RUFLAWl" 

If  E > 0,  proceed  to  "RUFLAW2" 

(E  = E rescaled  from  B-1  to  B-3) 

If  |ED0T1  ^ proceed  to  "RUFLAW3" 

(EDOT  = EDOT  rescaled  from  B-3  to  B-6) 
2 

EDOTSQ  = EDOT 

If  \e\  < FIREDB^  - K:m3deg 
NUMBERT  = SENSETIP  - 1 


(-16,  0 or  l6;  see 
description  of 
storage  sequence 
at  end  of  glossary) 


(EDOT  > 5.625  deg/sec) 


If  IeI  > FIREDB^  - K:m3degor  if  SENSETTP  = 0 
ADRSDIF2  = ADRSDIF2  + 2 
NUMBERT  = 4 
J = ADRSDIF2 


(index  2- jet  parameters  rather 
than  1-jet  parameters) 
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FIREPCT  = FIREDB^  - i IdANETj  EDOTSQ  - E 
If  FIREFCT  <0: 

Perform  "Z123C0MP" 

If  FIREFCT  + FLAT  ^ 0: 

TS  = FIREFCT  + FLAT 

Proceed  to  "ZONEl"  (reverse  rate  error  and 

reach  switch  curve) 

If  TTOAXIS  > Z0NE3LIM,  proceed  to  "Z0NE2"  (null  rate  error 

Proceed  to  ’'Z0NE3"  (■Inimtut  impulse  zone) 

TS  = COASTDB^  + ^ IdACOAST^  EDOTSQ  + E 

If  TS  ^ 0,  proceed  to  "ZONEil"  (coast  zone) 

Proceed  to  "Z0NE5"  (increase  error  rate  and  reach 

switch  cxirve) 

Z123C0MP  ROTSENSE  = - ROTSENSE 
TTOAXIS  = EDOT  IdANET^ 

If  TTOAXIS  > Krtjmax: 

TSt  = K:250msB2 
Proceed  to  "RETURNTJ" 

Return 

ZONEl  HH  = 2 (TS  - AXISDIST^)  ACCFCTj  (ACCFCTj  ie  negative) 

TS  = (TTOAXIS  - Krtjmax)^  - HH  (only  high  half  of  HH  used) 

If  TS  6:  0:  (total  time  greater  than  Krtjmax) 

TSt  = K:250msB2 
Proceed  to  "RETURNTJ" 

If  HH  > K:50masq:  (H  between  44  and  150  milliseconds) 

TSt  = (HH  / K:200msB2)  + K:37.5msB2  + TTOAXIS 
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If  HH  < K:50nissq: 


(H  between  0 and  44  milliseconds) 


Z0NE2 


Z0NE3 


Z0NE4 


Z0NE5 


TSt  = (HH  / K:50msB2)  + TTOAXIS 
If  TSt  < K:tjmin,  TSt  = 0 


Proceed  to  "RETURNTJ" 

TSt  = TTOAXIS 
Proceed  to  "RETURNTJ" 

TSt  = K:minimpt  (illegally  small  jet  on  time  changed 

to  minimum  impulse  in  "PJETSLEC"  or 
If  EDOT  < 2"^  , TSt  = 0 "AFTERTJ") 

Proceed  to  "RETURNTJ" 

k = AXISCTR  + 1 

If  TJj^  ROTSENSE  < 0:  (jets  on  and  firing  toward  desired  state) 

If  FLAT  = 0 and  AXISDIST^  - FIREFCT  > 0: 

Perform  "Z123COMP" 

TS  = FIREFCT 
Proceed  to  "ZONEl" 

If  FLAT  > 0 and  FIREFCT  - 2 FIREDB^^  < 0: 

Perform  "Z123C0MP" 

If  TTOAXIS  > Z0NE3LIM,  proceed  to  "Z0NE2" 

Proceed  to  "Z0NE3" 

(In  all  other  cases,  coast) 

TSt  = 0 


Proceed  to  "RETURNTJ" 

If  ROTSENSE  < 0,  j = j - 1 
If  ROTSENSE  >0,  j = j + 1 
HH  = 2 TS  ACCFCTj 


(indices  were  chosen  to  select 
parameters  opposing  EDOT;  in 
zone  5,  acceleration  should 
be  in  same  direction  ae  EDOT) 
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RUFLAWl 


RUFLAW2 


TTOAXIS  = IdANETj  EDOT 

TS  = HH  - K:100msB2  TTOAXIS  - KiSOmssq  (more  sig  half  of  HH) 
If  TS  1 0: 

TSt  = i HH  / (TTOAXIS  + K:25msB2) 

If  TSt  < K:tjmln,  TSt  = 0 
Proceed  to  "RETURNTJ" 

TS  = HH  - K:300msB2  TTOAXIS  - K:150mssq 
If  TS  > 0: 

TSt  = K:250msB2 
Proceed  to  "RETURNTJ" 

TSt  = i (HH  + K:85mssq)  / (TTOAXIS  + K:100msB2) 

Proceed  to  "RETURNTJ" 

EDOT  = EDOT  - K:RUFRATE 

If  EDOT  < 0:  (rate  below  6.50  degrees  per  second) 

NUMBERT  = 4 

FIREFCT  = - K:posmax3p  (if  P-axis,  call  for  4 jets) 

ADRSDIF2  = ADRSDIF2  + 1 signRDTSENSE 
TS  = - EDOT 
Proceed  to  "RUFLAW12" 

ROTSENSE  = - ROTSENSE 
NUMBERT  = 4 
FIREFCT  = - K:posinaxsp 
TS  = EDOT 

Proceed  to  "RUFLAW12" 

ROTSENSE  = - ROTSENSE 
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NUMHEST  = 4 


FIREFCT  = - K:posmaxsp  (if  P-axis,  call  for  4 jeta) 

TS  = EDOT  + K:RUFRATE 
If  overflow  ()TS1  > 2"^): 

• TSt  = K:250iBaB2 
Proceed  to  "RETURNTJ" 

RUFUW12  i = ADRSDIF2  + 2 
TSt  = TS  IdANETj 
If  TSt  ^ K:43ecB5: 

TSt  = K:25CtasB2 
Proceed  to  "RETURNTJ" 

TSt  = TSt  rescaled  from  B5  to  B2 

If  TSt  < K:tjn±n,  TSt  = 0 
Proceed  to  "RETURNTJ" 

RUFIAWB  ROTSENSE  = - ROTSBNSE 
NUMBERT  = 4 

FIREFCT  = - Krposmaxep  (if  P-axis,  call  for  4 jets) 

i = ADRSDIFl  + 2 (=  ADRSDIF2  <+  2) 

TS  = E + i IdANETj  EDOT^  - FIREDB^_2 
If  TS  > 0,  TSt  = K:250niaB2 
If  TS  < 0,  TSt  = 0 
RETURNTJ  1 = AUSCTR  + 1 

TJ^  = TSt  ROTSENSE 

If  TJ.  ACCSW.Y-„p,pp  > 0:  (Note  that  for  P-axis,  this 

jULLOoin  valid,  but 

NUMBERT  = 4 NUMBERT  is  set  after 

"TJETLAW") 

Return  via  HOUXi 
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SFSRGS 


i = AXISCTR  + 1 


If  TJ^  = 0: 

OIDSENSE  =0 
Proceed  to  "SPSSTART” 

OIDSENSE  = 1 signTJ^ 

TS^  = - OIDSENSE  EDOT 

If  DAPBOOLS  bit  8 (DRIFTBIT)  = 0:  (powered  flight) 

TS^  = TS^  + K:RATEDB1 

If  TS^  > 0,  proceed  to  2nd  line  of  "POSTHRST" 

SPSSTART  If  |eD0T  K:RATELIMi|  > 1:  (check  to  see  if  outer  rate  limit 

has  been  exceeded) 

TS^  = - 0.5  signEDOT 
Proceed  to  "POSTHRST" 

10^=  DKDB  (K:m3tom1  EDOT  + E) 

TSt  = 0 

If jTS^I  < 1,  proceed  to  "POSTHRST"  (E  will  be  less  than  the 

deadband  within  4 seconds 
without  firing) 

If  TS^  < 0 and  EDOT  < K:RATELIM2,  TSt  =0.5 

If  TS^  > 0 and  EDOT  >-K:RATELIM2,  TSt  = - 0.5  (if  within  the 

inner  rate  limit 
fire  toward  it) 

POSTHRST  TJ^  = K:B0toB10  TSt 
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CTRCHECK 


RESTORDB 


SETMINDB 


SETMAXDB 


PFLITEDB 


If  OLDSENSE  = 0,  proceed  to  "CTRCHECK" 

If  OLDSENSE  > 0; 

TS  = TJ^ 

Skip  next  step 

TS  = - TJ^  (OLDSENSE  < O) 

If  TS  > 0,  return 
PJETCTR^  = K;l]TIME^ 

TJ^  = 0 
Return 

If  PJETCTR^  = 0,  return 

TJ^  = 0 

Return 

If  DAPBOOLS  bit  5 (DBSLECT2)  = 1,  proceed  to 
If  DAPBOOLS  bit  4 (DBSELECT)  = 0,  proceed  to 
DB  = K:P0WERDB 

Proceed  to  2nd  step  of  "SETMAXDB" 

DB  = K:NARROWDB 
Establish  "1 /ACC JOB" 

Return 

DB  = K:WIDEDB 
Establish  "1 /ACC JOB" 

Return 

Perforin  "ZATTEROR" 

DB  = K:POWERDB 
Establish  "l/ACCJOB" 

Return 


"SETMAXDB" 

"SETMINDB" 


(pr27) 

(pr27) 


(pr27) 
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(Entered  from  a verb  48,  this  is  Routine  03) 

DAPDATA1  DAPDATR1  = bits  13,  11,  10,  7,  5,  4,  2 and  1 of  DAPBOOLS 
(GSMD0CKD,AGC40R2X,A0RBTRAN,  RHGSCALE,  DBSLECT2, DESELECT, 
AUTRATE2,ADTRATE1 ) 

If  FLGWRD10,  bit  13(APSFLAG)  = 0:  DAPDATR1  ,bit14  0,  otherwise 
DAPDATR1  bit  14  = 1 

If  DAPDATR1,  bits  13  and  14  = 0,  set  bit  13  of  DAPDATR1  = 1 

Perform  "GOXDSPFR"  with  TS  = K:V01N46  (display  DAPDATR1 ) 

(if  terminate,  proceed  to  "ENDEXT";  If  proceed,  proceed  to 
"DPDAT1";  other  response,  skip  next  two  steps) 

Perform  "BLANKET"  with  TS  = 00006g 

End  job 

DAPDATR1  = bits  14,  13,  11,  10,  7,  5,  4,  2 and  1 of  DAPDATR1 
Proceed  to  third  step  of  "DAPDATA1" 

DPP AT 1 Inhibit  interrupts 

FLGWRD10,  bit  13  (APSFLAG)  = complement  of  DAPDATR1 , bit  14 

If  DAPDATR1,  bits  13  and  M,  ¥ 1,  bit  13  of  DAPDATR1  = 0 

Set  bits  13,11,10,7,5,4,2  and  1 of  DAPBOOIS  = bits  13,11,10,7, 

5,4,2  and  1 of  DAPDATR1 

MASS  = LEMMASS 

If  DAPBOOLS  bit  13  (CSMDOCKD)  = 1 , MASS  = MASS  + CSMMASS 

If  DAPBOOLS  bit  11  (ACC40R2X)  = 1,  switch  FLAGWRD1  bit  15  (NJETSFLG)  to  0 

If  DAPBOOLS  bit  11  (AGC40R2X)  = 0: 

Switch  FLAGWRD1  bit  15  (NJETSFLG)  to  1 
RATEINDX  = bits  2 and  1 of  DAPBOOLS 

STIKLOAD  STIKSENS  = K:FINE 

If  DAPBOOLS  bit  7 (RHGSCALE)  = 1: 

STIKSENS  = STIKSENS  + K:N0RMAL 
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RATEDB  = K:m0.6DdS 


DAPDATA2 


If  DAPBOOLS  bit  13  (CSMDOCKD)  = 1: 

STIKSENS  = K:1d10  STIKSENS 
RATEDB  = K:m0.3DdS 

Release  interrupt  inhibit 

Perform  "GOXDSPFR”  with  TS  = K:V06N47  (LEMMASS,  CSMMASS) 

(if  terminate,  proceed  to  '’ENDR03";  if  proceed,  skip 
next  two  steps;  if  other  response,  repeat  this  step.) 

Perform  "BLANKET"  with  TS  = 00004^ 

O 

End  Job 

TS  = K;MINMINm  (ascent) 

If  FLGWRD10  bit  13  (APSFLAG)  = 0,  TS  = TS  + K;MINIM)  (descent) 

If  LEMMASS  < TS,  proceed  to  "DAPDATA2" 

MASS  = LEMMASS 

If  DAPBOOLS  bit  I3  (CSMDOCKD)  = 1: 

If  CSMMASS  < K:MINCSM,  proceed  to  "DAPDATA2" 

MASS  = LEMMASS  + CSMMASS 

Perform  "REQTORDB"  with  interrupts  inhibited 

If  FLGWRD10  bit  I3  (APSFLAG)  = 1,  proceed  to  "ENDEXT"  (ascent) 

Perform  "GOXDSPFR"  with  TS  = K:V06N48  (PITTIME,  ROLLTIME) 

(if  terminate,  proceed  to  "ENDEXT";  if  proceed,  skip 
next  two  steps;  if  other  response,  repeat  this  step) 

Perform  "BLANKET"  with  TS  = 00004^  (blank  R3) 

O 

End  Job 

Call  "TRIMGIMB"  in  0.01  second 

End  Job 
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TRIMQIMB 


PITCHOFF 


TRIMDONE 


ENDR03 


Switch  FLAGWRD6  bit  10  (GMBDRVSW)  to  0 

Switch  bits  12  and  10  of  channel  12  to  0 (-Q  and  -R  off) 

Switch  bits  11  and  9 of  channel  12  to  1 (+Q  and  +R  on) 

Delay  60  seconds  (drive  gimbals  to  stops) 

Switch  bits  11  and  9 of  channel  12  to  0 
Switch  bits  12  and  10  of  channel  12  to  1 
Call  "PITCHOFF"  in  PITTIME  cent! seconds 
Delay  ROLLTIME  centiseconds 
Switch  bit  12  of  channel  12  to  0 
Skip  next  step 

Switch  bit  10  of  channel  12  to  0 

If  FLAGWRD6  bit  10  (GMBDRVSW)  = 1,  establish  "TRIMDONE"  (prlO) 
If  FLAGWRD6  bit  10  = 0,  switch  FLAGWRD6  bit  10  to  1 
End  task 

Perform  "G0MARK3R"  with  TS  = K;V50N48  (PITTIME,  ROLLTIME)  The 
TS  is  formed  by  adding  13000^  to  K:V06N48 

(If  terminate,  proceed  to  "ENDEXT";  if  proceed,  proceed 
to  "ENDEXT";  If  other  response,  proceed  to  "ENDEXT") 

Perform  "BLANKET"  with  TS  = 00024g  (PERFREQ  and  R3BLNK) 

End  job 

Inhibit  Interrupts 
Perform  "RESTORDB" 

Proceed  to  "ENDEXT" 
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COMMEQS  If  1JACCR  5 1JACCQ,  proceed  to  "BIGIQ" 


EPSILON  = (1JACCQ  - 1JACCR)  / 1JACCQ 
If  EPSILON  > K;EPSMAX,  EPSILON  = K:EPSMAX 
COEFFR  = K: 0.707  + K: 0.35356  EPSILON 
COEFFQ  = (~1  + EPSILON)  COEFFR 
Return 

BIGIQ  mEPSILON  = (IJACCQ  - 1JACCR)  / 1JACCR 

If  ImEPSILONl  > K:EPSMAX,  mEPSILON  = -K;EPSMAX 
COEFFQ  = -K:0.707  + K;0. 35356  mEPSILON 
COEFFR  = (-1  - mEPSILON)  COEFFQ 
Return 
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Quan$;ities  In  Computations 


IdACOAST  IdACOASTg,  IdACOAST^^,  IdACOSTTQ;  Single  precision  inverse 

of  magnitude  of  offset  acceleration  expected  to  oppose  positive  Jet 
torques,  scaled  B8  in  units  of  seconds  squared  per  revolution. 

Limited  to  a maximum  value.  See  description  of  storage  sequence 
below. 

IdACOAST  IdACOAST^,  IdACOAST^ IdACOSTT^ ; Single  precision  inverse  . 

of  magnitude  of  offset  acceleration  expected  to  oppose  negative  jet 
torques,  scaled  B8  in  units  of  seconds  squared  per  revolution.  Limited 
to  a ma:^mum  value.  See  description  of  storage  sequence  below. 

MANEXq,  1dANET^£^,  IdATEMT^,  IdATEMP:  Single  precision  inverse  of  the 

1-jet,  net  acceleration  expected  in  a negative  sense  around  an  axis, 
scaled  B8  in  units  of  seconds  squared  per  revolution.  If  this  1-jet 
acceleration  cannot  counteract  an  opposing  offset  acceleration  and  the 
required  jets  are  not  failed,  the  appropriate  ACCSW  is  set  to  -1  and 
the  inverse  of  the  2-jet,  net  acceleration  is  stored  in  this  cell. 

See  description  of  storage  sequence  below. 

IdANET^,  IdANET^;^,  IdATEMI^,  IdATEMP:  Single  precision  inverse  of  the 

1-jet,  net  acceleration  expected  in  a positive  sense  around  an  axis, 
scaled  B8  in  units  of  seconds  squared  per  revolution.  If  this  1-jet 
acceleration  cannot  counteract  an  opposing  offset  acceleration  and  the 
required  jets  are  not  failed,  the  appropriate  ACCSW  is  set  to  1 and 
the  inverse  of  the  2-jet,  net  acceleration  is  stored  in  this  cell. 

See  description  of  storage  sequence  below, 

IdANET  IdANET^,  IdANET^g,  IdATEMI^,  IdATEMP:  Single  precision  inverse 
of  the  2-jet,  net  acceleration  expected  in  a negative  sense  around  an 
axis,  scaled  B8  in  units  of  seconds  squared  per  revolution.  If  a jet 
failure  is  present  for  the  axis  in  question,  the  1-jet,  net  accelera- 
tion is  stored  in  this  cell.  See  description  of  storage  sequence  below, 

IdANET  IdANET^,  IdANET^ g,  IdATEMl^,  IdATEMP:  Single  precision  inverse 
of  the  2-jet,  net  acceleration  expected  in  a positive  sense  around  an 
axis,  scaled  B8  in  units  of  seconds  sqmred  per  revolution.  If  a jet 
failure  is  present  for  the  axis  in  question,  the  1-jet,  net  acceleration 
is  stored  in  this  cell.  See  description  of  storage  sequence  below, 

1JACCP,  1JACCQ,  1JACCR:  (Program  notation  also  1JACC,  1JACC  +1,  and 
1JAGC  +2,  respectively).  Single  precision  angular  accelerations 
expected  from  a single  RCS  jet  fired  around  the  P,Q  and  R axes, 
respectively;  computed  in  "l/ACCS"  or  in  "DOCKED"  from  empirical  func- 
tions of  the  mass  of  the  vehicle,  scaled  B-3  in  units  of  revolutions 
per  second  squared. 
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IJACCU : Single  precision  angiilar  acceleration  expected  from  a 

single  RCS  jet  fired  around  the  U or  V axes;  computed  from  a 
function,  of  . 1JACCQ  and  1JACCR  and  scaled  in  units  ipf 
revolutions  per  second  squared. 

2JETLIM:  See  DATA  sectlpn. 


ABDELV:  Single  precision  magnitude  of  sensed  change  in  velocity, 

scaled  B14  in  units  of  centimeters  per  second. 

ABSAOS : Single  precision  magnitude  of  sensed  offset  acceleration, 
scaled  B-2  in  units  of  revolutions  per  second  squared. 


ACCDOTQ,  ACCDOTR:  Magnitude  of  rate  of  change  of  the  offset  acceleration; 
a function  of  inertia  and  c.g.  position  for  the  DPS  whose  gimbals  are 
driven  at  a constant  rate;  zero  for  the  APS  which  has  no  gimbals; 
scaled  B-8  in  units  of  revolutions  per  second  cubed.  Single  precision. 


ACCFCTq,  ACCFCT.,,  ACFTEM-:  Single  precision  function  defining  the  inter- 
section on  the  phase  plane  of  two  parabolic  trajectories  (paths  of 
constant  acceleration),  scaled  B8  in  units  of  seconds  squared  per 
revolution.  One  trajectory  corresponds  to  the  1-jet,  net  acceleration 
expected  in  a negative  sense  around  an  axis,  and  the  other  trajectory 
corresponds  to  the  offset  acceleration  expected  in  a positive  sense 
around  an  axis.  If  no  offset  acceleration  is  expected  in  a positive 
sense  around  the  axis,  the  second  parabola  is  based  on  a minimum  accelera 
tlon  and  defines  the  minimum  limit  cycle  that  can  be  achieved.  See 
description  of  storage  sequence  below. 


ACCFCTj^ , ACCFCTj^^,  ACFTEM.  : Single  precision  function  defining  the  inter- 
section on  the  phase  plane  of  two  parabolic  trajectories  (paths  of 
constant  acceleration),  scaled  B8  in  units  of  seconds  squared  per 
revolution.  One  trajectory  corresponds  to  the  1-jet,  net  acceleration 
expected  in  a positive  sense  around  an  axis,  and  the  other  trajectory 
corresponds  to  the  offset  acceleration  expected  in  a negative  sense 
around  an  axis.  If  no  offset  acceleration  is  expected  in  a negative 
sense  around  the  axis,  the  second  parabola  is  based  on  a minimum  accelera 
tion  and  defines  the  minimum  limit  cycle  that  can  be  achieved.  See  des- 
cription of  storage  sequence  below. 

ACCFCT  ACCFCT^,  ACCFCTj^g,  ACFTEM2 : Single  precision  function  defining 
the  intersection  on  the  phase  plane  of  two  parabolic  trajectories 
(paths  of  constant  acceleration),  scaled  B8  in  units  of  seconds  squared 
per  revolution.  One  trajectory  corresponds  to  the  2- jet,  net  accelera- 
tion expected  in  a negative  sense  around  an  axis,  and  the  other  trajec- 
tory corresponds  to  the  offset  acceleration  expected  in  a positive 
sense  around  an  axis.  If  no  offset  acceleration  is  expected  in  a 
positive  sense  around  the  axis,  the  second  parabola  is  based  on  a 
minimum  acceleration  and  defines  the  minimum  limit  cycle  that  can  be 
achieved.  See  description  of  storage  sequence  below. 
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ACCFCT_j2>  ACCFCTj,  ACCFCT^g,  ACFTEM^ : Single  precision  function  defining 
the  intersection  on  the  phase  plane  of  two  parabolic  trajectories 
(paths  of  constant  acceleration),  scaled  B8  in  units  of  seconds  squared 
per  revolution.  One  trajectory  corresponds  to  the  2- jet,  net  accelera- 
tion expected  in  a positive  sense  around  an  axis,  and  the  other  trajec- 
tory corresponds  to  the  offset  acceleration  expected  in  a negative 
sense  around  an  axis.  If  no  offset  acceleration  is  expected  in  a 
negative  sense  around  the  axis,  the  second  parabola  is  based  on  a 
minimum  acceleration  and  defines  the  minimum  limit  cycle  that  can  be 
achieved.  See  description  of  storage  sequence  below. 

ACCSWq,  ACCSWj^  , ACCSWTEM:  Single  precision,  three-option  switches  for  the 
U and  V axes,  respectively,  scaled  B14  and  unitless.  Set  if  the  net 
acceleration  in  one  direction  is  very  small  (large  opposing  offset 
acceleration)  to  indicate  to  "TJETLAW"  that  maximum  jets  must  be  used 
if  a rotation  in  that  direction  is  required.  (See  "RETURNTJ".) 

ADRSDIFl , ADRSD1F2:  Single  precision  address  indices,  scaled  B14  and 

unitless.  ADRSDIFl  distinguishes  among  the  3 axes  and  between  positive 
and  negative  torque  and  acceleration  parameters;  ADRSDIF2  distinguishes 
between  one  and  two  jet  parameters.  (Only  2-jet  parameters  computed 
for  the  P-axis . ) 

ALLOWGTS ; See  DAPA  Section. 

ALPHAQ  , ALPHAR:  See  DAPA  Section. 

ANET:  Single  precision  expected  net  acceleration,  scaled  B-2  in  units 

of  revolutions  per  second  squared. 

AOSQ,  AOSR:  See  DAPA  Section. 

AOSU,  AOSV:  Single  precision  disturbing  acceleration  due  to  thrust  vector/ 
c.g.  offset  or  other  external  torques  around  the  U and  V axes  respec- 
tively, scaled  B-2  in  units  of  revolutions  per  second  squared. 

AXISCTR:  See  DAPA  Section. 

AXISDIST. : Single  precision  difference  between  the  E axis  Intercept 
defining  the  zone  1 boundary  and  the  E axis  intercept  defining  the 
cutoff  parabola,  scaled  B-3  in  units  of  revolutions.  The  cutoff  para- 
bola is  one  with  slope  defined  by  Amin  and  intercept  at  FIREDB  + 

FLAT  on  the  same  side  of  the  EDOT  axis,  or  the  cutoff  parabola  is  one 
with  slope  defined  by  offset  acceleration  and  intercept  at  0.75  FIREDB 
on  the  other  side  of  the  EDOT  axis. 
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AXISDIST_i6,  AXISDISTq,  AXISDIST16,  AXDSTEMo,  UAXDISTq:  AXISDIST  for 
positive  EDOT. 

AXISDIST_]_5,  AXISDIST^,  AXISDIST^y,  AXDSTEM^,  UAXEIST^;  AXISDIST  for 
negative  EDOT. 

CH5MASK:  See  DATA  Section. 

COASTDB^  (1  = -16,  -15»  0,  1,  16,  17):  Single  precision  deadband  de- 
fining the  ZONE4,  Z0NE5  border,  scaled  B-3  in  units  of  revolutions. 

See  description  of  storage  sequence  below. 

COEFFQ,  COEFFR:  See  DATA  Section. 

CSMMASS:  Single  precision  astronaut  input  of  the  mass  of  the  GSM, 
scaled  BI6  in  units  of  kilograms.  Part  of  erasable  load. 

DAPBOOLS:  See  DAPA  Section. 

DAPDATRl:  Single  precision  communication  cell  used  in  the  astronaut 
Interface  routine  to  allow  him  to  change  APSFLAG  and  selected  bits 
of  DAPBOOLS. 

DB:  Single  precision  PCS  deadband,  set  by  the  astronaut  or  by  internal 
programs  at  one  of  3 fixed  values,  scaled  B-3  in  ■’units  of  revolutions. 

DBBl,  DBB4:  FIREDB  and  COASTDB  for  positive  EDOT,  scaled  B-3  in  units  of 
revolutions . 

D3B2,  DBB3:  FIREDB  and  COASTDB  for  negative  EDOT,  scaled  B-3  in  lunits  of 
revolutions . 

DBVALl,  DBVAL2,  DBVAL3:  Single  precision  modifications  to  the  basic 
deadband  used  to  define  COASTDB  and  FIREDB  under  various  different 
operational  conditions  of  the  DAP,  scaled  B-3  in  units  of  revolutions. 

DKDB:  Single  precision  inverse  of  the  attitude  deadband  in  the  GSM-docked 
RCS  control  law,  scaled  B15  in  units  of  revs“^;  initialized  to  00200 
(corresponding  to  I/I.4  deg)  by  a fresh  start.  Part  of  erasable  load. 

DOCKTEMP:  Single  precision  storage  for  bit  13  of  DAPBOOLS  apaled  B2 
and  vinitless.  Used  to  eliminate  unnecessary  masking  operations. 

DRIFTER:  Single  precision  storage  for  bit  8 of  DAPBOOLS  to  assure 
uniformity  of  drifting  flight  assumptions  throughout  "l/ACCS," 
scaled  BI4  and  unitless. 
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E,  EDOT;  Single  precision  attitude  error  and  attitude  rate  error  used  to 
define  positions  on  the  phase  plane  and  calculate  the  duration  of  any 
RCS  jet  firings  that  are  deemed  necessary,  scaled  B-1  and  B-3,  re- 
spectively in  units  of  revolutions  and  revolutions  per  second  at  entry 
to  "TJETLAW"  and  "3PSRCS"  subroutines.  Note  that  EDOT  is  also  used  as 
rate-to-be-galned  in  response  to  RHC  commands. 

EDOTSQ:  Single  precision  square  of  EDOT,  scaled  B-10  in  units  of 
revolutions  squared  per  second  squared. 

EPSILON:  Single  precision  quantity  providing  a measure  of  control  torque 
cross-coupling.  It  is  equal  to  the  ratio  of  the  Q-axis  inertia  to  the 
R-axis  inertia  subtracted  from  one.  Scaled  BO  and  unitless. 

FIREDBj^  (l  = -16,  -15,  0,  1,  16,  17):  Single  precision  deadband  defining 
the  Z0NE123,  Z0NE4  border,  scaled  B-3  in  units  of  revolutions. 

FIREFCT:  Single  precision  function  of  E,  EDOT,  net  acceleration  and 
FIREDB  used  to  define  zones  1-2-3  and  4-5  and  used  with  ACCFCT  and 
TTOAXIS  to  calculate  the  duration  of  the  RCS  jet  firing  time,  scaled 
B-3  in  units  of  revolutions.  See  description  of  storage  sequence  below. 

FLAT,  FLATEMP:  Single  precision  deadband  defining  the  ZONEl,  Z0NE2-3 
boundary,  scaled  B-3  in  units  of  revolutions. 

HH:  The  double  precision  square  of  the  time  from  the  E-axis  to  the  inter- 
section of  the  parabolic  phase  plane  trajectories  and  the  parabolic 
switch  curve,  scaled  B4  in  units  of  seconds  squared. 

HIASCENT:  Single  precision  upper  bound  on  the  mass  of  the  ascent  stage, 
scaled  Bl6  in  units  of  kilograms.  Initialized  in  fresh  start  and/or 
loaded  with  the  erasable  load. 

HOLDQ:  Single  precision  octal  return  address  storage. 

INGTS:  See  DAPA  Section. 

K: 0.353^:  Single  precision  constant,  stored  as  13241^.  It  is  equal 
to  VS/A,  scaled  BO  and  unitless. 

K:0.707:  Single  precision  constant,  program  notation  .7071,  stored  as 
26501g,  scaled  BO  and  unitless.  Equation  value:  0.70709 

K:100msB2:  Single  precision  constant,  program  notation  -.05AT2  or  .1AT4, 

stored  at  +0.025,  scaled  B2  in  units  of  seconds.  Equation  value:  +0.1 
(equivalent  to  100  milliseconds) 
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K;150m3sq;  Single  precision  constant,  program  notation  -.0112A8,  stored 
as  7775O3,  scaled  B4  in  iinita  of  seconds  squared.  Equation  value: 

+0, 02246  . ( equivalent  to149..9^  milliseconds 2) 

KtldlO:  Single  precision  constant  stored  as  03146g,  program  notation 
1/10,  scaled  BO  and  unitless.  Equation  value:  0.1 

K:ldp03:  Single  precision  constant  stored  as  37777g,  scaled  B8  in  units 
of  seconds  squared  per  revolution.  Equation  value:  255.98  (equivalent 
to  1/(1.407  deg/sec2)) 

K:1JACC0N:  Single  precision  constant  stored  as  00l67g  and  scaled  B13  in 
units  of  rev-Kg/sec2.  Equation  value  59-50.  Used  to  obtain? -axis 
control  authority  for  the  docked  configuration. 

K:200msB2:  Single  precision  constant,  program  notation  .1AT2,  stored  as 
014633 j scaled  B2  in  units  of  seconds.  Equation  value:  0.2 

K:250msB2:  Single  precision  constant,  program  notation  BITll,  stored  as 
02000g,  scaled  B2  in  units  of  seconds.  Equation  value:  0.25. 

K:25insB2:  Single  precision  constant,  program  notation  -.025AT4,  stored 
as  77631g,  scaled  B2  in  units  of  seconds.  Equation  value:  0.025 

K:2jlimdwn:  Single  precision  constant  stored  as  OlOOOg,  program  notation 
BITIO  scaled  B-3  in  units  of  revolutions  per  second.  Equation  value: 
0.00391  (equivalent  to  I.4  degrees  per  second) 

K:300msB2:  Single  precision  constant,  program  notation  -.15AT2,  stored 
as  75462g,  scaled  B2  in  units  of  seconds.  Equation  value:  0.3 

K:37.5msB2:  Single  precision  constant,  program  notation  .0375AT4,  stored 
as  00232g,  scaled  B2  in  units  of  seconds.  Equation  value:  0.0376. 

K:4secB5:  Single  precision  constant  stored  as  73777g,  program  notation 
-I/8,  scaled  B5  in  units  of  seconds.  Equation  value:  +4.0 

K:50msB2:  Single  precision  constant,  program  notation  -.025AT2,  stored 
as  -O.OI25,  scaled  B2  in  units  of  seconds.  Equation  value:  +0.05 
(equivalent  to  +50  milliseconds) 

K:50mssq:  Single  precision  constant,  program  notation  IIEG2,  stored  as 
77775g,  scaled  B4  in  units  of2seconds  squared.  Equation  value: 
+0.001953  (equivalent  to  44.2  milliseconds  squared) 

K:85ms3q;  Double  precision  constant,  program  notation  .00375A8,  stored 
as  0.00375  X 2~3,  scaled  B4  in  \mits  of  seconds  squared.  Equation 
value:  0.0075  (equivalent  to  86. 6^  milliseconds  squared) 
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K:acp;  Constant  implicit  in  addition  of  two  quantities  of  unequal 
scaling,  scaled  B-8  in  units  of  revolutions  per  second  squared. 
Equation  value:  0.00390625  (equivalent  to  1.4  degrees  per  second 
squared) 

K:AXISDIFF^:  Three  single  precision  constant^  scaled  B14  and  unitless. 
Equation  value:  -16,  0 and  16  for  i = -1,  0 and  1. 

K:B0toB10:  Effective  scale  factor  introduced  by  treating  a quantity 
scaled  BO  as  if  it  were  scaled  BIO,  scaled  BIO  in  units  of  centl- 
seconds.  Equation  value:  1024  (equivalent  to  10.24  seconds) 

K:cgcoefA,B,C,D,E,F:  Six  single  precision  coefficients  for  a curve  fit 
of  the  form  Ax^  t By^  + Cxy  + Dx  + Ey  + F,  used  to  find  the  rate  of 
change  of  the  DPS  moment  arm  around  the  c.g.  of  the  docked  configura- 
tion. 


Program 

Stored 

Scale 

Notation 

Value 

Factor 

Units 

Equation  Value 

A 

COEFF+9 

-0.37142 

B-31 

cm 

sec" 

rev 

rad”^ 

kg  2 

-1.7296  E-10 

B 

COEFF+8 

0.75704 

B-31 

cm 

sec” 

rev 

rad”^ 

kg”2 

3.5252  E-10 

C 

COEFF+6 

0.20096 

B-31 

cm 

sec” 

rev 

rad” 

kg-f 

9.3579  E-11 

D 

COEFF+11 

0.41179 

B-15 

cm 

sec” 

rev 

rad” 

kg"| 

1.2567  E-5 

E 

COEFF+10 

-0.63117 

B-15 

cm 

sec” 

rev 

rad” 

kg-^ 

-1.9262  E-5 

F 

COEFF+7 

0.13564 

B1 

cm 

sec” 

rev 

rad"*"^ 

0.27128 

The  equation  value  of  each  constant  embodies  the  two  constant  factors 
1/2TT  and  0.2  degrees  per  second.  The  first  is  a conversion  factor  to 
convert  radians  to  revolutions;  the  second  is  the  DPS  gimbal  rate.  If 
the  equation  value  is  mialtiplied  by  211  and  divided  by  0.2,  the  resulting 
coefficients  will  give  an  idea  of  the  programmed  value  for  DPS  moment 
arm  per  degree  of  thrust  vector/c.g.  offset.  For  example,  (0.27128  21T/ 
0.2)  360  = 2U  488.3,  the  circumference  of  a circle  with  radius  equal 
to  the  c.g.  to  pivot  point  distance.  Thus,  using  only  the  constant 
term  of  the  polynomial,  this  distance  is  about  500  centimeters  or 
about  200  inches. 

K:DGBF:  Single  precision  constant,  stored  as  23146g,  scaled  B-1  and 
unitless.  Equation  value:  0.3 

K:dvtoacc:  Constant  implicit  in  the  2-second  navigation  cycle,  scaled 

B-1  in  units  of  seconds  to  the  minus  one  power.  Equation  value: 

K:EP3MAX:  Single  precision  constant,  stored  as  62362g,  but  used  in  this 
writeup  as  though  it  were  positive.  It  provides  the  magnitude  limit 
for  EPSILON  and  mEPSILON.  Scaled  BO  and  unitless.  Effectively  con- 
strains the  U'  and  V axes  within  15  deg.  from  the  U,  V axes.  Equation 
value : 0 . 422668 
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KrFINE:  Single  precision  constant  stored  as  05220g,  scaled  B-15  in  units 
of  revolutions  per  second  per  RHC-count  squared.  See  definition  of 
STIKSENS  in  the  DATA  Section.  Equation  valuei  0.0000050365. 


K:FLATVAL:  Single  precision  constant,  stored  as  00443g,  scaled  B-3  in 
units  of  revolutions.  Equation  value:  0.00222  (equivalent  to  0.8 
degrees) 


KrGFACTM:  Single  precision  constant  stored  as  003378,  used  to  convert 
from  units  of  pounds  (force)  to  units  of  kg  cm/second^;  scaled  B15 
in  units  of  kg  cm  sec“2/ibs.  Equation  value:  446  (corresponds  to 
4.4482  newtons  per  pound  times  100  cm/meter) 

K:HIDESCNT:  Single  precision  constant  stored  as  073618,  scaled  BI6.  in 
units  of  kilograms.  It  is  the  upper  boiind  on  descent  stage  mass. 
Equation  value:  15300 


K:INERC0NAj^:  Set  of  six  double  precision 
of  revolutions/sec^  kg~^. 


constants  scaled  B13  in  units 


i Stored  value 


Equation  value 


0 0.005  934  7674 

2 0.001  497  9264 

4 0.001  045  1889 

6 0.006  544  3852 

8 0.003  578  4354 

10  0.005  694  6631 


48.617  6145 
12.271  0131 
8.562  1875 
53.611  6036 
29.314  5428 
46.650  6801 


K:INERC0NBj^:  Set  of  six  single  precision  constants  scaled  B-3  in  units 
of  revolutions  per  second  squared. 


i Stored  value 


Equation  value 


0 0.002  989 

2 0.018  791 

4 0.021  345 
6 0.000  032 
8 0.162  862 
10  0.009  312 


3.7363  S-4 
2.3489  E-3 
2.6681  E-3 
4.0000  E-6 
2.0358  E-2 
1.1640  E-3 


K:INERC0NCj^:  Set  of  six  single  precision  constants  scaled  BI6  in  units 
of  kilograms. 

i Stored  value  Equation  value 


0 

0,008  721 

571.5 

2 

-0.068  163 

-4467.1 

4 

-0.066  027 

-4327.1 

6 

-0,006  923 

-453.7 

8 

0.002  588 

169.6 

10 

-0.023  608 

-1547.2 
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KrinrtcofA,  B,  C,  D,  E and  F:  Six  single  precision  coefficients  of  a 
curve  fit  of  the  form  Ax^  + By2  + Cxy  + Dx  + Ey  + F used  to  find  the 


approximate  moment  of  inertia  around 

an  axis  in  the  Q-R 

plane  of 

the 

combined  CSM  LM. 

Pro gram 

Stored 

Scale 

Equation 

Notation 

Value 

Factor 

Units 

Value 

A 

COEFF  +3 

-0.03709 

B6 

kg 

cm^/rad 

kg2 

-2.37376 

B 

COEFF  +2 

-0.17670 

B6 

kg 

cm2/ rad 

kg2 

-1.13088 

El 

C 

COEFF  +0 

0.19518 

B6 

kg 

cm^/ rad 

kg2 

1.24915 

El 

D 

COEFF  +5 

0.02569 

B22 

kg 

cm2/ rad 

kg 

1.07752 

E5 

E 

COEFF  +4 

0.06974 

B22 

kg 

cm2/ rad 

kg 

2.92511 

E5 

F ■ 

COEFF  +1 

-0.00529 

B38 

kg 

cm2/rad 

-1.45410 

E9 

K:LconA:  Double  precision  constant,  program  notation  INERCONA  -2, 
stored  as  0.0410511917,  scaled  B19  in  units  of  kilograms  feet  per 
radian.  Equation  value:  21522.647 

KrLconB:  Single  precision  constant,  program  notation  INERCONB  -2, 

stored  as  0.155044>  scaled  B3  in  units  of  feet  per  radian.  Equation 
value:  1.240352 

K:LconC:  Single  precision  constant,  program  notation  INERCONC  -2, 
stored  as  -0.025233,  scaled  Bl6  in  units  of  kilograms.  Equation 
value:  -1653.7 

K:L0ASCENT:  Single  precision  constant  stored  as  2200  x 2“^^;  the  lower 
bound  on  ascent  stage  mass,  scaled  Bl6  in  units  of  kilograms. 

Equation  value:  2200 

K:L0DESCNT:  Single  precision  constant  stored  as  00666g,  scaled  Bl6  in 
units  of  kilograms.  It  plus  HIASCENT  is  the  lower  bound  on  the  un- 
staged LM  mass.  Equation  value  1752 

K:m.l875:  Single  precision  constant  stored  as  71777g,  but  used  in  this 
writeup  as  though  it  were  positive.  Scaled  B-2  with  units  of  revs/ 
sec^.  Equation  value:  0.04687  (corresponds  to  16.87  deg/sec^) 

K:m0.3DdS:  Single  precision  constant  stored  as  776228,  program  notation 
-0.3D/S,  scaled  B-3  in  units  of  revolutions  per  second.  Equation 
value:  0.00083  (equivalent  to  0.3  degrees  per  second) 

K:m0.6DdS:  Single  precision  constant,  program  notation  -0.6D/S,  stored 

as  774458>  scaled  B-3  in  units  of  revolutions  per  second.  Equation 
value:  0.00166  (equivalent  to  0.6  degrees  per  second) 

K:m3deg:  Single  precision  constant  stored  as  756738.  Scaled  B-3  in 
units  of  revolutions.  Equation  value:  -0.00833  (equivalent  to  -3 
degrees) 


DAPB  - 31 


K:m3toml:  Constant  Implied  in  combining  EDOT,  scaled  B-3  in  units  of 
revolutions  per  second,  with  E,  scaled  B-1  in  units  of  revolutions; 
scale  factor  B2,  units  seconds.  This  is  the  inverse  of  the  slope  of 
the  switch  curves  in  the  docked  RCS  phase  plane.  Equation  value;  4 

K:MINCSM:  Single  precision  constant  stored  as  02000g,  scaled  Bl6  in 
units  of  kilograms.  Equation  value:  4096 

K;miniacc:  Single  precision  constant,  program  notation  -.03R/S2,  stored 
as  773773,  scaled  B-2  in  units  of  revolutions  per  second  squared. 

Equation  value:  +0.0039  (corresponds  to  0.02454  radians  per  second 
squared  or  1.406o/sec2) 

K;minlmpt;  Single  precision  constant,  stored  as  OOO4O3,  program  notation 
BIT6,  scaled  B2  in  units  of  seconds.  Equation  value:  2“'  (equivalent 
to  7.8  ms) 

K:MINLMD;  Single  precision  constant  stored  as  764663,  but  used  as  positive, 
scaled  B16  in  units  of  kilograms.  ^Equation  value:  2852. 

K;MINMINLM;  Single  precision  constant  stored  as  7673I3,  but  used  as  positive, 
scaled  B16  in  .inaits  of  kilograms.  Equation  value:  2200. 

K:NARR0WDB:  Single  precision  constant  stored  as  OOI553,  scaled  B-3  in 
units  of  revolutions.  Equation  value;  O.OOO83  (equivalent  to 

0.2994°) 

K:nomaxjts:  Single  precision  constant  stored  as  4OOOO3,  scaled  B-3  in 
units  of  revolutions  per  second.  Equation  value:  +0.12499  (equivalent 
to  44.997  degrees  per  second) 

K: NORMAL;  Single  precision  constant  stored  as  25101g,  scaled  B-15  in 
units  of  revolutions  per  second  per  RHC-count  squared.  Equation 
value:  0.000020148.  See  definition  of  STIKSENS  in  the  DAPA  Section. 

K.-POWERDB:  Single  precision  constant  stored  as  005548?  scaled  B-3  in 
units  of  revolutions.  Equation  value:  0.00277  (equivalent  to  1 
degree) 

K;RAIEDB1;  Single  precision  constant,  stored  as  000453,  scaled  B-3  in 

units  of  revolutions  per  second.  Equation  value:  0.0002823  (equivalent 
to  0.102°/sec) 

K;RATELIM1:.  Single  precision  constant,  stored  as  00032g,  scaled  B17  in 
units  of  seconds  per  revolution.  Equation  value:  208  or  I.O/O.OO48 
(equivalent  to  l/l.73°/sec) 


DAPB  - 32 


K:RATEJ.IM2:  Single  precision  constant  stored  as  00632g,  scaled  B-3  in 
units  of  revolutions  per  second.  Equation  value:  0.003128  (equivalent 
to  1.126°/sec) 

KrRUFRATE:  Single  precision  constant  stored  as  04476g,  scaled  B-3  in 
units  of  revs/sec.  Used  as  a rate  limit  in  TJETLAW  phase  plane  cal- 
culations. Equation  value:  0.01805  (equivalent  to  6.5  degrees/sec) 


K; SENSOR:  Single  precision  constant  stored  as  14400g,  scaled  B8  in  units 
of  centiseconds  per  second.  Used  to  convert  scaling  used  in  "TJETLAW" 
to  that  used  for  TIME6  calculations.  Equation  value:  100 


K:tinyacc:  Single  precision  constant,  program  notation  .023R/S2,  stored 
as  00356g,  scaled  B-2  in  units  of  revolutions  per  second  squared. 
Equation  value:  0.003631  (equivalent  to  0.02281  radians  per  sec^  or 
1.307  degree/sec2) 


K:tjmax:  Single  precision  constant,  program  notation  -TJMAX,  stored  as 

-0.0375,  scaled  B2  in  units  of  seconds.  Equation  value:  +0.15 
(equivalent  to  +150  milliseconds) 

K:tjmin:  Single  precision  constant,  program  notation  -TJMIN  or  TJMIN, 
stored  as  +0.005,  scaled  B2  in  units  of  seconds.  Equation  value: 

+0.02  (equivalent  to  20  milliseconds) 

K:T0RKJET1:  Single  precision  constant  stored  as  0.03757,  scaled  B22  in 

units  of  foot-pounds /radians  sec“^.  Equation  value:  1575SO  (corresponds 
to  about  550/0.00349).  The  torque  expected  from  one  RCS  jet  is  550 
foot-pounds  and  the  rotation  rate  of  the  DPS  gimbals  is  nominally 
0.2°/sec. 

K:T0RQC0NS:  Double  precision  constant  stored  as  0.51443  x 2“14,  scaled 
B35  in  units  of  kilogram  centimeters  squared  revolutions/radians 
seconds  squared.  Equation  value:  1078837.90  (equivalent  to  500 
foot-pounds  X 13557  kg  cm^  per  ft-lb  x 1/6.2832  rev/rad) 

K:UTIME^  (i  = 0,1,2):  Single  precision  constants  giving  time  in  deciseconds 
between  RCS  jet  firings  for  the  docked  configuration.  Stored  as: 

00004g  for  the  P-axis,  00012^  for  the  U-axis,  00012g  for  the  V-axis. 
Scaled  BI4  with  units  of  deciseconds.  Equation  values:  4,  10,  and  10, 
respectively. 

K:WIDEDB:  Single  precision  constant  stored  as  034348?  scaled  B-3  in  units 
of  revolutions.  Equation  value:  0.013885  (equivalent  to  4-999°) 


.K:Z0NE3MAX:  Single  precision  constant  stored  as  0.004375,  scaled  B2  in 
units  of  seconds.  Equation  value:  0.0175  (equivalent  to  35  msec,  of 
single  jet  firing) 
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LEMMASS:  Single  precision  mass  scaled  B1:6;  in  units  of  kilograms} 

part  ofuisha  erasable-  load. 

LFVTARM:  Single  precision  proportionality  factor  between  the  DPS  gimbal 
angle  and  the  moment  arm  of  the  thinist  around  the  c.g.,  scaled  B3  in 
units  of  feet  per  radian,  program  notation  L,FVT-CG.  Because  the  DPS 
gimbal  angles  are  small,  LFVTARi  is  approximately  equal  to  the  distance 
between  the  c.g.  and  the  DPS  pivot  point. 

MASS:  Double  precision  mass  of  the  vehicle,  scaled  Bl6  in  units  of 
kilograms}  part  of  the  erasable  load. 

mEPSILON:  Single  precision  quantity  with  same  function  as  EPSILON.  It 
is  equal  to  one  subtracted  from  the  ratio  of  the  R-axis  inertia  to  the 
Q-axis  inertia.  Scaled  BO  and  unitless. 

MPACq:  Single  precision  working  storage  used  in  "l/AGCS"  to  store  the 
torque  expected  from  the  DPS  engine,  scaled  B17  in  units  of  foot-lbs 
per  radian  (radians  of  rotation  of  the  DPS  bell);  used  in  "DOCKED"  to 
store  the  rate  of  change  of  the  DPS  moment  arm,  scaled  B1  in  units  of 
centimeters  per  second-revolutions  per  radian. 

MPACj:  Single  precision  working  storage  used  in  "DOCKED"  to  store  the 
combined  vehicle  moment  of  inertia  around  an  axis  in  the  Q-R  plane, 
scaled  B38  in  units  of  kilogram  centimeters  squared  per  radian. 

NOMBERT:  See  DAPA  Section. 

OLDSENSE:  Single  precision  quantity  giving  the  sign  of  the  jet  firing 
time,  calculated  in  the  preceding  pass  through  the  DAP,  for  the  axis 
under  consideration.  Scaled  BI4  with  units  of  deciseconds. 

PITTIME:  Single  precision  time  to  drive  the  DPS  gimbal  in  a positive 
direction  around  the  Q-axls  starting  at  the  hard  stop  to  position  it 
prior  to  a burn,  scaled  BI4  in  units  of  centiseconds.  Pad  loaded. 

PJETCTR^:  See  DAPA  Section. 

QACCDOT,  RACCDOT:  See  DAPA  Section. 

QDAPK,  RDAPK:  See  DAPA  Section. 

RATEDB:  See  DAPA  Section. 

RATEINDX:  Single  precision  index  used  by  large  attitude  maneuver  calcu- 
lation routines  to  select  the  maneuver  rate,  scaled  B13  and  unitless. 
Determined  by  the  setting  of  bits  1 and  2 of  DAPBOOLS:  possible  values 
0,  1,  2,  or  3.  . 
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HDLLTIME:  Single  precision  time  to  drive  the  DPS  gimbal  in  a positive 
direction  around  the  R-axis  starting  at  the  hard  stop  to  position  it 
prior  to  a burn,  scaled  B14  in  units  of  centiseconds.  Pad  loaded. 

RDTSENSE:  Single  precision,  two-valued  switch  specifying  the  direction 
of  desired  rotation,  scaled  B8  in  imits  of  centiseconds  per  second. 

SENSETYP;  See  DAPA  Section. 

STIKSENS;  See  DAPA  Section. 

T5ADR:  See  DAPA  Section. 

TJq,  TJ]_,  TJ2:  See  DAPA  Section. 

TTOAXIS:  Time  from  the  present  point  on  the  phase  plane  to  the  E-axls 
along  the  parabolic  trajectory  defined  by  the  net  acceleration,  scaled 
B2  in  units  of  seconds. 

UAXDISTj_;  See  AXISDIST  pgs.  DAPB  25  and  26. 

UDBl,  IDB2,  UDB3,  UDB4:  Temporary  storage  for  DBBl,  DBB2,  DBB3,  and 
DBB4  as  computed  for  the  U-axis,  scaled  B-3  in  units  of  revolutions. 

UV:  Single  precision  index  to  distinguish  between  U and  V axes,  scaled 
BI4  and  unitless. 

Z3TEM:  Temporary  storage  with  same  scaling  as  K;Z0NE3MAX. 

Z0NE3LIM;  Single  precision  time  defining  the  border  between  Z0NE2  and 
Z0NE3,  scaled  B2  in  units  of  seconds. 
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storage  Sequence  for  "TJETLAW  Parameters 


E-memory 

Register 

Contents  of  cell 

Address  used  in 
Computations 

BLOCKTOP+0 

ACCSWU 

ACCSW 

Accsw!: 

IdANET 

- 1 4 

BLOCKTOP+1 

ACCSWV 

BLOCKTOP+2 

IdANET  for  negative,  2- jet 
acceleration  around  P-axis 

BLOCKTOP+3 

IdANET  for  positive,  2- jet 
acceleration  around  P-axis 

1 dANET  ^ ^ 

BLOCKTOP+4 

IdACOAST,  negative  around  P 

IdACOAST  .. 

1 dACOAST" ' ^ 

FLAT  “ ^ 

BLQCKTOP+5 

IdACOAST,  positive  aroimd  P 

BLOCKTOP+6 

FLAT 

BLOCKTOP+7 

Z0NE3LIM 

Z0NE3LIM 

BLOCKTOP+8 

ACCFCT  corresponding  to  negative, 
2-jet  acceleration  around  P 

ACCFCT 

BLOCKTOP+9 

ACCFCT  corresponding  to  positive, 

2- jet  acceleration  around  P 

ACCFCT_^  ^ 

BLOCKTOP+1 0 

FIREDB  for  positive  EDOT  around  P 

FIREDB 

FIREDB 

COASTDB 

COASTDB 

AXISDIST 

AXISDIST"'^ 

BLOCKTOP+1 1 

FIREDB  for  negative  EDOT  around  P 

BLOCKTOP+1 2 

COASTDB  for  positive  EDOT  around  P 

BLOCKTOP+1 3 

COASTDB  for  negative  EDOT  around  P 

BLOCKTOP+1 4 

AXISDIST  for  positive  EDOT,  P-axis 

BLOCKTOP+1 5 

AXISDIST  for  negative  EDOT,  P-axis 

BLOCKTOP+1 6 

IdANET  for  negative,  1-jet 
acceleration  around  U-axis 

IdANETp 

BLOCKTOP+1 7 

IdANET  for  positive,  1-jet 
acceleration  around  U-axis 

1 dAJJET^ 

BLOCKTOP+1 8 

IdANET  for  negative,  2- jet 
acceleration  around  U-axis 

IdANET^ 

BLOCKTOP+1 9 

IdANET  for  positive,  2- jet 
acceleration  around  U-axis 

IdANET^ 

BLOCKTOP+20 

IdACOAST,  negative  around  U 

1 dACOAST 

1 dACOAST!: 

ACCFCTq 

BLOCKTOP+21 

IdACOAST,  positive  around  U 

BLOCKTOP+22 

ACCFCT  corresponding  to  negative, 
1-jet  acceleration  around  U 

BLOCKTOP+23 

ACCFCT  corresponding  to  positive, 
1-jet  acceleration  around  U 

ACCFCT^ 

BLOCKTOP+24 

ACCFCT  corresponding  to  negative, 
2-jet  acceleration  around  U 

ACCFCT^ 

BLOCKTOP+2 5 

ACCFCT  corresponding  to  positive, 

2- jet  acceleration  around  U 

ACCFCT^ 

BLOCKTOP+26 

FIREDB  for  positive  EDOT  around  U 

FIREDB 

firedb!: 

COASTDB 

COASTDB^ 

AXISDIST 

AXISDIST!j^ 

BLOCKTOP+27 

FIREDB  for  negative  EDOT  around  U 

BLOCKTOP+28 

COASTDB  for  positive  EDOT,  U-axis 

BLOCKTOP+29 

COASTDB  for  negative  EDOT,  U-axis 

BLOCKTOP+30 

AXISDIST  for  positive  EDOT,  U-axis 

BLOCKTOP+31 

AXISDIST  for  negative  EDOT,  U-axis 

BLOCKTOP+32 

V-axis  parameters  identical  in 

U-axls  subscripts 

through 

BLOCKTOP+47 

description  to  U-axls  parameters 
but  around  V-axls  instead  of  U-axls 

plus  16 
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Data  Input/Oatput  RoTitlnes 

NVSUB  (Entered  -with  TSvn  and  TSmonoptt  in  A and  L) 

NVTEMP  = TSvn  (verb-noun  coda) 

FREEDSKY  = 0 

If  DSPLOCK  > 0,  return  (astronaut  using  DSKT) 

If  bit  14  of  MDNSAVEl  = 1,  return  (extemally  initiated  monitor) 

NVQTEM  = return  address 

M0NSAVE2  = TSmonopt  (monitor  options) 

MDNSAVEl  = AOOOOg  (terminate  monitor) 

ENTRET  = "NVSUBEND" 

If|NVTEMP)=  0,  proceed  to  "DSPALARM" 

If  NVTEMP  < 0,  proceed  to  "BLANKDSP" 

TSnoun  = low  7 bits  of  NVTEMP  (MPAC^) 

TSverb  = bits  14-8  of  NVTEMP  shifted  right  7 places  (MPACj,^) 

If  TSnoun  =0: 

VERBREG  = TSverb 
Perform  "UPDATVB" 

REQRET  = 40  (process  verb-noun  information) 

Proceed  to  "NVSUBEND" 

If  TSverb  =0: 

NOUNREG  = TSnoun 
Perform  "UPDATNN" 

Proceed  to  "NVSUBEND" 

TSadr  = MPAC2  (MPAC^) 

VERBREG  = TSverb 
Perform  "UPDATVB" 


DATA  - 1 


NOUNREG  = TSnoun 


BLAMDSP 


NVSUBEND 


Perform  "UPDATNN" 

LOADSTAT  = -fO 
CLPASS  = 0 
REQRET  = +0 
MPAC2  = TSadr 
Proceed  to  "ENTPASO" 

CODE  = 6 +|N7TEMP|  (CODE  = 7,  8,  9 or  10  for  legal  options; 

illegal  options  cause  error) 

Inhibit  interrupts 

Perform  indented  steps  for  i = CODE,  CODE  - 1,  ...  3,  2,  1,  0 

If  DSPTAB^  > 0,  NOUT  = NOUT  + 1 
DSPTAB^  = 04000g  complemented  to  flag  for  output 
(end  of  "indented  steps") 

Release  interrupt  inhibit 
If  NVTEMP  < -3,  VERBREG  = 0 
If  NVTEMP  < -2,  NOUNREG  = 0 
CLPASS  = 0 

DSPCOUNT  = -19  (inhibit  all  numerical  inputs) 

Switch  bit  6 of  channel  11  to  0 (flash  off) 

REQRET  = +0  ' (process  verb-noun  information) 

FREEDSKY  = 1 
Return  via  NVQTEM 


DATA  - 2 


ENTPASO 


Switch  DECBRNCH  to  OOOOOg 

DSPCOUNT  = - 19  (to  block  entry  of  mimerical  characters) 
VERBSAVE  = - VERBREG 
If  VERBREG  > 28,  proceed  to  "VERBFAN" 

TESTNN  Perform  "LODNNTAB" 

If  MIXBR  = 2,  proceed  to  "MIXNOUN" 

If  NNADTEM  > 0:  (normal  noun  address) 

NOUNCADR  = NNADTEM 

EBANK  = bits  11-9  of  NNADTEM 

NOUNADD  = 01400g  + bits  8-1  of  NOUNCADR 

Proceed  to  "VERBFAN" 

If  NNADTEM  = +0,  proceed  to  "DSPALARM"  (noun  is  not  valid) 

If  NNADTEM  = -0:  (increment  present  noun  address) 

NOUNCADR  = NOUNCADR  + 1 

EBANK  = bits  11-9  of  NOUNCADR 

NOUNADD  = 01400g  + bits  8-1  of  NOUNCADR 

If  VERBREG  / 5:  (verb  5 uses  R3;  cannot  display  NOUNCADR) 

DSPCOUNT  = K:R3D1 

Perform  "DSPOCTWD"  with  TSwd  = NOUNCADR 
Proceed  to  "VERBFAN" 

(Otherwise,  address  is  to  be  specified) 

CLP ASS  = - K:posmaxsp  (to  prevent  multiple  clears) 

If  ENTRET  ^ "ENDOFJOB";  (internal) 

NOUNCADR  = MPAC2 

EBANK  = bits  11-9  of  NOUNCADR 


DATA  - 3 


(If  internal  "address  to  be  specified") 


LODNUTAB 


NOUNADD  = OlAOOg  + bits  8-1  of  NOUNCADR 
If  VERBREG  ^ 5: 

DSPCOUNT  = K:R3D1 

Perform  "DSPOCTWD"  vd.th  TSwd  = NOUNCADR 
Proceed  to  "VERBFAN" 

Perform  "REQDATZ"  (request  noun  address;  return  via  REQRET) 
If  DECBRNCH  ^ OOOOOg,  proceed  to  "AlMCYCLE" 

DSPCOUNT  = - 19  (to  block  further  numerical  characters) 

If  CADRSTOR  7^  + 0:  (internal  display  request  interrupted) 

Switch  bit  6 of  channel  11  to  1 (leave  flash  on) 
NOUNCADR  = ZREG  (loaded  in  "REQDATZ") 

EBANK  = bits  11-9  of  NOUNCADR 

NOUNADD  = OlAOOg  + bits  8-1  of  NOUNCADR 

Perform  "LODNNTAB"  (reload  NNTYPTEM) 

Proceed  to  "VERBFAN" 

NNADTEM  = K : NNADTAB^^O^ 

NNTYPTEM  = 

If  NOUNREG  < 40:  ("normal"  noun) 

MIXBR  = 1 


Return 

MIXBR  = 2 (mixed  noun) 


RUTMXTEM  = KiRUTMXTAB, 


’NOUNREG 


i = low  10  bits  of  NNADTEM 


IDADTEM^  = K:IDADTAB^ 
IDADTEM2  = K:IDADTAB^_I^^ 


DATA  - 4 


MIXNOUN 


DSPAIAEM 


VERBFAN 


IDADTEM^  = K:IDADTAB^_^ 

Return 

If  NNADTEM  = +0,  proceed  to  "DSPALARM"  (noun  not  valid) 

If  VERBREG  > 6,  proceed  to  "VERBFAN"  (not  a display  verb) 
Perform  the  indented  steps  for  i = 2,  1,  and  0 
NOUNTEM  = IDADTEM^_I_^ 

TS  = high  5 (i  = 2),  mid  5 (i  = l)  or  low  5 (i  = O)  bits 
of  RUTMXTEM  shifted  right  10,  5 or  0 places  to  bit  positions 
5 through  1 

If  TS  = 4,  5,  7 or  10;  (double  precision) 

NOUNTEM  = NOUNTEM  +'  1 (specify  minor  part  for  octal 

display) 

EBANK  = bits  11-9  of  NOUNTEM 

TSadr  = 01400g  + low  8 bits  of  NOUNTEM 

MIXTEMP^  = contents  of  address  specified  ip'  TSadr 

(End  of  "indented  steps") 

NOUNADD  = "MIXTEMPJ'  (In  a routine  such  as  "DSPABC"  then, 
the  "contents  of  cell  specified  by  (2  + NOUNADD)"  will 
be  the  contents  of  MIXTEMP2,  loaded  above.) 

Proceed  to  "VERBFAN" 

If  ENTRET  = "NVSUBEND" , proceed  to  "POODOO"  with  TS  = 21501^ 

0 

If  ENTRET  = "PASTEVB" ; 

MONSAVE 1 = 40000g 

Switch  bit  7 of  channel  11  to  1 (operator  error) 

Proceed  to  "PASTEVB" 

Switch  bit  7 of  channel  11  to  1 
End  job 

If  VERBREG^40;  (extended  verb) 

TSextfan  = VERBREG  - 40 

Perform  "RELDSP" 

Proceed  to  "GOEXTVB" 


DATA  - 5 


Proceed  to  routine  specified  by  the  contents  of  VERBREG 


VERBREG 

0 

1 

2 

3 

k 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 


Starting  address  of  routine  Function 


DSPALARM 

DSPA 

DSPB 

DSPC 

DSPAB 

DSPABC 

DECDSP 

DSPDPDEC 

DSPALARM 

DSPALARM 

DSPALARM 

MONITOR 

MONITOR 

MONITOR 

MONITOR 

MONITOR 

MONITOR 

MONITOR 

DSPALARM 

DSPALARM 

DSPALARM 

ALOAD 

BLOAD 

CLOAD 

ABLOAD 

ABCLOAD 

DSPALARM 


not  defined 

octal  display  in  R1  from  NOUNADD 
octal  display  in  R1  from  1 + NOUNADD 
octal  display  in  R1  from  2 + NOUNADD 
octal  display  in  R1-R2  from  NOUNADD+0,1 
octal  display  in  R1,R2,R3  from  NOUNADD+0, 1,2 
decimal  display  in  Rl,  R1-R2  or  R1-R2-R3 
decimal  display  in  R1-R2  from  NOUNADD 

not  defined 
not  defined 
not  defined 

monitor  with  verb  1 
monitor  with  verb  2 
monitor  with  verb  3 
monitor  with  verb  4 
monitor  with  verb  5 
monitor  with  verb  6 
monitor  with  verb  7 

not  defined 
not  defined 
not  defined 

load  1 component  via  R1  by  NOUNADD 

load  1 component  via  R2  by  NOUNADD+1 

load  1 component  via-R3  by  NOUNADD+2 

load  2 components  via  R1-R2  by  NOUNADD+O, 1 

load  3 components  via  R1-R2-R3  by  NOUNADD+O, 1,2 

not  defined 


DSPFMEM 

DSPALARM 

DSPALARM 

VBRQEXEC 

VBRQWAIT 


octal  display  from  fixed  memory 

not  defined 
not  defined 


Request  executive 
Request  waitlist 


VBRESEQ  Resequence 

VBPROC  _ Proceed  (without  data) 

VBTERM  ' Tenninate  current  test  or  request 


VBTSTLTS 

SLAPl 

MMCHANG 

DSPALARM 

DSPALARM 


Lamp  test 
Fresh  start 
Change  major  mode 


(program) 
not  defined 
not  defined 


DATA  - 6 


DSPA 


DSPB 


DSPC 


If  MDCBR  = 1,  TS  = high  5 bits  of  NNTIPTEM  (xxx  xxO  000  000  OOO) 

If  MIXBR  =2,  TS  = high  5 bits  of  NNADTEM 

If  bit  14  of  TS  = 1,  proceed  to  "DSPALARM"  (nom  is  decimal  only) 
If  NNADTEM  = -1:  (noun  specified  a channel) 


BUF^  = -(contents  of  channel  specified  by  Tow  9 bits  of 
NOUNCADR) 


Proceed  to  "DSPC0M2" 

If  MIXBR  = 1: 

TS  = mid  5 bits  of  NNTYPTEM  shifted  right  5 


If  TS  = 4,  5,  7 or  10,  NOUNADD  = NOUNADD  + 1 
(specify  minor  part  if  double  precision) 


(minor  part 
already 
specified  for 
mixed  nouns 
in  "MIXNOUN" 
logic ) 


BUFq  = - contents  of  cell  specified  by  NOUNADD  (mixed  noun 

specifies  MIXTEMP^ 

Proceed  to  "DSPC0M2"  ^ 


If  MIXBR  =1,  TS  = high  5 bits  of  NNTYPTEM 
If  MIXBR  =2,  TS  = high  5 bits  of  NNADTEM 
If  bit  14  of  TS  = 1,  proceed  to  "DSPALARM" 

TS  = low  2 bits  of  (TS  shifted  right  10) 

If  TS  <1,  proceed  to  "DSPALARM"  (noun  has  no  second  component) 
BUFq  = - contents  of  cell  specified  by  (1  + NOUNADD) 


(mixed  noun  specifies  MIXTEMP^^) 
Proceed  to  "DSPC0M2" 

If  MIXBR  =1,  TS  = high  5 bits  of  NNTYPTEM 
If  MIXBR  = 2,  TS  = high  5 bits  of  NNADTEM 
If  bit  14  of  TS  = 1,  proceed  to  "DSPALARM" 

TS  = low  2 bits  of  (TS  shifted  right  10) 

If  TS  < 2,  proceed  to  "DSPALARM' 


BUFq  = - contents  of  cell  specified  by  (2  + NOUNADD) 


Proceed  to  "DSPC0M2" 


DATA  - 7 


DSPAB 


If  MDCBR  =1,  TS  = bits  12-11  of  NNTYPTEM  shifted  right  10 
If  fflXBR  = 2,  TS  = bits  12-11  of  NNADTM.  shifted  right  10 


If  TS  < 1,  proceed  to  "DSPALARM"  (noun  has  no  second  component) 
BUF^  = - contents  of  cell  specified  by  (l  + NOUNADD) 

Proceed  to  "DSPA" 

DSPABC  If  MECBR  = 1,  TS  = bits  12-11  of  NNTYPTEM  shifted  right  10 
. If  MIXBR  = 2,  TS  = bits  12-11  of  NNADTM  shifted  right  10 

If  TS  < 2,  proceed  to  "DSPALARM”  (noion  has  no  third  component) 
BUF2  = - contents  of  cell  specified  by  (2  + NOUNADD) 

Proceed  to  "DSPAB" 

DSPC0M2  i = 0 . 

If  VERBREG  = 4,  i = 1 
If  VERBREG  =5,  i = 2 
If  i = 2: 

DSPCOUNT  = K:R3D1  (4) 

Perform  "DSPOCTWD"  with  TSwd  = - BUF^ 
i = i - 1 
If  i = 1: 

DSPCOUNT  = K:R2D1  (9) 

Perform  "DSPOCTWD"  with  TSwd  = - BUF^ 

DSPCOUNT  = K:R1D1  (14) 

Perform  "DSPOCTWD"  with  TSwd  = - BUFq 
If  ENTRET  = "ENDOFJOB",  end  job 
Proceed  to  address  specified  by  ENTRET 


DATA  - 8 


DECDSP 


DSPDCPUT 


If  MIXER  = 1,  DECOUNT  = bits  12-11  of  NNTYPTEM 

(rescaled  from 

If  MIXER  = 2,  DECOUNT  = bits  12-11  of  NNADTEM  E4  to  E14) 

If  DECOUNT  = 2;  (three  components) 

ZREG  = - contents  of  cell  specified  by  (2  + NOUNADD) 

If  DECOUNT  ^1:  (two  or  three  components) 

YfffiG  = - contents  of  cell  specified  by  (l  + NOUNADD) 


XREG  = - contents  of  cell  specified  by  NOUNADD 


If  DECOUNT  =2; 

DSPCOUNT  = K;R3D1  (4) 

MPAC  = - ZREG 
sp 

If  MIXER  =1,  i = low  5 bits  of  NNTYPTEM 

If  MIXER  = 2,  i = high  5 bits  of  NNTYPTEM  shifted  right  10 


If  DECOUNT  = 1: 

DSPCOUNT  = K;R2D1 

MPAC  = - YREG 
sp 

If  MIXER  = 1,  i = low 
If  MIXER  = 2,  i = mid 
If  DECOUNT  = 0; 

DSPCOUNT  = K:R1D1 
MPAC  = - XREG 


(9) 


5 bits  of  NNTYPTEM 
5 bits  of  NNTYPTEM  shifted  right 


(14) 


sp 

If  MIXER  =1,  i = low  5 bits  of  NNTYPTEM 
If  MIXER  = 2,  i = low  5 bits  of  NNTYPTEM 
SFTEMPl  = K:SF0UTAE^ 

If  MIXER  = 2,  i = high  5,  mid  5 or  low  5 bits  of  RUTMXTEM 
shifted  right  10,  5 or  0 according  to  whether  DECOUNT 
= 2,  1 or  0 


DATA  - 9 


If  MIXBR  =1,  i = mid  5 bits  of  MTYPTEM  shifted  right  5 
(i  now  contains  the  index  determining  the  type  of  display) 
DECDSP3  If  i = 0:  (octal  only  noun) 

DSPCOUNT  = -19 
Proceed  to  "DSPALARM" 

If  i = 1,  proceed  to  "DSPDCEND" 

If  i = 2,  proceed  to  "DEGOUTSF" 

If  i = 3,  proceed  to  "ARTOUTSF" 

If  i = 4: 

Perform  "DPOUT" 

MPAC^p  - K;bl4tob0  MPAC^^ 

If  i = 5 or  10: 

Perform  "DPOUT" 

If  i = 6,  proceed  to  "LRPOSOUT" 

If  1 = 7: 

Perform  "DPOUT" 

MPAC,  = K:b7tob0  MPAC. 
dp  tp 

If  i = 8,  proceed  to  "HMSOUT" 

If  i = 9,  proceed  to  "M/SOUT" 

If  i = 11,  proceed  to  "AROUTISF" 

If  i = 12,  proceed  to  "2INT0UT" 

If  i = 13,  proceed  to  "360-CDU0" 

If  i = 14>  proceed  to  "RRANGOUT" 

If  i = 15,  proceed  to  "RRDOTOUT" 

Proceed  to  "DSPDCEND" 

ARTOUTSF  If  MPACq  » -O: 

MPAC^p  = -0,  skip  next  line 


DATA  - 10 


MPAC , = SFTEMPl  MPAG 

dp  sp 

Proceed  to  "DSPDCEND" 

DEGOUTSF  (Entered  with  SFTEMPl  = 0 and  MPAC^p  between  and  revs  B-l) 

MPAC  = MPAC  converted  to  one's  complement  form 
sp 

If  MPAC  <0: 

MPAC  = MPAC  + i 
SFTEMPl  = i 

MPAC^  = K: 0.180 (MPAC  + SFTEMPl) 
dp 

(exit  with  MPAC^p  between  0 and  360  degrees  scaled  E3) 

Proceed  to  "DSPDCEND" 

DPOUT  If  MIXER  =1,  TS  = NOUNADD 
If  MIXER  = 2: 

i = DECOUNT  + 1 


EBANK  = bits  11-9  of  IDADTEM. 

1 

TS  = 01400g  + bits  8-1  of  IDADTEM^ 

MPAC,  = contents  of  double  precision  register  whose  address  is 
^ specified  by  TS 

Force  sign  agreement  between  two  halves  of  MPAC^p 

MPAC^  = MPAC , SFTEMPl 
tp  dp 

Return 

LRPOSOUT  MPAC  = - bits  7-6  of  channel  33  shifted  right  5 
sp 

Proceed  to  "ARTOUTSF" 

HMSQUT  If  MIXER  = 2: 

i = DECOUNT  + 1 

EBANK  = bits  11-9  of  IDADTEM^ 

TS  = 01400^  + bits  8-1  of  IDADTEM. 

O 1 


DATA  - 11 


If  MIXBR  =1,  TS  = NOUNADD 

MPAC,  = contents  of  double  precision  register  whose  address 
^ is  specified  by  TS 


Force  sign  agreement  between  two  halves  of  MPAC 


dp 


TS.  = K;SEC0N1  MPAC^ 
tp  dp 

HITEMOUT  = most  significant  third  of  TS^^ 

LOTEMOUT  = second  most  significant  third  of  TS 

MPAC^p  = fractional  part  of 

MPAC,  = K:SEC0N2  MPAC^ 
dp  dp 

DSPCOUNT  = K:R3D1 
Perform  "DSPDECWD" 


tp 


Discard  fractional  part  of  LOTEMOUT  (shift  right  12  then  left  12) 

MPAC^  = KrMINCONl  (HITEMOUT  + LOTEMOUT  added  with  regard  for 
scaling)  (yields  hours  in  MPAC^  and  minutes/60  in 
MPAC^,  scaled  B14  and  BO  respectively) 

HITEMOUT  = most  significant  third  of  MPAC^^  (MPACq) 

If  MPACq  = -0: 

MPAC^p  = -0,  skip  next  line 


MPAC,  = K:MINC0N2  MPAC^ 
dp  1 

DSPCOUNT  = K:R2D1 


Perform  "DSPDECWD: 

If  HITEMOUT  = -0: 

MPAC^p  = -0,  skip  next  line 

MPAC,  = KiHRCONl  HITEMOUT 
dp 

DSPCOUNT  = K:R1D1 
Perform  "DSPDECWD" 

If  ENTRET  = "ENDOPJOB*;  end  job 
Proceed  to  address  specified  by  ENTRET 


DATA  - 12 


m/sout 


If  fflXBR  = 1,  TS  = NOUNADD 
If  MIXBR  = 2: 

i = DECOUNT  + 1 


MPAC 


EBANK  = bits  11-9  of  IDADTEM^ 

TS  = 01400g  + bits  8-1  of  IDADTEM^ 

= contents  of  double  precision  register  whose  address 
^ is  specified  by  TS 


Force  sign  agreement  between  two  halves  of  MPAC^p 

= K:MiSC0N3  sig 


If  Impac, 

' dp' 

:> 

|K:MdSC0Nl 

, MPAC 

If  |mpac,^1 

1 dpi 

< 

|K:MdSC0Nl 

, MPAC 

1 

TS^  = KrSECONl 
tp 

MPAC, 

dp 

"dp 


dp 


HITEMOUT  = most  significant  third  of  TS 


+ K:RNDCON  signMPAC^p 


tp 


tp 

LOTEMOUT  = second  most  significant  third  of  TS, 

MPAC , = fractional  part  of  TS, 

dp  ^ tp 

MPAC^  = KrHISECON  MPAC. 
dp  dp 

DSPCOUNT  = DSPCOUNT  - 3 (previously  set  in  "DSPDCPUT") 

Perform  "DSPDC2NR"  (display  seconds  in  RxD4  and  RxD5) 

CODE  = 0 


TS  = K:R1D1,  K;R2D1  or  K:R3D1  according  to  whether  DECOUNT  = 0,1  or  2 
COUNT  = TS  - 2 

Perform  "DSPIN"  (blank  middle  digit) 

Discard  fractional  part  of  LOTEMOUT  (shift  right  12  then  left  12) 

MPAC,j^  = K:MINC0N1  (HITEMOUT  + LOTEMOUT  added  with  regard  for  scaling) 
^ (yields  fraction  of  :hburs  in  MPAC^  scaled  BO) 

MPAC,^  = K:HIMINCON  MPAC, 
dp  1 

DSPCOUNT  = K:R3D1,  K:R2D1  or  K:R1D1  according  to  whether  DECOUNT 
equals  2,  1 or  0 


DATA  - 13 


2INT0UT 


360-CDUO 


DSPDCEND 


Perform  "DSPDC2NR"  (display  minutes  in  RxDl  and  RxD2) 

Proceed  to  second  step  of  "DSPDCEND"  (display  already  performed) 

Perform  "5BLANK" 

Perform  "-KDN" 

Perform  "DSPDECVN"  vrith  TS  = MPAC^p  (first  integer  to  RxDl  and  D2) 

TS  = K:R1D1,  K:R2D1  or  K:R3D1  according  to  whether  DECOUNT  =0,  1 or  2 

DSPCOUNT  = TS  - 3 

If  mXBR  = 1,  TS  = 1 + NOUNADD 

If  mXBR  = 2: 

i = DECOUNT  + 1 

EBANK  = bits  11-9  of  IDADTEM. 

1 

TS  = 01400-  + 1 + bits  8-1  of  IDADTEM. 

MPAC^  = contents  of  single  precision  register  whose  address 
is  specified  by  TS 

Perform  "DSPDECVN"  with  TS  = MPAC^  (second  to  RxD4  and  RxD5) 

Proceed  to  second  step  of  "DSPDCEND"  (display  already  performed) 

If  MPAC  0 or  -i: 
sp 

MPAC  = - MPAC  (two's  complement) 

sp  sp  ^ 

Proceed  to  "DEGOUTSF" 

Perform  "DSPDECWD" 

If  DECOUNT  >0: 

DECOUNT  = DECOUNT  - 1 
Proceed  to  "DSPDCPUT" 

If  FKTRTCT . = "ENDOFJOB",  end  job 

Proceed  to  address  specified  by  ENTRET 


DATA  - 14 


DSPDPDEC  If  MIXBR  = 2,  proceed  to  "DSPALARM" 


MPAC 


dp 


= contents  of  double  precision  register  -vdiose  address 
is  specified  by  NOUNADD 


DSPCOUNT  = K:R1D1 


Force  sign  agreement  in  MPAC^p 
Perform  "DSP2DEC" 

If  ENTRET  = ’’ENDOFJOB",  end  job 
Proceed  to  address  specified  by  ENTRET 


MONITOR  TSadr  = NOUNCADR  vrith  bits  15  and  14  switched  to  0 

If  ENTRET  = ”^D0FJ0B''  (externally  initiated) 

Switch  bit  14  of  TSadr  to  1 

MDNSAVE2  = OOOOOg  (set  in  "NVSUB"  if  internal) 
TSvn  = (bits  7-1  of  VERBRBG  shifted  left  7)  + NOUNREG 
DSPLOCK  = 0 


If  CADRSTOR  = 0,  perform  "RELDSPl' 


Inhibit  interrupts 


If  MONSAVE  =0,  call  "MONREQ"  in  0.01  second 
MDNSAVE  = TSvn 
MONSAVEl  = TSadr 


Release  interrupt  inhibit 
If  ENTRET  = "ENDOFJOB",  end  job 
Ih’oceed  to  address  specified  by  ENTRET 
MONREQ.  SAMPTIME  = TMENOW 

If  bit  15  of  MONSAVEl  = 1: 


MONSAVE  = O' 


DATA  - 15 


(If  bit  15  of  MONSAVEl  = 1:) 


MONSAVEl  = OOOOOg 
End  task 

Call  "MONREQ"  in  1 second 

Establish  "MONDO"  (pr30) 

End  task 

MONDO  If  bit  15  of  MONSAVEl  =1,  end  job 
If  DSPLOCK  >0: 

Switch  bit  5 Of  channel  11  to  1 (key  release  lamp) 

End  job 

NOUNREG  = bits  7-1  of  MONSAVE 
Perform  "UPDATNN" 

VERBRBG  = (bits  14-8  of  MDNSAVE  shifted  right  7)  - 10 
ENTRET  = "PASTEVB" 

MPAC2  = bits  13-1  of  MONSAVEl  (address) 

Proceed  to  "TESTNN"  (continues  at  "PASTEVB"  after  display 

verb  is  executed) 

PASTEVB  TS  = bits  14-8  of  M0NSAVE2 

If  TS  = 0,  TS  = bits  14-8  of  MONSAVE 
VERBREG  = TS  shifted  right  7 places 
Perform  "UPDATVB" 

REQRET  = 40 
TSblank  = M0NSAVE2 
Perform  "BLANKSUB" 

End  job 


DATA  - 16 


UPDATNN  Perform  "LODNNTAB" 


UPDATVB 


DSPMMJOB 


ALMCYCLE 


If  NNADTEM  > +0: 

NOUNCADR  = NNADTEM 
EBANK  = bits  11-9  of  NNADTEM 
NOUNADD  = OlAOOg  + bits  8-1  of  NNADTEM 
DSPCOUNT  = K:ND1 

Perform  "DSPDECVN"  vdth  TS  = NOUNREG 
Return 

DSPCOUNT  = K:VD1 

Perform  "DSPDECVN"  vd.th  TS  = VERBREG 
Return 

TSmmtemp  = DSPCOUNT 

DSPCOUNT  = K:MD1 

If  MODREG  = -0,  perform  "2BLANK" 

If  MODREG  > +0,  perform  "DSPDECVN"  with  TS  = MODREG 
DSPCOUNT  = TSmmtemp 
End  job 

Switch  bit  7 of  channel  11  to  1 (operator  error  lamp) 
REQRET  = - VERBSAVE  (to  make  it  positive) 

VERBREG  = - VERBSAVE 
Perform  "UPDATVB" 

CLPASS  = 0 
ENTRET  = "ENDOFJOB" 

Proceed  to  "ENTPASO" 


DATA  - 17 


ALOAD 


Perform  "REQDATX" 


(return  is  via  REQRET  after  data  entry) 


Perform  "LODNNTAB" 

Perform  "PUTCOM"  vdth  DECOUNT  = 0 

Store  TS  from  "PUTCOM"  in  address  specified  by  NOUNADD 
Proceed  to  "LOADLV" 

BLOAD  Perform  "GETCOMP" 

TS  = low  2 bits  of  (TS  shifted  right  10) 

If  TS  4.  1,  proceed  to  "DSPALARM"  (noun  has  no  2nd  component) 

CLPASS  = - Krposmaxsp 

Perform  "REQDATI"  (return  is  via  REQRET  after  data  entry) 

Perform  "LODNNTAB" 

Perform  "PUTCOM"  with  DECOUNT  = 1 

Store  TS  from  "PUTCOM"  in  address  specified  by  (1  + NOUNADD) 
Proceed  to  "LOADLV" 

CLOAD  Perform  "GETCOMP" 

TS  = low  2 bits  of  (TS  shifted  right  10) 

If  TS  < 2,  proceed  to  "DSPALARM"  (noion  has  no  3rd  component) 
CLPASS  = - Krposmaxsp 

Perform  "REQDATZ"  (retiirn  is  via  REQRET  after  data  entry) 

Perform  "LODNNTAB". 

Perform  "PUTCOM"  with  DECOUNT  = 2 

Store  TS  from  "PUTCOM"  in  address  specified  by  (2  + NOUNADD) 
Proceed  to  "LOADLV" 


DATA  - 18 


ABLOAD 


Perform  "GETCOMP" 


ABCLOAD 


TS  = low  2 bits  of  (TS  shifted  right  10) 

If  TS  < 1,  proceed  to  "DSP ALARM"  (no\in  has  no  2nd  component) 

Perform  "GETCOMP" 

If  bit  15  of  TS  = 1,  proceed  to  "DSP ALARM"  ("no-load"  noun) 

VERBRBG  = K:VB21 
Perform  "UPDATVB" 

Perform  "REQDATX"  (return  is  via  REQRET  after  data  entry) 

VERBREG  = K:VB22 
Perform  "UPDATVB" 

Perform  "REQDATI" 

Bits  5 and  4 of  DECBRNCH  now  indicate  whether  the  numbers  loaded 
were  decimal  (l)  or  octal  (0).  (See  routine  "BOTHSGN")  If  both 
are  not  the  same  (one  component  octal,  the  other  decimal): 

Proceed  to  "AlMCYCLE" 

Perform  "LODNOTAB" 

Perform  "PUTCOM"  with  DECOUNT  = 0 

Store  TS  from  "PUTCOM"  in  address  specified  by  NOUNADD 
Perform  "PUTCOM"  with  DECOUNT  = 1 

Store  TS  from  "PUTCOM"  in  address  specified  by  (l  + NOUNADD) 
Proceed  to  "LOADLV" 

Perform  "GETCOMP" 

TS  = low  2 bits  of  (TS  shifted  right  10) 

If  TS  < 2,  proceed  to  "DSPALARM"  (noun  has  no  3rd  component) 
Perform  "GETCOMP" 

If  bit  15  of  TS  = 1,  proceed  to  "DSPALARM"  ("no-load"  noun) 

VERBREG  = K;VB21 
Perform  "UPDATVB" 


DATA  - 19 


CHMBITS 


Perform  "REQDATX"  (return  is  via  REQRET  after  data  entry) 
VERBREG  = K:VB22 
Perform  "UPDATVB" 

Perform  "REQDATY" 

VERBREG  = K;VB23 
Perform  "UPDATVB" 

Perform  "REQDATZ" 

Bits  3,4  and  5 of  DECBMCH  now  indicate  whether  the  numbers 
loaded  were  decimal  (l)  or  octal  (o).  If  the  three  bits  are 
not  all  1 or  all  0 (some  components  octal  and  some  decimal): 

Proceed  to  "AmCYCLE" 

Perform  "LODNNTAB" 


Perform  "PUTCOM"  with  DECOUNT  = 0 

Store  TS  from  "PUTCOM"  in  address  specified  by  NOUNADD 
Perform  "PUTCOM"  with  DECOUNT  = 1 

Store  TS  from  "PUTCOM"  in  address  specified  by  (l  + NOUNADD) 
Perform  "PUTCOM"  with  DECOUNT  = 2 

Store  TS  from  "PUTCOM"  in  address  specified  by  (2  + NOUNADD) 
If  NOUNREG  7,  proceed  to  "LOADLV" 

Inhibit  interrupts 


TS  = XREG  - 30g 

If  TS<0,  proceed  to  "CHANBITS" 

EBANK  = bits  11-9  of  XREG 

NOUNADD  = 01400g  + (bits  8-1  of  XREG) 

Channel  1 = contents  of  location  specified  by  NOUNADD 

XREG  = 1 (channel  1 is  the  computer  L register) 

TS  = 1 

If  TS  + 21g  = 0,  proceed  to  "BITS0FF2"  (channel  7) 

If  ZREG  < 0: 


Set  those  bits  of  channel^j^^  = 0 that  are  1 in  YREG 


DATA  - 20 


Proceed  to  "BITSOFFl" 


Set  those  bits  of  channel^g^^  = 1 that  are  1 in  YREG 
BITSOFFl  If  XREG  — 1 or  XREG  ^ 0,  ^j^OUNADD  ~ Channel  1 (colnputer  L registei 
BITS0FF2  Release  interrupt  inhibit 
Proceed  to  "LOADLV” 

GETCOMP  If  MIXBR  = 1,  TS  = high  5 bits  of  NNTTPTEM 
If  MECBR  =2,  TS  = high  5 bits  of  NNADTEM 
Return 

PUT COM  DECRET  = return  address 

Set  overflow  indicator  to  0 

MPAC  = (XREG  + XRBGLP),  (YREG  + YREGLP)  or  (ZREG  + ZREGLP) 

^ according  to  whether  DECOUNT  =0,  1 or  2 

If  MIXBR  = 1,  proceed  to  "PUTNORM" 

i = DECOUNT  + 1 

NOUNCADR  = low  11  bits  of  IDADTEM. 

1 

EBANK  = bits  11-9  of  NOUNCADR 

NOUNADD  = (OlAOOg  + bits  8-1  of  NOUNCADR)  - DECOUNT 

If  DECBRNCH  > 0:  (decimal) 

Perform  "GETI"  with  TS  = NNTYPTEM 

SFTEMPl  = K:SFINTAB. 

1 

Perform  "GETI”  with  TS  = RUTMXTEM 
Proceed  to  "PUTDCSF2" 

Perform  "GETCOMP" 

If  bit  14  of  TS  = 1,  proceed  to  "ALMCYCLE"  (decimal  only) 
Perform  "GETI"  with  TS  = RUTMXTEM 


DATA  - 21 


If  i = 4,  5,  7 or  10: 


(double  precision  noun) 


Set  (the  more  significant  half  of  the  double  precision 
register  specified  by  NOUNADD  -l-  DECOUNT)  = 0 

NOUNADD  = NOUNADD  + 1 (specify  minor  part) 

Proceed  to  "PUTC0M2" 

GETI  i = high  5 bits  (DECOUNT  = 2),  mid  5 bits  (DECOUNT  = l)  or 
low  5 bits  (DECOUNT  = O)  of  TS  shifted  right  10,  5 or  0 
places  according  to  whether  DECOUNT  =2,  1 or  0. 

(i  is  of  the  form  000  000  000  Oxx  XXX2) 

Return 

PUTNORM  EBANK  = bits  11-9  of  NOUNCADR  (NOUNCADR  set  in  "TESTNN") 
NOUNADD  = 01400g  + bits  8-1  of  NOUNCADR 
If  DECBRNCH  > 0:  (decimal) 

i = low  5 bits  of  NNTIPTEM 
SFTEMPl  = K:SFINTAB^ 

i = mid  5 bits  of  NNTYPTEM  shifted  right  5 
Proceed  to  "PUTDCSF2" 

Perform  "GETCOMP" 

If  bit  14  of  TS  =1,  proceed  to  "AI21CYCLE"  (decimal  only) 

i = mid  5 bits  of  NNTYPTEM  shifted  right  5 

If  i = 4,  5,  7 or  10:  (double  precision  noun) 

Set  (the  more  significant  half  of  the  double  precision 
register  specified  by  NOUNADD)  = 0 

NOUNADD  = NOUNADD  + 1 

Proceed  to  '’PUTCOM2'' 


DATA  - 22 


If  NNADTEM  = -1; 


(channel  load) 


PUTDCSF2 


If  NOUNCADR  = 7,  proceed  to  "LOADLV" 

Set  channel  specified  by  NOUNCADR  equal  to  the  more 
significant  half  of  MPAC^p  (in  low  9 bits  of  NOUNCADR) 

Proceed  to  "LOADLV" 

Proceed  to  "PUTC0M2" 

If  i = 0,  proceed  to  "AIUCICLE"  (octal  only) 

If  i = 1,  proceed  to  "BINROUND" 

If  i = 2,  proceed  to  "DEG-INSF" 

If  i = 3 : 

MPAC,  = SFTEMPl  K:bOtobml4  MPAC, 
dp  dp 

If  overflow,  proceed  to  "ALMCYCLE" 

Proceed  to  "BINROUND" 

If  i = 4 or  7: 

MPAC,  = SFTEMPl  MPAC , 
tp  dp 

Proceed  to  "DPINSF+2" 

If  i = 5: 

MPAC^p  = SFTEMPl  K:b0tobm7  MPAC^^ 

Proceed  to  "DPINSF+2" 

If  i = 6,  proceed  to  "DSPALARM"  (LR  position  is  display  only) 

If  i = 8,  proceed  to  "HMSIN" 

If  i = 9,  proceed  to  "DSPALARM"  (min/sec  cannot  be  loaded) 

If  i = 10: 

MPAC.  = SFTEMPl  K:b0tobm3  MPAC, 

tp  dp 

Proceed  to  "DPINSF+2" 


DATA  - 23 


If  i = 11; 


BINROIM) 


DPINSF+2 


DBGINSF 


MPAC , = MPAC^  SFTEMPl 
dp  dp 

Proceed  to  "BINROUND" 

If  i = 12,  proceed  to  "DSP ALARM"  (2INT  cannot  be  loaded) 

If  1 = 13,  proceed  to  "DEGINSF"  (test  for  360-CDU  in  "DEGDfSF" ) 

If  i * 14  or  15,  proceed  to  "DSP ALARM"  (RR  data  cannot  be  loaded) 

MPAC  = MPAC , rounded  off 

sp  dp 

If  overflow,  proceed  to  "ALMCICLE" 

Proceed  to  "PUTC0M2" 

MPAC , = MPAC,  rounded  off 
dp  tp 

If  overflow,  proceed  to  "ALMCYCLE" 

If  MDCBR  = 1,  TS  = NOUNADD 

If  MDCBR  = 2,  TS  = NOUNADD  + DECOUNT 

Store  less  significant  half  of  MPAC^  in  less  significant 
half  of  double  precision  register  specified  by  TS 

MPAC^p  = more  significant  half  of  MPAC^p 

Proceed  to  "PUTC0M2" 

MPAC^  = KiDEGCONl  MPAC, 
dp  dp 

MPAC  = MPAC,  rounded  off  and  rescaled  to  B-1  (sl3) 

sp  dp 

If  iMPACgpt  > 1 (360'’),  proceed  to  "ALMCYCLE" 

MPAC  = MPACgp  converted  to  two ' s complement  form 
If  MPAC  > i (180"): 

MPAC  = - (1  - MPAC) 

If  MPAC  < -i; 

MPAC  = MPAC  + 1 

If  MKBR  = 1,  i = mid  5 bits  of  NNTYPTEM  shifted  right  5 


DATA  - 24 


HMSIN 


PUTC0M2 


If  MIXER  = 2,  perform  "GETI"  vdth  TS  = RUTMXTEM 


If  i 7^  2:  (360-CDU) 

If  MPAC  3^  0 or  MPAC  » -MPAC  (two's  conrolement) 
“P  ' sp  sp 

MPAC  = MPAC 
sp 

Proceed  to  "PUTCOM2" 

If  bits  3j  4 and  5 of  DECBRNCH  are  not  all  1: 

(three  decimal  components  have  not  been  loaded) 


VERBSAVE  = - K:VB25  (initiate  ABCLOAD) 

Proceed  to  "ALMCYCLE" 

TS  = K:HRCON  (lO^  MPAC^p  rounded  to  whole  hoiirs) 

I I 

If  |ts|  > 2 , proceed  to  "ALMCYCLE"  (745  ho\ir  max) 

HITEMIN  = TS 


TS  = 10^  (YRBG  + YREGLP)  rounded  to  whole  minutes 


If  TS 


> K:59MIN,  proceed  to  "ALMCYCLE" 


HITEMIN  = HITEMIN  + K:MINC0N  TS 


If  HITEMIN 


> 2 , proceed  to  "ADICYCLE" 


TS  = 10^  (ZREG-  + ZREGLP)  rounded  to  whole  centiseconds 
If  ItsI  > K:59.99SEC,  proceed  to  "ALMCYCLE" 


TS  = HITEMIN  + TS 

If  |ts|  > 2^®,^  proceed  to  "ALMCYCLE" 

MPAC^P  = TS  with  forced  sign  agreement  between  two  halves 
Store  MPAC^p  in  double  precision  register  specified  by  NOUNADD 
Proceed  to  "LOADLV" 


TS  = MPAC 

sp 

Return  via  DECRET 


DATA  - 25 


DSPFMEM  DSPCOUNT  = K;R1D1 


MMCHANG 


RRANGOUT 


If  NOUNCADR  ^ llx  xxx.  xxx  xxx  XXX2: 

TS  = contents  of  fixed  memory  cell  -whose  address  is  specified 
by  information  in  NOUNCADR  (Standard  fixed  memory  CADR 
format  contains  FRANK  information  in  bits  15-11  and 
S-register  information  in  bits  10-1 . ) 

If  NOUNCADR  = llx  xxx  xxx  xxx  XXX2: 

TS  = contents  of  fixed  memory  cell  -whose  address  is  specified 
by  information  in  NOUNCADR  and  in  DSPTEMI2.  (DSPTEMI2 
contains  FRANK  extension  or  "Superbank"  information  in 
bits  7-5  and  mus-t  be  loaded  prior  to  verb  2?  entry 
-with  a verb  23,  noim  26  for  access  to  fixed  memory  banks 
30g  through  43g.) 

Perform  "DSPOCTWD" 

End  Job 

Perform  "REQMM"  (return  is  via  REQRET  on  data  entry) 

If  DSPCOUNT  /=  -16,  proceed  to  "AlMCICLE" 

TS  = NOUNREG  (which  contains  desired  major  mode) 

NOUNRBG  = 0 

Perform  "2BLANK"  with  DSPCOUNT  = K:ND1 

DSPCOUNT  = -I9  (to  block  further  numerical  entries) 

MMNUMBER  = TS 
Proceed  to  "V37" 

MPAC,  = MPAC  (15  magnitude  bits)  converted  to  double  precision 

cip  SJ) 

If  RADMODES  bit  3 (RRESFLAG)  =0:  (low  scale) 

Skip  next  step 

MPAC^p  = 8 MPAC^p  (high  scale) 

MPAC^  * MPAC^  SFTEMPl 
tp  dp 

MPAC^p  = K:bl4tob0  MPAC^^ 

Proceed  to  "DSPDCEND" 


DATA  - 26 


RRDOTOUT  MPAC^p  f MPAC^p  (15  magnitude  bits)  converted  to  double  precision 

MPACj  = MPACj  - 17000  (subtract  bias  of  17000  coTints) 

dp  dp 

MPAC^  = MPAC,  SFTEMPl 
tp  dp 

MPAC^p  = K:bl4tob0  MPAG^p 

Proceed  to  "DSPDCEND*' 

"AROUTISF"  If  MPACq  = -0: 

MPAC , = -0 

dp 

Skip  next  line 

MPAC,  = K:bl4tob0  SFTEMPl  MPAC 
dp  sp 

Proceed  to  "DSPDCEND" 


DATA  - 27 


Quantities  in  Computations 


BUF^  (i  = 0,1,2):  Three  single  precision  octal  working  storage  cells. 

CADRSTOR:  See  DINT  section. 

CLPASS,  CODE,  COUNT:  See  DSKY  section. 

DECBRNCH:  See  DSKY  section. 

DECOUNT:  Single  precision  number  of  components  in  a noun  display, 
extracted  from  the  relevant  bits  of  NNTYPTEM  or  NNADTEM,  scaled 
B14  and  \initless.  (N\m±)er  of  components  = DECOUNT  + 1.) 

DECRET:  Single  precision  octal  return  address  storage. 

DSPCOUNT,  DSPLOCK:  See  DSKY  section. 

DSPTABj^  (i  = 0-10):  See  DSKY  section. 

DSPTMl,  DSPTEM2,  DSPTEMX:  Single,  double  or  triple  precision  display 
interface  registers  with  variable  scaling  and  units.  See  tables 
below. 


EBANK:  See  MATX  section. 


ENTRET:  Single  precision  octal  address  indicating  whether  the  data 

input/output  is  under  control  of  the  astronaut  or  of  internal  programs. 

FBANK:  See  MATX  section. 

FREEDSKY:  Variable  introduced  as  a substitiie  for  variable  return 
address;  set  to  1 or  0 to  indicate  whether  the  DSKY  is 
free  or  imavailable  for  use  by  internal  programs. 


HITEMIN:  Double  precision  working  storage  in  "HMSIN",  scaled  B28  in  units 
of  centiseconds. 

HITEMDUT:  Single  precision  working  storage  for  minutes  scaled  Bl6  or 
hours  scaled  B14. 


DATA  - 28 


IDADTEMj^  (i  = 1,2,3):  Three  single  precision  octal  words  containing 
the  address  and  EBANK  information  for  each  of  the  three  separate 
registers  that  can  be  displayed  or  loaded  by  a mixed  noun.  (Equal 
to  +0  if  the  component  of  the  mixed  noun  is  not  utilized.) 

K: 0.180:  Double  precision  constant  stored  as  05605-  03656^^  sealed  B1 
in  units  of  degrees  per  revolution;  program  notation  is^DEGTAB. 
Equation  value;  360/1000. 

K:59MIN:  Single  precision  constant  stored  as  00073g,  scaled  B14  in  units 
of  minutes.  Equation  value:  59- 

K:59.99SEC:  Single  precision  constant  stored  as  13557gi  scaled  B14  in 
units  of  centiseconds.  Equation  value:  5999- 

K:bOtobml4:  Constant  representing  the  effect  of  a left  shift  of  14, 
scaled  B-14  and  unitless.  Equation  value:  1. 

K:bOtobm3:  Constant  representing  the  effect  of  a left  shift  of  3^ 
scaled  B-3  and  unitless.  Equation  value:  1. 

K:b0tobm7:  Constant  representing  the  effect  of  a left  shift  of  , 
scaled  B-7  and  ixnitless.  Equation  value:  1. 

K:bl4tob0:  Constant  representing  the  effect  of  a left  shift  of  14, 
scaled  B-14  and  unitless.  Equation  value:  1. 

K:b7tob0:  Constant  representing  the  effect  of  a left  shift  of  7, 
scaled  B-7  and  unitless.  Equation  value:  1. 

K:DBGC0N1:  Double  precision  constant  stored  as  5-555555555  x.  2 , 

scaled  B2  in  units  of  revolutions  per  degree.  Equation  value: 

1000  / 360. 

K:HIMINCON:  Single  precision  constant  stored  as  23346g,  scaled  BO  in 
units  of  minutes  per  hour.  Equation  value:  60.8  /°100  (for  round 
off). 

K:HISEC0N:  Single  precision  constant  stored  as  23147-,  scaled  BO  in 
units  of  seconds  per  minute.  Equation  value:  60  / 100. 

K:HRC0N:  Double  precision  constant  stored  as  00025g  37100-,  scaled  B28 
in  units  of  centiseconds  per  hour.  Equation  value:  360,000. 

K:HRC0N1:  Double  precision  constant  stored  as  O.I6384,  scaled  B-14 
and  unitless.  Equation  value:  0.00001. 


DATA  - 29 


KzIDADTAB.  (i  * 0-179):  Table  of  single  precision  addresses  for  mixed 
nouns,  loaded  into  IDADTEM.  - _ according  to  the  value  of'NNADTEM 
Program  name;  IDADDTAB.  * * 

K:MD1:  Single  precision  constant  to  cause  a nimerical  display  to  be 
started  in  the  first  digit  of  the  major  mode  (program)  register, 
scaled  B14  and  unitless.  Equation  value:  21. 

K;MdSC0Nl:  Double  precision  constant  stored  as  77753rt  41126g,  scaled 
B28  in  units  of  centiseconds.  Equation  value:  -359,850  (Equivalent 
to  -59:58.5  = -25g  36652g  because  of  CCS.) 

K:MdSC0N3:  Double  precision  constant  stored  as  00025g  370l6g,  scaled 
B28  in  units  of  centiseconds.  Equation  value:  359,950.  (Equivalent 
to  59:59.5.') 

K'.MINCON:  Single  precision  constant  stored  as  13560g,  scaled  B14  in 
vuiits  of  centiseconds  per  minute.  Equation  value:  6000. 

K:MINC0N1;  Double  precision  constant  stored  as  02104g  10422g,  scaled 
B-2  in  units  of  hours  per  minute.  Equation  value:  l/60. 

K:MINC0N2:  Double  precision  constant  stored  as  00011-  32445g,  scaled  BO 
in  units  of  minutes  per  hour.  Equation  value:  60/100000. 

K;ND1:  See  DSKY  section. 

K:NNADTA^  (i  = 0-99):  Table  of  single  precision  constants  to  be  loaded 
into  NNADTEM  according  to  the  value  of  NOUNREG.  See  tables  1 and  2 
below. 

K:NNTYPTAB^  (i  = 0-99):  Table  of  single  precision  constants  to  be  loaded 
into  NNTYPTEM  according  to  the  value  of  NOUNREG.  See  tables  1 and  2 
below. 

K:posmaxsp:  See  "Major  Variables"  section. 

K:R1D1,  K:R2D1,  K:R3D1:  See  DSKY  section. 

K:RNDC0N:  Double  precision  constant  stored  as  OOOOOg  00062g,  scaled  B28 
in  \inits  of  centiseconds.  Equation  value:  50. 

KrRUTMXTA^  (l  = 40-99):  Table  of  single  precision  constants  to  be  loaded 
into  RUTMIT^  accprding  to  the  value  of  NOUNREG.  See  table  2 below. 

K:SEC0N1:  Double  precision  constant  stored  as  1.666666666  E-4  x 
scaled  B-12  in  units  of  minutes  per  centisecond.  Equation  value: 
1/6000. 


DATA  - 30 


K:SEC0N2:  Double  precision  constant  stored  as  01727g  01217rt,  scaled 
B-14  in  units  of  seconds  per  minute.  Equation  value:  60/1000. 

KtSFINTAB.  (i  = 0-28):  Table  of  double  precision  constants  with  variable 
scaling  and  units,  used  to  convert  from  units  used  on  a DSKY  display 
into  units  used  in  the  LGC.  See  table  3 below. 

K:SF0UTAB^  (i  * 0-28):  Table  of  double  precision  constants  with  variable 
scaling  and  units,  used  to  convert  from  units  used  in  the  LOG  to  tmlts 
used  on  a DSKY  display.  See  table  3 below. 

K:VB21,  K:VB22,  K:VB23,  K:VB25;  Single  precision  constants  stored  as 

21,.  22,  23,  and  25  times  two  to  the  minus  fourteenth  power,  scaled  B14 
and  unitless.  Equation  values  respectively:  21,  22,  23,  25. 

K:VD1:  See  DSKY  section. 

LOADSTAT:  See  DINT  section. 

LOTEMOUT’:'  Single  precision  Working'  storage  for  klnutes,  scailed  B2. 

MIXER:  Single  precision  index  indicating  whether  the  noun  being  processed 
is  a "mixed"  noun  (addresses  non-consecutlve  E-memory  cells)  or  a 
"normal"  noun  (addresses  one  or  more  consecutive  E-memory  cells); 
scaled  B14  and  unitless. 

MIXTEMP^  (i  = 0,1,2):  Three  consecutive  single  precision  E-memory 
cells  loaded  with  the  values  of  the  three  non-consecutive  registers 
addressed  by  a nixed  noun  so  that  the  same  display  logic  can  be  used 
for  both  normal  and  mixed  after  the  MIXTEMP.  are  loaded  sind  NOUNADD 
is  set  equal  to  the  address  of  MIXTEMPq. 

MMNUMBER;  See  PGSR  section. 

MODREG:  Single  precision  register  reflecting  the  status  of  the  "major 
mode"  or  "program"  number  on  the  DSKY,  scaled  B14  and  unitless. 

MONSAVE:  Single  precision  storage  for  monitor  verb  and  no\jn  (verb  number 
in  bits  14-8,  noun  in  bits  7-1 )• 

MONSAVEl:  Single  precision  octal  storage  for  the  address  of  the  noiin  to 
be  displayed  by  the  monitor  routines.  Bits  15  and  14  are  used  as 
flag  bits.  Bit  15  is  set  to  terminate  the  monitor,  and  bit  14  is  set 
to  indicate  that  the  monitor  was  initiated  by  the  astronaut  and  thus 
takes  priority  over  displays  requested  by  the  program. 

M0NSAVE2:  Single  precision  storage  for  an  octal  blanking  code  and/or 
a verb  to  be  "pasted"  over  the  display  verb  during  a monitor. 


DATA  - 31 


MPAC,  MPAC^  , MPAC^pi  Single,  double  and  triple  precision  working 
storage  cells;  MPAC^p  = MPACq,  MPAC^p  = MPACq  MPAC^p  = MPAC^  ^ 

MPAC2!  Single  precision  storage  for  an  octal  address  when  an  "address- 
to-be  -specif  led  noun"  is  used  by  LGG  programs.  Instead  of  requesting 
the  address  from  the  astronaut,  the  program  finds  it  in  MPAC_.  (see 
"TESTNN"). 

NNADTEM:  Single  precision  octal  word  containing  the  following  information. 

If  the  noun  is  a normal  noun,  NNADTEM  contains  the  normal  noun  address 
and  EBANK.  If  the  noun  is  a mixed  noun,  NNADTEM  contains  the  "no-load" 
and  "decimal  only"  Indicators  (bits  15  and  14) » the  indication  of  the 
number  of  components  in  the  noun  (bits  12-11),  and  the  index  used  to 
load  IDADTEM^  (see  "LODNNTAB"). 

NNTYPTEM;  Single  precision  octal  word  containing  the  following  Inforniation, 
If  the  noun  is  a normal  noxan,  NNTYPTEM  contains  the  "no-load"  and 
"decimal  only"  indicators  (bits  15  and  I4),  the  indication  of  the 
number  of  components  in  the  noun  (bits  12-11),  the  specification  of  the 
routine  to  be  used  for  input/output  (bits  10-6) , and  the  index  used 
in  selecting  the  scale  factor  to  be  useid  in  input/output  scaling  (bits 
5-1) . If  the  noun  is  a mixed  noun,  NNTYPTEM  contains  the  index  used 
in  selecting  the  scale  factor  for  each  of  the  three  components.  Bits 
15-11  contain  the  index  for  the  third  component,  bits  10-6  contain  the 
index  for  the  second  component,  and  bits  5-1  contain  the  index  for 
the  first  component. 

NOUNADD:  Single  precision  octal  address  of  register  or  registers  to  be 
displayed  or  loaded  by  the  noun  being  processed. 

NOUNCADR:  Single  precision  octal  address  of  the  most  recent  register 
displayed  by  a normal  noun  or  loaded. 

NOUNREG;  Single  precision  storage  for  the  value  of  the  number  currently 
displayed  in  the  noun  register  on  the  DSKY,  scaled  BI4  and  unitless. 

NOUNTEM;  Single  precision  temporary  storage  for  the  address  of  one  of 
the  components  of  a mixed  noun. 

NOUT:  See  INTR  section. 

NVQTEM:  Double  precision  octal  return  address  storage.  Program  notation  for 
least  significant  half  is  NVBNKTEM. 

NVTEMP;  Single  precision  storage  for  verb-noun  combination,  the  noun 
number  stored  in  bits  7-1  and  the  verb  n\imber  stored  in  bits  14-8} 
used  instead  to  indicate  a desired  blanking  option  if  bit  15  is  set 
(if  NVTEMP  is  negative). 
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OPTIONl,  0PTI0N2,  OPTION3:  Three  single  precision  option  codes  for 
display  to  the  astronaut  via  noun  6.  The  first  indicates  the-  sub- 
ject of  the  decision  to  be  made,  the  second  indicates  the  choice  made, 
which  he  may  accept  or  change,  the  third  indicates  flagbit  settings. 

RADMODES:  See  RADR  section. 

REQRET;  See  DSKY  section. 

RUTMXTEM;  Single  precision  octal  word  loaded  only  for  mixed  no\ins. 

Bits  15-11  specify  the  routine  to  be  used  in  input/output  of  the 
third  component  of  the  mixed  nounj  bits  10-6  specify  the  routine 
for  the  second  component;  bits  5-1  specify  the  routine  for  the 
first  component. 

SAMPTIME;  See  DSKY  section. 

SFTEMPl;  Double,  precision  storage  for  the  conversion/scale  factor  in 
decimal  input/output  routines. 

TIMENOW:  See  EXVB  section. 

VERBREG:  Single  precision  storage  for  the  value  of  the  niomber  currently 
displayed  in  the  verb  register  on  the  DSKY,  scaled  B14  and  unitless. 

VERBSAVE;  Single  precision  storage  for  the  value  of  VERBREG  (complemented 
at  the  beginning  of  verb  processingj  see  "ALMCYCLE" ) . 

VGDISP:  See  DELVSAB  in  BURN  section, 

XREG,  XREGLP;  Two  halves  (most  and  least  significant)  of  the  five  digit 

number  currently  input  into  the  first  da-ta  register  on  the  DSKY  (Rl) , 

scEiled  BO  assuming  that  the  decimal  point  is  on  the  left  of  the  dis- 
play register. 

YREG,  YREGLP;  The  equivalent  of  XREG  and  XREGLP  for  R2  instead  of  Rl. 

ZREG,  ZREGLP;  The  equivalent  of  XREG  and  XREGLP  for  R3  instead  of  Rl. 
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Table  1 


Normal  Nouns 


Noun 

K:NNADTAB 

KiNNTYPTAB 

(addresses  su'e 

bits 

bits 

bits 

bits 

normally  positive) 

15-13  12-11  10-6 

5-1 

0 

+0 

0 0 0 

0 

0 

0 

1 

-Krposmaxsp 

0 0 0 

2 

1 

0 

2 

-K;posmaxsp 

0 0 0 

2 

3 

0 

3 

-K;posmaxsp 

0 0 0 

2 

2 

2 

4 

DSPTEMl 

0 0 0 

0 

10 

4 

5 

DSPTEMl 

0 0 0 

0 

10 

4 

6 

OPTION1,OPTION2,OPTION30  0 0 

2 

0 

0 

7 

XREG,  YREG,  ZREG 

0 0 0 

2 

0 

0 

8 

ALMCADR,  , ERCOUNT 
dp* 

0 0 0 

2 

0 

0 

9 

^^^0,1,2 

0 0 0 

2 

0 

0 

10 

-1 

0 0 0 

0 

0 

0 

11 

TCSI 

0 10 

2 

8 

0 

12 

OPTIONX 

0 0 0 

1 

0 

0 

13 

TCDH 

0 10 

2 

8 

0 

14 

DSPTEMXo^.1^2 

0 0 0 

2 

3 

0 

15 

-0 

0 0 0 

0 

0 

0 

16 

DSPTEMX, 

0 10 

2 

8 

0 

17 

+0 

0 0 0 

0 

0 

0 

18 

FDAI 

0 0 0 

2 

2 

2 

19 

+0 

0 0 0 

0 

0 

0 

20 

CDU 

0 0 0 

2 

2 

2 

21 

PIPA 

0 0 0 

2 

3 

0 

22 

THETAD 

0 0 0 

2 

2 

2 

23 

+0 

0 0 0 

0 

0 

0 

24 

DSPTEMX^ 

dp 

0 10 

2 

8 

0 

25 

^P™^0,1,2 

0 0 0 

2 

3 

0 

26 

DSPTEMLo^1^2 

0 0 0 

2 

0 

0 

27 

SMODE 

0 0 0 

0 

3 

0 

28 

+0 

0 0 0 

0 

0 

0 

29 

+0 

0 0 0 

0 

0 

0 

30 

+0 

0 0 0 

0 

0 

0 

31 

+0 

0 0 0 

0 

0 

0 

32 

mTPER 

0 10 

2 

8 

0 

33 

TIG 

0 10 

2 

8 

0 

34 

DSPTEMl, 

dp 

0 10 

2 

8 

0 

35 

TTOGO 

0 10 

2 

8 

0 

36 

TIMENOW 

0 10 

2 

8 

0 

37 

TTPI 

0 10 

2 

8 

0 

38 

TET 

0 10 

2 

8 

0 

39 

+0 

0 0 0 

0 

0 

0 
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Table  2 


Mixed  Nouns 

Noun  K:NNAr)TA.B  KrIMDTAB  K:NNTYPTAB  K;RUTMXTAB 

(bits  15,i4,13  K:IDA.DTA.Bf  (binary)  (binary) 

12-11,  10-1)  K:iriA.DTA.B^+i 

1+2 

1 

UO  1 1 0 2 0 TTOGO  01010  01010  00000  ^ 00111  00111  01001 

VGDISP 

DVT0TA.L 

41  0001  3 DSPTEMIq  00000  01011  00010  00000  00011  00010 

DSPTEM1]_ 

+0 

42  01026  HAPO  01010  01000  01000  00111  00111  00111 

HPER 

VGDISP 

43  01029  lAT  • 01000  00100  00100  00111  01010  01010 

LONG 

ALT 

44  1102  12  HAPOX  00000  01000  01000  01001  00111  00111 

HPERX 

TFF 

45  1 1 0 2 15  TRKMKCNT  00100  00000  00000  01010  01001  00011 

TTOGO 

pMGA 

46  0 0 0 0 l8  DAPDATRl  00000  00000  00000  00000  00000  00000 

+0 

+0 

4?  0 1 0 1 21  LEMMASS  00000  00110  00110  00000  01011  01011 

CSMMASS 

+0 

48  0 1 0 1 24  PITTIME  00000  10111  10111  00000  00011  00011 

ROLLTIME 

+0 

49  0102  27  R22DISP  00000  01010  01000  00011  00111  00111 

R22DISP+2 

WHCHREAD 

50  00000  +0  00000  00000  00000  00000  00000  00000 

+0 

+0 

51  0101  33  ALFHASB  00000  00100  00100  00000  01010  01010 

BETASB 

+0 

52  0 0 0 0 36  ACTCENT  00000  00000  00100  00000  00000  01010 

+0 

+0 

53  00000  +0  00000  00000  00000  00000  00000  00000 

+0 

+0 
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Table  2 continued 


Roun  K:roiA.DTA.B 


K:iriA.DTAB 


K:RNTYPTAB 


K:RUTMXTAB 


5U 

55 

56 

57 

58 

59 

I ; 60 
61 


62 


63 

64 

65 

66 

67 

68 

69 


0102  42 

0102  45 

0001  48 

0 0 0 0 0 

0102  54 

0102  57 

0 10  2 60 
110  2 63 

1 1 0 2 66 
0 10  2 69 
110  2 72 

0102  75 
110  1 78 
0 0 0 2 81 
1102  84 

0102  87 


RANGE 

RRATE 

RTHETA 

00100 

01010 

00111 

m 

ELEV 

CENTANG 

00100 

00100 

00000 

RR-AZ 

RR-ELEV 

+0 

00000 

00100 

00100 

+0 

+0 

+0 

00000 

00000 

00000 

POSTTPI 

DELVTPI 

DELVTPF 

01010 

01010 

01000 

DVLOSx 

DVLOS 

DVLOS2 

01010 

01010 

01010 

FORVEL 

HDOTDISP 

HCALCl 

11000 

01010 

10001 

TTFDISP 

TTOGO 

OUTOFPLN 

10110 

00000 

00000 

ABVEL 

TTOGO 

DVTOTAL 

01010 

00000 

01010 

ABVEL 

HDDTDISP 

HCALCl 

11000 

01010 

01010 

FUNRYDSP 

HDOTDISP 

HGALC 

11000 

01010 

00000 

SAMPTIME 

SAMPTIME 

SAMPTIME 

00000 

00000 

00000 

RSTACKg 
+ 0 
+0 

00000 

00000 

OHIO 

RSTACKq 

RSTACK2 

RSTACK4 

10101 

10100 

10011 

RARGEDSP 

TTFDISP 

DELTAH 

11000 

00000 

10110 

DLANDZ 

DLANDI 

DLANDX 

11000 

11000 

11000 

01010  00111  00100 

01010  01010  00011 

00000  01010  01010 

00000  00000  00000 

00111  00111  00111 

00111  00111  00111 

00100  00111  00011 

01010  01001  01001 

00111  01001  00111 

00100  00111  00111 

00100  00111  01100 

01000  01000  01000 

00000  00110  00100 

00100  00100  00100 

00100  01001  01010 

00100  00100  00100 
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Table  2 continued 


Noun  K:mA.DTAB  KrimCTAB  K:MTYPTA.B 


KrRUTMXTAB 


70  0002 

71  0002 

72  0001 

73  0001 

74  1102 

75  1102 
76  0102 
77  1101 

78  1102 

79  0102 

80  0001 

81  0 10  2 

82  0102 

83  0 1 0 2 

84  0102 


90 

AOTCODE 

AOTCODEi 

AOTCODE2 

93 

AOTCODE 

AOTCODEi 

AOTCODE2 

96 

ODUt 

crug 

+0 

99 

TANGq 

TANGi 

+0 

102 

TTOGO 

YAW 

PITCH 

105 

DIFFALT 

T1T0T2 

T2TOT3 

108 

ZDOTD 

RDOTD 

XRANGE 

111 

TTOGO 

YDOT 

+0 

114 

DNRRANOS 

DNRRDOT 

TTOTIG 

117 

CURSOR 
SPIRAL 
POSCO DE 

120 

DATAGOOD 

OMEGDISP 

+0 

123 

DELVLVCx 

DELVLVCy 

DELVLVCz 

126 

DELVLVCx 

DELVLVCy 

DELVLVCz 

129 

DELVIMUx 

DELVIMUy 

DELVIMJz 

132 

DELVOVx 

DELVOVy 

DELVOVz 

00000  00000  00000 

00000  00000  00000 

00000  00010  00010 

00000  00010  00010 

00100  00100  00000 

00000  00000  01000 

01000  01010  01010 

00000  01010  00000 

00000  01101  01100 

00000  00010  00010 

00000  00100  00000 

01010  01010  01010 

01010  01010  01010 

01010  01010  01010 

01010  01010  01010 


00000  00000  00000 

00000  00000  00000 

00000  00010  01101 

00000  00010  01101 

01010  01010  01001 

01001  01001  00111 

00111  00111  00111 

00000  00111  01001 

01001  01111  OHIO 

00011  00010  00010 

00000  01010  00011 

00111  00111  00111 

00111  00111  00111 

00111  00111  00111 

00111  00111  00111 
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Table  2 continued 


Noun  K:NNA.DTAB  KrlMDTAB  KiNNTYPTAB 


85  0102 

86  0102 

87  0001 

88  0 1 0 2 

89  0102 

90  0 10  2 

91  0 0 0 2 

92  0 0 0 2 

93  0 0 0 2 

94  0000 

95  0 0 0 0 

96  0 0 0 0 

97  0 0 0 2 

98  0 0 0 2 

99  0102 


135 

VGBODYx 

VGBODYy 

VGBODYz 

138 

DELVLVCx 

DELVLVCy 

DELVLVCz 

l4i 

AZ 

fCT. 

+0 

l44 

STARADqx 

STAPADOy 

STAEADoz 

i47 

lANDIAT 

lANDLONG 

lANDALT 

150 

RANGE 

RRATE 

RTHETA 

153 

F21ALT 

P21VEL 

P21GAM 

156 

THRDISP 

HDOTDISP 

HCALCl 

159 

OGC 

IGC 

MJC 

0 

+0 

+0 

+0 

0 

+0 

+0 

+0 

0 

+0 

+0 

+0 

171 

DSPTEMl 

DSPTEMli 

DSPTEMI2 

174 

DSPTEM2 

DSPTEM21 

DSPTEM22 


177 

WWPOS 

WWEL 

WBIAS 

01010  01010  01010 

01010  01010  01010 

00000  00010  00010 

00000  00000  00000 

00111  00011  00011 

00100  01010  00111 

00100  01001  01000 

11000  01010  00000 

00011  00011  00011 

00000  00000  00000 

00000  00000  00000 

00000  00000  00000 

00000  00000  00000 

00000  00000  00000 

11100  11011  11010 


KiRUTMXTAB 
00111  00111  00111 

00111  00111  00111 

00000  00010  00010 

00001  00001  00001 

00100  00111  00111 

01010  00111  00100 

01010  01010  00111 

00100  00111  00011 

00111  00111  00111 

00000  00000  00000 

00000  00000  00000 

00000  00000  00000 

00011  00011  00011 

00011  00001  00011 

01010  00101  00111 
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Table  3 


Input/Output  Scaling 

Each  description  in  the  table  is  arranged  in  the  following  order: 

Equation  value 
Scale  factor  and  units 
Stored  value 
(conment) 


Index 


1 

2 


K:SFINTA.Bi 

105 

B28,  unities  s. 

000063  032408 


K:SFOUTA.Bi 

10-5 

B-14,  unitless 

051748  I326I8 


(used  with  nouns  2,14,21,25,27545,49,55,79,80,92,97,98) 

+0  +0  (not  used) 

0 ■ +0 
B-1,  revolutions 
0 

(used  with  nouns  3, 18,20,22, 41,72,73, 79, 87) 


when  used  with  noun  89 

(100  / 360)  +2"^® 

BO,  revolutions  per  degree 

107078  034358 

when  used  with  noun  93 

(100  / 360)  2"^^  +2"7 

B-21,  gyro  torque  pulses/deg  B28  degrees  per  gyro  pulse 


360  / 100 

By,  degrees  per  revolution 

007148  314638 


2^^  360  / 100 


107078  034358 

(1000  / 360)  +2 "25 

B3,  revolutions  per  degree 

130703  343453 


007i4q  314638 
360  / 1000 

BO,  degrees  per  revolution 

134128  075343 


(used  with  nouns  4,5,43,45,51,52,54,55,56,74,80,90,91) 


1000  / 360 

BI35  revolutions  per  degree 
000058  216163 


360  / 1000 

Bl,  degrees  per  revolution 

056053  036563 


(not  used) 
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Index  KrSFimiABi 

6 105  X 0.45359237 

B16,  kilograms  per  pound 

261133  317133 

(used  with  noun  47) 

7 1852  X 10^ 

B295  meters  per  nmi 
00070g  2046O3 

(used  with  nouns  54,89,90) 

8 1852  X 10^ 

B29,  meters  per  nmi 

010653  O574O3 

(used  with  nouns  42,  43,  44, 

9 (0.3048  / 100)  X 105 

BIO,  meter s/cs  per  fps 

Il4l4g  314633 

(used  with  noun  91 ) 

10  (0.3048  / 100)  X 10^ 

B7,  meter s/cs  per  fps 

074753  160513 

(used  with  nouns  40,42,49,54, 

11  102  / 360 

B12,  revolutions  per  degree 
OOOOI3  034343 

(used  with  noun  4l) 

12  1852  10^/  2.859026 

B28,  RR  range  counts  per  nmi 

000473  211353 

(used  with  noun  78) 

13  -1.59286  X 105 

B28,  RR  rate  counts  per  fps 

777663  507II3 

(used  with  noun  78) 


KiSFOUTABj 

2.2046268  / 10^ 

B-2,  pounds  per  kilogram 
OOOOI3  I617O3 


5.3996  X 10“^  / lo3 

B-15,  nmi  per  meter 
OO44I3  343063 


5.3996  X 10"^  / 10^ 

B-22,  nmi  per  meter 

071763  216033 

58,  75,  76,  91) 

(100  / 0.3048)  X lo5 
BO  , fps  per  meter/cs 
I534O3  15340g  (equal  halves) 


(100  / 0.3048)  10"^  + 2"^^ 

BO,  fps  per  meter/cs 
OIO3I3  210323 

>,59,60,62,63,64,76,77,81-86,90,92) 
360  / 102 

B2,  degrees  per  revolution 

346313  231463 


2.859024  / 103  I852 

B-14  nmi  per  RR  range  count 

006363  145523 


-0.6278  / 105 

B-14,  fps  per  RR  rate  count 

745523  703073 
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Index 

KiSFIIWABn 

KrSFOUTAB,- 

l4 

105  / 1.0790 

1.0790  / 10^ 

B28j  LR  alt  counts  per  foot 
0.9267840599  E5  X 2 "2° 

(used  with  noun  66) 

B-14,  feet  per  LR 
1.079  E-5  X 2l^ 

alt  count 

15 

105  / 2.345 

B28j  bits  per  foot 

000023  232240 

(not  used) 

2.345  / 105 

B-14,  feet  per  bit 

142263  317578 

l6 

105  / 0.5 

B28,  bits  per  fps 

000140  065003 

(not  used) 

0.5  / 105 

B-14,  fps  per  bit 
024763  O553I3 

17 

0.18125  X E5 

B28,  bits  per  fps 

0.18125  E5  X 2"^® 

(used  with  noun  60) 

5.517/10^ 

B-14,  fps  per  bit 

5.517  E-5  2^^ 

18 

10^  / 360 

360  / 10^ 

Bll.,  rev  per  deg/sec 

042563  O707I3 

(not  used) 

B-35  deg/sec  per  rev 

000073  137343 

19 

-1.55279503  X 10^ 

-0.6440  / 10^ 

B28,  IiRVX  counts  per_fps 
-1.55279503  E5  X 2"^° 

(used  with  noun  67) 

B-14,  fps  per  LRVX 
-0.6440  E-5  X 2^^ 

count 

20 

0,8250825087  X 105 

1.212  / 105 

B28,  LRVY  counts  per  fps 

0.8250825087  E5  X 2“2° 

(used  with  noun  67) 

B-14j  fps  per 

1.212  E-5  X 2^^ 

count 

21 

1.153668673  X lo5 

0.8668  / 10^ 

B28,  ERVZ  counts  per  fps 

1.153668673  E5  X 2~^° 

(used  with  noun  67) 

B-14,  fps  per 
0.8668  E-5  X 2^ 

count 
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Index 

K:SFINTABn- 

K:SF0UTABi 

22 

1852  X 10^ 

5.399568  X 10"^  / 10^ 

B27j  meters  per  nmi 

B-24,  nmi  per  meter 

043240  2760O3 

(used  with  nouns  6l,68) 

347723  070163 

23 

lo3  / 0.002 

0.002  / 103 

B28,  centiseconds  per  deg 

B-14,  deg  per  centisecond 

000363  204400 

(used  with  noun  48) 

01030g  33675 g 

24 

0.3048  X 105 

3.2808399  / 105 

B24,  meters  per  foot 

B-10,  feet  per  meter 

010463  I57OO3 

000353  304003 

(used  with  nouns  60,63564,68 

,69,92) 

25 

10^ 

10“^ 

B14,  unitless 

B-7,  unitless 

2342O3  OOOOO3 

(not  used) 

OO32I3  267063 

26 

30480 

17.2010499 

BI9,  meters  per  foot 

B7,  feet  per  meter 

3 0480  X 2"^*^ 

(used  with  noun  99) 

17.2010499  X 2"^ 

27 

0.003048  X 10^ 

328.08399  / 10^ 

B7j  meters/cs  per  fps 

BO,  fps  per  meter 

30.48  X 2-1 

(used  with  noun  99) 

0.032808399 

28 

100 

2^  X 10"^ 

B8,  unities s 

BO,  unities 3 

100  X 2“® 

(used  with  noun  99) 

0.32 
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Display  Quantities 


ABVEL;  See  SERV  section. 

ACTCENT:  See  TRGL  section. 

AU4CADR:  See  PGSR  section. 

ALPHASB:  Same  as  FITCHANG,  see  EXVB  section. 
ALT;  See  COOR  section. 

AOTCODE:  See  ALIN  section. 

AZ:  See  ALIN  section. 

BETASB:  Same  as  YAWANG,  see  EXVB  section. 

CDU;  See  IMDC  section. 

CDU  : See  RADR  section, 
s 

CDU^;  See  RADR  section. 

CENTANG;  See  TRGL  section. 

CSMMASS:  See  DAPB  section. 

CURSOR:  See  ALIN  section. 

DAPDATRl:  See  DAPB  section. 

DATAGOOD:  See  RNAV  section. 

DELTAH:  See  SERV  section. 

DELVIMU  : See  BURN  section. 
x,y,z 

DELVLVC  : See  TRGX  section. 
x,y,z 

DELVOV  : See  ORBI  section. 
x,y,z 

DELVTPF;  See  TRGL  section. 

DELVTPI;  See  TRGL  section. 

DIFFALT:  See  TRGX  section. 

DLAI^X,DLANDY,DLANDZ:  See  DESC  section. 

DNRRANGE:  See  RADR  section. 

DNRRDOT;  See  RADR  section. 

DSPTEMX:  See  DATA  section. 

DSPTEMl:  See  DATA  section. 

DSPTEM2:  See  DATA  section. 

DVLOS  : See  TRGL  section. 
x,y,z 

DVTOTAL:  See  SERV  section. 

EL;  See  ALIN  section. 

ELEV;  See  TRGL  section. 

ERCOUNT:  See  TEST  section. 


_ /■a 


DATA 


FAILREG:  See  PGSR  section. 
IPAI:  See  ATTM  section. 
FORVEL;  See  SERV  section. 

FUNNYDSPt  See  EESC  section. 
HAPO:  See  TRGX  section. 
HAPOX:  See  EXVB  section. 
HCALC:  See  SERV  section. 
HCALCl:  See  SERV  section. 
HDOTDISP:  See  SERV  section. 
HPERr  See  TRGX  section. 
HPERX;  See  EXVB  section. 
IGC:  See  COOR  section. 
LANDALT:  See  ALIN  section. 
LANDLAT:  See  ALIN  section. 
LANDLONG:  See  ALIN  section. 
LATr  See  COGR  section. 
lEMMASS:  See  DAPB  section. 
LONG:  See  COOR  section. 

MGC:  See  COOR  section. 
mTPER:  See  EXVB  section. 

NN:  See  TRGX  section. 

OGC:  See  COOR  section. 
OMEGDISPr  See  RNAV  section. 
OPTIONX:  See  EXVB  section. 

OPTIONlr  See  DATA  section. 
0PTI0N2:  See  DATA  section. 
0PTI0N3:  See  DATA  section. 
OUTOFPLNr  See  DESC  section. 

PIPA:  See  IMUC  section. 
PITCH:  See  ASCT  section. 
PITTIME:  See  DAPB  section. 
pMGA:  See  TRGX  section. 
POSCODE:  See  ALIN  section. 
POSTTPI:  See  TRGL  section. 
P2LALT:  See  RNAV  section. 
P21GAM:  See  RNAV  section. 
P21VEL:  See  RNAV  section. 
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RANGE;  See  EXVB  section. 

RANGEDSPr  See  OESC  section. 

RDOTD:  See  ASCT  section. 

ROLLTIME r See  DAPB  section. 

RRATE;  See  EXVB  section. 

RR-AZ;  See  RNAV  section. 

RR-ELEV:  See  RNAV  section. 

RSTACK;  See  RADR  section. 

RTHETAr  See  EXVB  section. 

R22DISPr  See  R22DISPR  in  RNAV  section. 
R22DISP+2:  See  R22DISPV  in  RNAV  section. 
SAMPTIME:  See  DSKY  section. 

SMODE:  See  TEST  section. 

SPIRALr  See  ALIN  section. 

STARAD  ; See  ALIN  section. 

TANGr  See  RADR  section. 

TCDH;  See  TRGX  section. 

TCSI;  See  TRGX  section. 

TET;  See  ORBI  section. 

TFF:  See  EXVB  section. 

TffilTADr  See  IMUC  section. 

I THRDISP;  See  DESC  section. 

TIG:  See  BURN  section. 

TIMENOW:  See  EXVB  section. 

TRKMKCNT;  See  RNAV  section. 

TTFDISP:  See  DESC  section. 

TTOGO:  See  BURN  section. 

TTOTIG:  See  RADR  section. 

TTPI:  See  TRGL  section. 

T1T0T2:  See  TRGX  section. 

T2T0T3:  See  TRGX  section. 

VGBODY  ; See  BURN  section. 
x,y,z 

VGDISP;  Same  as  DELVSAB,  see  TRGX  section. 

I 

WHCHREAD:  See  RNAV  section. 

WWBIAS:  See  RNAV  section. 

WWPOS:  See  RNAV  section. 
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WWVEL:  See  RNAV  section. 

XRANGE:  See  ASCT  section. 

XREG:  See  DATA  section. 
lAW:  See  ASCT  section. 

YDOTf  See  ASCT  section. 

YBEGr  See  DATA  section. 

ZDOTD:  See  ASCT  section. 

ZREG:  See  DATA  section. 

-Krposmaxsp;  See  "Major  Variables"  section. 
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DESC 


Descent  Guidance 


P63LM  Perform  "R02B0TH"  (assure  that  IMU  Is  operating) 

WHICH  = "P63TABLE" 

DVTHRUSH  = K;DPSTHRSH 
DVCNTR  = 4 
WCHPHASE  = - 1 
FLPASSO  = 0 

Switch  bit  14  of  channel  12  to  0 (disable  RR  tracker) 

Switch  FLAGWRD5  bit  12  (NOTHROTL)  to  0 
Switch  FLAGWRD6  bit  6 (REDFLAG)  to  0 
Switch  FLGWRD11  bit  15  (LRBYPASS)  to  0 
Switch  FLAGWRD6  bit  8 (MUNFLAG)  to  1 
Switch  FLAGWRDO  bit  9 (P25FLAG)  to  0 
Switch  FLAGWRDO  bit  7 (RNDVZFLG)  to  0 
TPIP  = TLAND 
TSt  = TLAND 
Perform  "MOONMX" 

LAND  = [rEFSMMA!^  [mOONMA'^  ^ (RLS  + 1M50^  * RLS) 

TSt  = TIMENOW 
Perform  ”MOONMX" 

= K:MOONRATE  [rEFSMMA:^  [mOONMA'^  ^ (KrUNITZ  + LM504  * K;UNITZ) 
LANDMAG  = |rLS| 

TDEC1  = TLAND  - KiGUIDDURN 
Perform  "LEMPREC" 

NIGNLOOP  = 40 
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IGNALOOP 


EXGSUB 


1 

0 

0 

TgcmatI  = 

0 

1 

0 

0 

0 

1 

BELT AH  = K:99999CON 


UNFC  = 0 


TTF  = 0 


PIPTIME1  = TAT 
R = [rEFSMMAt]  PTT 
Perform  "MUNGRAV"  with  TSr  = R 
GDT  = GDT1 


NGUIDSUB  = 2 


(continues  at  "EXGSUB" 

Proceed  to  the  second  step  of  "GUILDRET"  after  one  Iteration 

of  guidance  computations) 

MFC  = K:TRIMACCL  ZOOMTIME  unitUNFC  (argument  of  unit  operation 

adjusted  to  reduce  the 

If  NGUIDSUB  > 0:  possibility  of  overflow) 


NGUIDSUB  = NGUIDSUB  - 1 


Proceed  to  "CALCRGVG" 
If  NIGNLOOP  = 0: 


Perform  "ALARM"  with  TS  = 0141 2g 

TS  = 33l3jj  ( S-register  portion  of  address  of  cell 

° containing  alarm  pattern) 

If  NIGNLOOP  > 0: 

TS  = NIGNLOOP  - 1 

NIGNLOOP  = TS 


TSden  = VGU  - DESKIGNX  VGU 
z X 

TSnum  = (DESIGNRZ  - RGU  ) + DESKIGNY  RGU  ^ + DESKIGNX  (RGU  - DESIGNRX) 

z y X 

TSv  = DESKIGNV  (|vGu|  - DESIGNV) 

TSt  = (TSv  + TSnum)  / TSden 


TDEC1  = PIPTIME1  + TSt 
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ASTNRET 


If  |TSt|>  K:DDUMCRIT:  (reiterate) 

Perform  "INTSTALU' 

Switch  FLAGWRD3  bit  4 (INTYPFLG)  to  1 

Switch  FLAGWRDO  bit  12  (MOONFLAG)  to  1 

TET  = PIPTIME1 

RCV  = RATT 

VCV  = VATT 

Perform  "INTEGRVS" 

Proceed  to  "ICaJALOOP" 

TIG  = TDEC1  - ZOOMTIME 
OUTOFPLN  - vinit(V  * R)  • LAND 
R60SAVE  = pFC 

DISPDEX  = - 21  (enable  astronaut  breinch  to  "ASTNRET") 

Perform  "STCL0K3" 

End  j ob 

Proceed  to  "G0PERF1"  with  TS  = 0001 4g 

(If  terminate,  proceed  to  "GOTO  POOH";  if  proceed,  continue 
at  next  step;  if  other  response,  skip  next  step.) 

Perform  "R51" 

POINTVSM  = unitR60SAVE 

SCAXIS  = K:UNITX 

Perform  "PFLITEDB"  with  interrupts  inhibited 
Perform  "R60LEM" 

If  bit  6 of  channel  33  = 1 : (LR  not  in  position  #1 ) 

Proceed  to  "G0PERF1"  with  TS.=  00500g 

(If  terminate,  proceed  to  "GOTO  POOH";  if  proceed,  continue 
at  previous  step;  if  other  response,  continue  at  next  step.) 

Perform  "SETP0S1"  (Initialize  landing  radar  control) 
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Proceed  to  "BURNBABY" 

(Standard  pre-ignition  sequence;  initializes  average-g 
navigation  at  TIG-30  seconds;  calls  "P63IGN"  at  time  of 
ignition  which  sets  AVEGEXIT  to  "LUNLAND"  establishing  the 
two-second  guidance  loop;  calls  "P63ZOOM"  at  throttle-up 
time. ) 

LUNLAND  If  FLAGWRD5  bit  8 (ZOOMFLAG)  = 0:  (R13) 

Proceed  to  "DISPEXIT"  (do  display  only;  no  throttle-up  yet) 
If  MODREG  = 66;  (in  P66) 

If  FLAGWRD1  bit  12  (RODFLAG)  = 0; 

Proceed  to  "STRTP66A" 

Proceed  to  "P66'* 

If  bit  13  of  channel  31  = 0 and  RODCOUNT  / 0: 

Proceed  to  "STARTP66" 

GUILDRET  RODCOUNT  = 0 

TPIPOLD  = TRIP 
TRIP  = PIPTIME1 
TTFTMP  = TTF 

If  FLPASS0>0,  proceed  to  "TTFINCR" 

Proceed  to  K:NEWPHASE^jj^j^jj^gg 
(TTFINCR,  TTFINCR,  STARTP64,  STARTP66) 

STARTP64  MODREG  = 64 

Establish  "DSPMMJOB"  (pr30) 

TTFTMP  = TTFTMP  + DELTTFAP 
Inhibit  interrupts 
Perform  "Cl 3STALL" 

Switch  bit  1 2 of  channel  1 3 to  1 ( enable  RHC  interrupt  #10) 

DB  = K:P64DB 

Switch  FLAGWRD6  bit  6 (REDFLAG)  to  0 
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Release  interrupt  inhibit 
Proceed  to  "TTFINCR" 


P65START  MODREG  = 65  (this  coding  not  exercised) 

Establish  "DSPMMJOB"  (pr30) 

WCHVERT  =0 

Switch  DAPBOOLS  bit  9 (XOVINHIB)  to  0 (permit  X-axis  override) 

TTFINCR  TSt  = TPIP  - TPIPOLD  (rescaled  to  B17  centiseconds) 


LANDTEMP  — LANDMAG  unit(LAND  — TSt  LAND  * WM)  ■ (argument  of  unit 

operation  adjusted 

TTFTMP  = TTFTMP  + TSt  to  reduce^ the 

possibility  of 

TTF  = TTFTMP  overflow) 

Perform  "TDISPSET" 


Change  job  priority  to  31  (pr31 ) 

LAND  = LANDTEMP  + DLAND 
LANDMAG  = | LAND  j 
DLAND  = 0 

Change  job  priority  to  20  (pr20) 


Proceed  to  KrPREGUIDE^jpjjp^gg 
(CALCRGVG,  RGVGCALC,  REDESIG,  RGVGCALC) 

REDESIG  If  FLAGWRD6  bit  6 (REDFLAG)  = 0 or  if  TREDES  = 0: 

Proceed  to  "RGVGCALC" 


Inhibit  interrupts 

ELINCR,  = (ELINCR1 , O) 
dp 

AZINCR^p  = (AZINCR1  , O) 
ELINCR1  = 0 
AZINCR1  = 0 


(AZINCR1  and  ELINCR1  are 
updated  in  routines 
"PITFALL"  and  "REDESMON" 
which  are  called  by 
program  interrupt  #10) 


Release  Interrupt  inhibit 

TS  = unit(l^D  - R)  (argioment  of  unit  operation  adjusted  to  reduce 

the  possibility  of  overflow) 

TS  = TS  + AZINCR  MBPIP  - ELINCR  TS  * piBPIP 
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CALCRGVG 

RGVGCALC 


TTF/8CL 


If  TS  > K:DEPRCRn,  TS  = KrDEPRCRIT 
UNDTEMP  = LANDMAG  unit(R  + TS  (LAND^  - R^)  / TS^) 

I^D  = I^DTEMP 
Proceed  to  "RGVGCALC" 

V = [rEFSMMA:^  VATT  + ppc  (VATT  used  here  is  VATT1  scaled 

B55  see  VATT  of  the  (®BI  section.) 

ANGTERM  = R * WM  + V 

VGU  = [gcma:^  mgterm 


TS  = R - LAND 


RGU  = [gCMA'^  TS 
RANGEDSP  = I RGU  I 


LOOKANGL  - K:180degs  (arcaingp(unit*TS  • pBPIP)  + K:1d2DEG  + ELBIAS) 

Proceed  to  KiWHATGUID  ^argument  of  unit  operation 

WCHPHASE  adjusted  to  reduce  the 

(TTF/8CL,  TTF/8CL,  TTF/8CL,  CGCALC)  possibility  of  overflow) 


LUBDEZ  = K:TiEOTDHC„(,^jj^g 

*2  = 

A,  = K=ttf6b3  VGU^  - 


(0,  0,  28) 

'Jdzg) 


(6  VGO^  18 


TS  = TARGRDG 


'LUNOEZ 


A„  = K:ttf24b6  (TS  - RGU  ) 

2 Z 

PREC  = 2~'^ 


ROOTPS  = TTF 


n = 3 

Perform  "ROOTPSRS" 
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If  ROOTGOOD  = 0,  proceed  to 

(I4O6POO,  I4O6ALM,  I4O6ALM) 

TTF  = ROOTPS 
Perform  "TDISPSET" 

QUADGUID  TSt  = - TTF^^  + LEADTIME 
If  TSt  < 0,  TSt  = 0 


RA  = TSt  / TTF 
ms 

( - r) 

TSI  = 2 RA^  + RA 

(2  r^  - r) 

TS2  = 3 RA^  + 2 RA 

(3  - 2 r) 

TS3  = 4 + 3 RA 

(4  - 3 r) 

TS4  = 6 (RA^  + RA)  + Krposmaxsp 

(6  r^  - 6 r + 1 ) 

LUNDEX  = K:TARGTDEX^^jjp^3g 

(0,  0,  28) 

TSb  = TSI  VGU 


TSc  = TS3  TARGVDG^^^X 

TSd  = 2 TS2  (TARGRDGj^^pg^  - RGU)  / TTF 

TSe  = K;ttf6b3  (TSb  + TSc  + TSd)  / TTF 

TSa  = TS4  X-^^^^^^LUIjDEX  (desired  acceleration) 

AFCCALC1  UNFC  = [^MAt]^  TSa  - GDT  / KrGSCALE 
AFCMAG  = I MFC  | 

TS  = (K:HIGHESTF  / MASS)^  - UNFC  ^ - UNFC  ^ 

y X 

If  TS  <0,  TS  = 0 

If  UNFC  < --\/tS  , UNFC  = -Vts” 
z z 

WCHPHOLD  = WCHPHASE 
FLPASSO  = FLPASSO  + 1 

Proceed  to  KtAFTRGUID^^jjp^^gg 
(CGGALC,  EXTLOGIC,  EXTLOGIC,  STEER?) 
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EXTLOGIC 


CGCALC 


EXBRAK 


EXNORM 


TSt  = + TTF^^ 

If  TSt  > 0: 

WCHPHASE  = WCHPHOLD  + 1 
FLPASSO  = 0 


1 = K:TiRGIDEX^,(,gj,j,j^j,  (0,0,23) 

If  TTF  < - TCGI.  or  TTF  > - TCGF. : 
ms  i ms  1 

Proceed  to  KiWHATEXITyggpjjQjjj 

(EXGSUB,  EXBRAK,  EXNOBM,  -) 

LUNDEX  = K:TARGTDEXy^j^P^j.  (O,  0,  28) 


TSa  = unitLAND 


TSb  = -unittunlttGAINj^yjjpgj  TTF  MGTERM  + 4 LAND  - 4 R)  * LAND) 


TSc  = TSa  » TSb 


TSa 

TSa 

TSa 

X 

7 

z 

[gcmat]  = 

TSb 

X 

TSb 

7 

TSb 

z 

TSc 

TSc 

TSc 

L X 

7 

z 

Proceed  to 

K:WHATEXITygjjpjjQjjj 

(EXGSUB,  EXBRAK,  EXNORM,  ) 


*( argument  of  unit  operation 
adjusted  to  reduce  the 
possibility  of  overflow) 


PWC  = UNITR 
Proceed  to  "STEER?" 
pWC  = unit1;iAND  - R) 

TS  = second  row  of  [gCMAT]] 
PROJ  = UNWC  * pBPIP  . TS 
PR0J1  = K:PR0JMAX  - PROJ 
If  PR0J1  < 0,  PROJ1  = 0 
PR0J2  = PROJ  - K:PROJMIN 
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If  PRDJ2  ^ 0,  PR0J2  = 0 


UNWC  = PR0J1 

GCMAT.„ 

+ PR0J2 

UNWC 

z 

33 

z 

UNWC  = PR0J1 

GCMAT-„ 

+ PR0J2 

UNWC 

7 

32 

7 

UNWC  = PR0J1 

GCMAT_, 

+ PR0J2 

UNWC 

X 

31 

X 

OGABIAS  = AZBIAS 

STEER?  If  overflow  occturred  axiTwhere  above:  (interpretive  lemguage  overflow) 

Perform  "ALARM"  with  TS  = 0141% 

Perform  "STOPRATE" 

Proceed  to  "DISPEXIT" 

If  FLAGWRD2  bit  11  (STEERSW)  = 0: 

Perform  "STOPRATE" 

Proceed  to  "DISPEXIT" 

Perform  "THROTTLE" 

Perform  "FINDCDUW" 

DISPEXIT  If  FLAGWRD8  bit  10  (FLUNDISP)  = 1 , end  Job 


P63DISPS 

P64DISPS 


Proceed  to  KiWHATDISPyQjjpjjQjj^ 

( , P63DISPS,  P64DISPS,  VERTDISP) 

Proceed  to  "REGODSP"  with  TS  = K:V06N63  (ABYEL,  HDOTDISP,  HCALCI ) 
If  TREDES  = 0: 

Switch  FLAGWRD6  bit  6 (REDFLAG)  to  0 

Proceed  to  "REGODSP"  with  TS  = K1VO6N64 

If  FLAGWRD6  bit  6 (REDFLAG)  = 1 ; 

Proceed  to  "REGODSP"  with  TS  = K;V06N64 

Proceed  to  "REFLASH"  with  TS  = K:706N64  (FUNNYDSP,  HDOTDISP,  HCALC) 
(if  terminate,  proceed  to  "G0T0P00H"j  if  proceed,  continue 
at  next  stepj  if  other  response,  proceed  to  "Pb^ISPS".) 
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1LINCR1  » 0 


VERTDISP 


TDISPSET 


AZINCR1  = 0 

Switch  FLAGWRD6  bit  6 (REDFLAG)  to  1 
End  job 

Proceed  to  "REFLASH"  with  TS  = K:V06N60  (FORYEL,  HDOTDISP,  HCALCI ) 
(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  stepj  if  other  response,  continue 
at  next  step, ) 

WCHVERT  = Kiposmaxsp 

End  job 

TTFDISP  = K:TSCALINV  TTF 

ms 

TSt  = K:TREDESCL  (TCGF^.  + TTF  ) - 103 

28  ms 

If  TSt  > 0: 

TREDES  = 99 
Return 

TSt  = TSt  + 99 
If  TSt  < 0: 

TREDES  = 0 
Return 
TREDES  = TSt 
Return 
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STARTP66  MODREG  = 66 


Establish  "DSPMMJOB" 

VDGVERT  = HDOTDISP 
WCHVERT  = - 0 
CNTTHROT  = - TOOFEW 
VHZC  = ^ • R 

STRTP66A  TS  = (PIPIBIAS^,  PIPABIAS^,  PIPABIAS^) 

PIAS  = KiBIASFACT  TS 

Switch  FLAGWRD1  bit  12  (RODFLAG)  to  1 

OLDPIPA  = - PM 

PLVROD  = 0 

RDDSCAL1  = RDDSCALE 

LASTTPIP  = PIPTIME 

FCOLD  = 0 

sp 

FWEIGHT,  = 0 

dp 

WCHPHOLD  = 2 
WCHPHASE  = 2 
Perform  "STOPRATE" 

Switch  DAPBOOLS  bit  9 (XOVINHIB)  to  0 

Switch  FLAGWRD6  bit  6 (REDFLAG)  to  0 
P66  TSt  = TIMENOW  - PIPTIME 

If  2LATE466^TSt; 

Proceed  to  "P66HZ" 

Switch  FLAGWRD1  bit  12  (RODFLAG)  to  0 
TS  = CNTTHROT 
CNTTHROT  = - TOOFEW 


(pr30) 
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If  TS<  0: 

Perform  "ALARM"  with  TS  = 01466g 
Proceed  to  "DISPEXIT" 

P66HZ  TS  = (pZC  - V)/TAUHZ  - QHZ  UNFC 

Change  job  priority  to  21 g (pr2l) 

TS  = K:GHZ 

X 

sp  , 

If  Its  >AHZLIM,  TS  = AHZLIM  slgnTS 
' ^spl  ^sp  ^sp 

If  ITS^  I > AHZLIM,  TS  = AHZLIM  signTS 

I ^spl  ^sp  ^sp 

If  overflow  anywhere  above:  (interpretive  language  overflow) 

Perform  "ALARM"  with  TS  = OUlOg 
Perform  "STOPRATE" 

Proceed  to  "P66VERT" 

If  bit  3 of  channel  30  = 1 : (Engine  not  armed) 

If  WCHVERT>  0: 

T5ADR  = "DAPIDLER" 

Proceed  to  "P66VERT" 

If  WCHVERT<  - 0; 

Proceed  to  "P66VERT" 

If  WCHVERT  = - 0: 

Continue  at  next  step 

PPC  = TS 

Perform  "FINDCDUW" 

Proceed  to  "P66VERT" 
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P66VERT 


Call  "RODTASK"  in  1.0  second 


RODTASK 


RODCOMP 


(note  that  "RODCOMP"  will 

Proceed  to  "RODCOMP" 

Establish  "RODCOMP"  (pr22) 

End  task 

Change  job  priority  to  23g 
Inhibit  interrupts 

VDGVERT  = VDGVERT  + RODCODNT  R0DSCAL1 

RODCOUNT  = 0 

POLDPIPA  = OLDPIPA 

OLDPIPA  = PIPA 

THISTPIP  = TIMENOW 

TS  = OLDPIPA  + PIPATMP 
- sp  - 

DELVROD  = TEM  - OLDPIPA  + POLDPIPA 
TS^p  = (least  significant  components  set  to  O) 

PM  = 0 

inhibit 

- PIPTIME 


Release  interrupt 

TS  = KtKPIPI  TS, 

- dp 

TSdelt  = THISTPIP 


be  performed  now  and 
again  in  1.0  second) 


(pr23) 


(activation  of  the  R.O.D. 
switch  causes  routine 
"DESCBITS"  to  be 
entered  which  updates 
RODCOUNT ) 
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TSv  = (TSdelt  / K;4SECb28)  (i  GDT  - i VBUS)  + V + TS  (updated 

velocity 

HDOTDISP  = TSv  • unitR  stored  In 

PDL24-29  at 

HCALC1  = TSdelt  HDOTDISP  + |r|  - LANDMAG  B7  m/cs) 

2 

TS1  = (VDGYERT  - HDOTDISP)  / TAUROD  (PDLO-1 ; B-2  m/cs  ) 

TS2  = |gDT  I / K:GSCALE  (PDL20-21 ; B-2) 

TS3  = TS2  + TS1  (PDLO-1 ; B-2) 

Perform  "CDUTRIG" 

Perform  "NBTOSM" 

TS  = [nBSMMA'3  KrUNITX 

TS4  = TS  . unitR  (PDL22-23;  B2) 

AFCMAG  = TS3  / TS4 

TS1  = I KrKPIPI  DELVROD  + VBIAS  | ( PDLO-1 ; B7) 

TSt3  = THISTPIP  - LASTTPIP  (PDL2-3;  B28) 

LASTTPIP  = THISTPIP 

TSacc  = TS1  / (TSt3  / K:SHFTFACT)  (measured  acgeleration  in  PDLO-1 

nt  B-4  m/cs  ) 

TS5  = (FWEIGHT  K:BIT1H)  / (MASS  KtSCALEFAC)  + TSacc 
AFCMAG  = AFCMAG  + LAGdTAU  ( ( TS2  / TS4)  - TS5) 

TSafcmax  = MAXFORCE  / MASS 
TSafcmin  = MINFORCE  / MASS 
If  AFCMAG  ^ TSafcmin  , AFCMAG  = TSafcmin 
If  AFCMAG  > TSafcmax  , AFCMAG  = TSafcmax 
TSthrot  = TSacc 

Perform  "THROTTIE”  (starting  at  second  step;  return  will  be 

to  the  next  step.) 

CNTTHROT  = CNTTHROT  + 1 
Proceed  to  "DISPEXIT" 


(PDL2-3;  B-4) 
(PDL2-3;  B-4) 
(PDU-5;  b-4) 
(PDL6-7;  B-4) 
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THROTTLE  TSthrot  = K:ABAFCNST  ABDELV 


RTNHOLD  = return  address 

FP^  = K:SCALEFAC  MASS  TSthrot 
dp 

If  FP^p-^  K:fmax,  FP^^  = K;poamaxsp 

FCODD,  = K:SCALEFAC  MASS  AFCMAG 
dp 

If  FCODD^p>  Krfmax,  FCODD^p  = Kiposmaxsp 
FC  = FCODD 
TS  = FC 

If  TS^2^^  throttle  pulses,  truncate  bits  ^2^^ 
THRDISP  = (TS  / K:4FMAXNCIM)  400 

TSt  = (less  significant  half  of  TIMENOW)  - TTHROT 

If  TSt  < 0,  TSt  = 16384  + TSt 

If  TSt  K:3SECS: 

FP  = FP  + FWEIGHT 
dp 

PIFPSET  =0  (-0) 

If  FCOLD  > HIGHCRIT: 

If  FCODD  < LOWCRIT; 
sp  — 

PIFPSET  = FP  - KrFMAXODD 
sp 

If  FCODD  > LOWCRIT: 
sp 

FCODD  = FP 

PIFPSET  = KiFEXTRA 

If  FCOLD  < HIGHCRIT: 

If  FCODD  > HIGHCRIT: 
sp 

FCODD  = KrFMAXPOS 

PIFPSET  K:TEXTRA 
FCOLD  = FCODD 
PIF  = FCODD  - FP 
Proceed  to  "DOIT" 
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FUTOUT  PIFPSET  = K;FEXTRA 


DOIT 


FCOLD  =0  (-0) 

PIF  =0  (-0) 

RTNHOLD  = return  address  (to  caller  of  "FLA.T0UT") 

PSEUDO  5 5 = PIF  + PIFPSET 

sp 

THRUST  = PSEUDO 5 5 

Switch  bit  4 of  chajinel  14  to  1 (send  throttle  command  from 

THRUST) 

TTHROT  = less  significant  half  of  TIMENOW 

TS1  = THISTPIP, 

Is 

TS2  = K:2SECS 

If  MODREG  66: 

TS1  = PIPTIME, 

Is 

TS2  = K:4SECS 
TS3  = TS2  K:BIT6 
TS4  = TS3^g 

TSt  = K:THROTIAG  + TIMENOW,  - TS1 

Is 

If  TSt  <0,  TSt  = I TSt  I 

^8  8 
IfgTSt  ~ 2 centiseconds,  truncate  bits  ^ 2°  (i.e.  subtract 

2 until  TSt  is  less  than  2 centiseconds) 

FWEIGHT  = 2 PIF  TSt  / TS2 
FWEIGHT  = FWEIGHT  + |pIf|  PIF  / TS4 
Return  via  RTNHOLD 
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PITT ALL  (Entered  on  progra*  intarnipt  #10) 

If  MODREG  ^ 64,  resxxme 


REDESMON 


ELVIRA  -bits  6,  5,  2 and  1 of  -channel  31 
ZERLINA  = 2 

Call  ’’REDESMON”  in  0.05  second 

Resiune 

TS  = ELVIRA 

ELVIRA  = bits  6,  5,  2 and  1 of  -channel  31 
If  ELVIRA  ^ OOOOOg:  (LPD  still 


(bits 

on 

chemnel  31 
logically 
inverted) 
out  of  detent) 


Delay  0.07  second 
Proceed  to  "REDESMON" 


If  TS  = OOOOOg: 

If  ZERLINA  > 0: 


ZERLINA  = ZERLINA  - 1 
Delay  0.07  second 
Proceed  to  "REDESMON" 

Perfom  ■C13STALL" 

Switch  bit  12  of  channel  13  to  1 (re-enable  RHC  interrupt  #10) 
End  task 

If  bit  13  of  channel  31  = 0; 

Perform  "01 3S TALL" 

Switch  bit  1 2 of  cheimel  1 3 to  1 and  end  task 

If  bit  6 of  TS  = 1,  AZINCR1  = AZINCR1  - K:AZEACH  (-AZ  LPD) 

If  bit  5 of  TS  = 1,  AZINCR1  = AZINCR1  + K:AZEACH  (+AZ  LPD) 

If  bit  1 of  TS  = 1 , ELINGR1  = ELINCR1  - K:ELEACH  (+EL  LPD) 

If  bit  2 of  TS  = 1,  ELINCR1  = ELINCR1  + KiELEACH  (-EL  LPD) 

Perform  ’’C13STALL’’ 

Switch  bit  12  of  channel  13  to  1 (re-enable  RHC  interrupt  #10) 

End  task 
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DESGBITS  (Entered  from  "SOMEKEY”  with  contents  of  channel  16  in  TS) 

If  bit  7 of  TS  = 1,  RODCOUNT  = RODCOUNT  - 1 

If  bit  7 of  TS  = 0,  RODCOUNT  = RODCOUNT  + 1 (assume  bit  6 = l) 

Resume 


ROOTPSRS  DICRIT  = | PREC  ROOTPS 
p = n - 1 

DERCLOOP  DA  = (o  + l)  A 

p p+1 

If  p > 0: 

p = p - 1 

Proceed  to  "DERCIDOP" 


-,n 


-1 


ROOTLOOP  TSderiv  = DA„  + DA.  ROOTPS  + . . .+  DA  . ROOTPS 
0 1 n-1  ^ 

TSfunct  = A„  + A,  ROOTPS  +. . .+  A , ROOTPS”"  + A ROOTPS 
U T n—  I n 

TSdelt  = - TSfunct  / TSderiv 
ROOTPS  = ROOTPS  + TSdelt 
If  p = 8i 

ROOTQOOO  = 0 
Return 

p = p + 1 

If  |TSdelt|  > DXCRIT,  proceed  to  "ROOTLOOP" 

ROOTGOOD  = 2 
Return 

1406P00  Proceed  to  "POODOO"  with  TS  = 21406^ 

O 

I4O6ALM  Perform  "ALARM"  with  TS  = Ol4D6g 
Perform  "STOPRATE" 

Proceed  to  "DISPEXIT" 
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lANDJUM  Inhibit  interrupts 
Perform  "ZATIEROR" 


(program  68) 


Release  interrupt  inhibit 
Switch  DiPBOOLS  bit  15  (PUISIS)  to  1 
Switch  PLAGWRD8  bit  8 (SDRPPLAG)  to  1 
Switch  FLAGWRD9  bit  9 (LETABORT)  to  0 
Switch  FLQWEIDIO  bit  13  (APSFLAG)  to  1 
^HAV  = p 
TSt  = PIPTIME 

Switch  FLAGWRD3  bit  12  (LUNAFLAG)  to  1 
Perform  "LAT-LONG" 

TSt  = PIPTIME 
Perform  "MOONMX" 

RLs  = [moonma:^  (P  - ([moonma:^^  1^504)  * p) 

Proceed  to  "GOFLASH"  with  TS  = K:V06N43  (LAT,  LONG,  ALT) 

(If  terminate,  proceed  to  "GOTOPOOH"}  if  proceed,  continue 
at  next  step;  if  other  response,  repeat  this  step.) 

GSAV  = K:UNITX 

Perform  "REFMF" 

Proceed  to  "GOTOPOOH" 
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Quantities  in  Computations 


2LiATE466:  Double  precision  erasable  memory  constant  representing  the 
time  delay  after  the  accelerometer  readings  beyond  which  further  P66 
computations  are  bypassed,  scaled  B28  in  units  of  centiseconds;  part 
of  the  erasable  load. 

A.  (i  = 0,1,2,...):  Double  precision  coefficients  of  the  polynomial 
^ input  to  "ROOTPSRS",  unitless  and  scaled  B30,  B13,  B-4  and  B-21 
when  generated  in  "TTF/8CL". 

ABDELV,  ABVEL:  see  SERV  section. 

AFCMAG:  Double  precision  magnitude  of  desired  thrust  acceleration, 

program  notation  /AFC/,  scaled  B-4  in  units  of  meters  per  centlsecond 
squared. 

AHZLIM:  Single  precision  erasable  memory  constant  representing  the  maximum 
commanded  pitch  and  roll  attitude  for  horizontal  nulling  in  P66  Auto, 
scaled  B-4  in  units  of  meters  per  centlsecond  squared;  part  of  the 
erasable  load. 

ALPHAV:  see  COOR  section. 

ALT:  see  SERV  section. 

MGTERM:  Double  precision  velocity  of  the  LM  vehicle  relative  to  the 

rotating  moon,  scaled  B9  in  units  of  meters  per  centlsecond  and  expressed 
in  the  Platform  coordinate  system. 

AZBIAS:  Single  precision  quantity  representing  the  desired  outer  gimbal 
angle  bias  for  window  pointing  commands  in  P64  to  account  for  window 
bending  due  to  cabin  pressurization,  scaled  B-1  in  \inlts  of  revolutions; 
part  of  the  erasable  load 

AZINCR,  AZINCR1 : Double  precision  and  single  precision  storage  for  the 
desired  addition  to  the  landing  site  azimuth,  scaled  BO  in  \inits  of 
radians . 

CNTTHROT:  Single  precision  counter  of  the  number  of  times  that  the  "THROTTLE 
routine  is  entered  in  P66;  initialized  to  -TOOFEM,  scaled  BI4  and  unitless 

DA.  (i  = 0,1...):  Double  precision  coefficients  of  the  polynomial 

^derivative  of  the  polynomial  input  to  "ROOTPSRS";  lonitless  and  scaled 
BI3,  B-4,  and  B-21  when  generated  in  response  to  the  polynomial 
input  from  "TTF/8CL". 
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DAPBOOLS:  see  DAPA  section. 


DB:  see  DAPB  section. 

DELTAH:  see  SERV  section. 

DELTTFAP:  Single  precision  time  constant  added  to  TTF  at  the  start  of 
P64,  scaled  B17  in  units  of  centiseconds.  DELTTFAP  is  a negative 
number  and  is  part  of  the  erasable  load. 

DELVROD:  Double  precision  sensed-change-in-velocity  vector  for  P66 
computations,  scaled  BI4  in  units  of  centimeters  per  second. 

DESIGNRX,  DESIGNRZ:  Double  precision  components  of  desired  position 
relative  to  the  landing  site  (desired  crossrange  position  component 
is  zero),  scaled  B24  in  units  of  meters  and  expressed  in  the  Descent 
Guidance  coordinate  system;  program  notations  RIGNX  and  RIGNZ 
respectively;  part  of  the  erasable  load. 

DESIGNV:  Double  precision  speed  desired  at  ignition,  relative  to  the 
rotating  moon,  scaled  BIO  in  units  of  meters  per  centisecond; 
program  notation  VIGN;  part  of  the  erasable  load. 

DESKIGNV:  Double  precision  speed  error  scale  factor  use  in  the 

ignition-time  test  quantity,  scaled  B18  in  units  of  centiseconds; 
program  notation  KIGNV/B4;  part  of  the  erasable  load. 
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DESKIGKX:  Double  precision  landing  site  vertical  error  scale  factor 
used  in  the  ignition-time  test  quantity,  scaled  B4.  and  unitless; 
program  notation  KIGNX/B/i;  part  of  the  erasable  load. 

DESKIGNY:  Double  precision  crossrange  error  scale  factor  used  in  the 
ignition-time  test  quantity,  scaled  B— l6  in  units  of  meters  to  the 
minus  one  power;  program  notation  KIOJY/BS;  part  of  the  erasable 
load. 

DISPDEX:  see  BDRN  section. 

POLAND;  Double  precision  vector  expressed  in  the  Platform  coordinate 
system  representing  the  correction  to  the  Landing  site  vector  LAND, 
scaled  B24  in  units  of  meters.  DLAND  is  padloaded  to  zero  and  may 

be  loauied  by  the  crew  in  Noun  69  in  the  order  DLAND  , DLAND  , DLAND  . 

z’  y*  X 

DVCNTR,  DVTHRUSHi  sea  SERV  section. 

DXCRIT:  Double  precision  criterion  for  the  convergence  of  the 
iterative  calculation  in  "ROOTPSKS”,  with  scaling  and  units 
identical  to  those  of  ROOTPS. 

ELBIAS:  Single  precision  qiiantity  representing  the  LPD  elevation  angle 
bias  used  in  calculating  LOOKANGL  to  account  for  window  bending  due 
to  cabin  pressurization,  scaled  B-1  in  units  of  revolutions;  part 
of  the  erasable  load. 

ELINOR,  ELINCR1 : Double  precision  and  single  precision  storage  for 
the  complement  of  the  desired  addition  to  landing  site  elevation, 
scaled  BO  in  units  of  radians.  (Sign  changed  to  compensate  for  the 
inversion  of  the  cross  product  in  "REDESIG".) 

ELVIRA;  Single  precision  storage  for  the  status  of  the  landing  site 
redesignation  discretes  from  channel  31 . 

EC:  Single  precision  storage  for  the  magnitude  of  desired  thrust, 
scaled  BI4  lu  units  of  DPS  throttle  piolses. 

FCODD:  Double  precision  magnitude  of  desired  thrust,  scaled  BI4  in 
units  of  DPS  throttle  piilses.  (The  less  significant  half  is  not 
always  maintained.) 

FCOLD;  Single  precision  magnitude  of  previous  value  of  desired 
thrust,  scaled  BI4  in  units  of  DPS  throttle  pulses. 

FLPASSO:  Single  precision  flag  set  to  zero  at  the  beginning  of  a 
new  guidance  phase  (except  at  the  beginning  of  P66  ) to 

Initialize  guidance  quantities  for  the  new  guidance  f^ase. 

FORVEL:  see  SERV  section. 

FP;  Double  precision  estimate  of  the  magnitxide  of  the  present 
thrust,  scaled  BI4  in  units  of  DPS  throttle  pulses.  (The  less 
significant  half  is  not  always  maintained.) 

FUNNYDSP:  Special  display  of  LOOKANGL  and  TREDES  in  the  same  display 
register,  both  displayed  in  two  digits  only. 
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FWEIGHT:  Double  precision  change  in  sensed  thrust  expected  .to  have 
occurred  since  the  sampling  of  the  accelerometers,  scaled  BI4  in 
units  of  DPS  throttle  pulses. 

GAINq:  Double  precision  gain  constant  used  in  the  computation  of  the 
orientation  of  the  Descent  Guidance  Coordinate  System  for  the 
braking  phase,  scaled  BO  and  unitless.  Program  notation:  GAINBRAK; 
part  of  the  erasable  load. 

GAIN2g!  Double  precision  gain  constant  used  in  the  computation  of  the 
orientation  of  the  Descent  Guidance  Coordinate  System  for  the 
approach  phase,  scaled  BO  and  unitless.  Program  notation:  GAINAPPR; 
part  of  the  erasable  load. 

[pCIiA!^  : Double  precision,  3X3  transformation  matrix  defined  such  that 
Adgc  = [GCMA^Q  Asmc,  where  A is  a vector  expressed  in  the  Descent 
Guidance  and  Platform  (sm)  coordinate  systems  respectively}  scaled 
B1  and  unitless;  program  notation  CG+0  through  CG+17. 

The  Descent  Guidance  coordinate  system  is  an  orthogonal, 
cartesian  system  where  the  X axis  is  along  the  radius  from  the 
center  of  the  moon  through  the  present  landing  site,  the  I axis 
is  defined  such  that  the  velocity,  acceleration  and  jerk  vectors 
at  the  landing  site  lie  entirely  in  the  X-Z  plane,  and  the  Z 6lx1s  is 
defined  such  as  to  complete  the  right  handed  system. 

®T,  ®T1:  See  SERV  section, 

^AV:  See  ALIN  section 

HCALC,  HDOTDISP;  See  SERV  section. 

HCAIXJI:  Double  precision  calculated  altitude  above  the  landing  site 

radius  for  display  in  Nouns  60,63  and  92,  scaled  B24  in  units  of  meters 
HCA101  is  set  to  HCAID  in  the  SEIRV  section  and  is  calculated  once 
per  second  in  "B0DCC»4P",. 


HIGHCRIT:  Single  precision  upper  limit  on  the  variable  throttle 
region  in  a situation  of  increasing  thrust  commands,  scaled  BI4 
in  units  of  DPS  throttle  pulses.  If  the  throttle  setting  is 
in  the  variable  region,  the  throttle  setting  commanded  by  the 
program  id.ll  correspond  directly  with  the  desired  thrust  until 
the  desired  thrust  exceeds  HIGHCRIT.  Then  the  program  will 
command  full  throttle.  HIGHCRIT  is  part  of  the  erasable  load. 

K:180DEGS:  Single  precision  constant  stored  as  180  x 2 scaled 
BI5  in  units  of  degrees  per  revolution.  Equation  value:  360. 

K:ld2DEG:  Single  precision  constant  stored  as  0.00278,  scaled  B-1 
in  units  of  revolutions.  Equation  value:  0.00139-  (Equivalent 
to  one-half  of  one  degree . ) 

K:2SECS:  Single  precision  constant  stored  as  200  x 2~^^,  scaled  BI4 
in  units  of  centlseconds . Equation  value:  200. 
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—1  A 

K:3SECS:  Single  precision  constant  stored  as  300  x 2 scaled  Bl4 
in  units  of  centiseconds.  Equation  value;  300. 

—1 L 

K:4FMAXN0M;  Single  precision  constant  stored  as  14908  x 2 scaled  . , 
B14  in  units  of  DPS  throttle  pulses.  Corresponds  to  4 x 3727  x 2~ 

The  3727  corresponds  to  10,500  Ibf.  converted  to  throttle  pulses. 
Equation  value;  14908. 

-28 

K;43ECb28;  Double  preclalon  constant  stored  as  400  x 2 , scaled 

B26  in  units  of  centiseconds.  Equation  value;  100. 

K:4SECS:  Single  precision  constant  stored  as  400  x 2 scaled  B14 
in  units  of  centiseconds.  Equation  value:  400. 

K:99999C0N:  Double  precision  constant  stored  as  30479.7  x 2 
scaled  B24  in  units  of  meters.  Equation  value:  30479.7. 

(Equivalent  to  99999  feet.) 

K:ABAFCNST:  Single  precision  constant  stored  as  0.13107,  program 
notation  /AF/CNST,  scaled  B-18  in  units  of  meters  per  centisecond 
squared  / centimeters  per  second  per  guidance  cycle.  Equation 
value:  5 E-7.  (Equivalent  to  J x 0.01  cubed.) 

K:AFTRGUrD.  (i  -=  -1  thru  2);  Table  of  single  precision  addresses  for 
branching.  Indexed  in  the  order  -1  thru  2,  they  are  the  addresses 
of:  CGCALC,  EXTLOGIC,  EXTLOGIC,  STEER?. 

K:AZEACH:  Single  precision  constant  stored  as  0.03491,  scaled  BO 
in  units  of  radians.  Equation  value:  0.03491.  (Equivalent  to 
2 degrees. ) 

K;BIASFACT:  Double  precision  constant  stored  as  655.36  x 2~  , scaled 

B11  in  units  of  seconds  meters  per  centimeter.  Equation  value;  0.02. 
(Stored  value  corresponds  to  2 sec  x 0.01  m/cm  x 

K;BIT1H;  Double  precision  constant  stored  as  1 x 2 scaled  B14  and 
unitless.  Equation  value;  1.0 

K;BIT6;  Single  precision  constant  stored  as  00040g,  scaled  B14  in  units 
of  DPS  throttle  pulses  per  centisecond.  Equation  value;  32. 

-28 

KtDDUMCRIT;  Double  precision  constant  stored  as  8 x 2 , scaled 

B28  in  units  of  centiseconds.  Equation  value;  8. 

_i 

K:DEPRCRIT:  Double  precision  constant  stored  as  -0.02  x 2 , scaled 

B1  in  units  of  radians.  Equation  value:  -0.02. 

—1 L 

K;DPSTHRSH;  Single  precision  constant  stored  as  36  x 2 scaled 
B14  in  units  of  centimeters  per  second.  Equation  value:  36. 
(Equivalent  to  K; THRESH 1 + K:THRESH3  of  the  BURN  section.) 

K:ELEACH:  Single  precision  constant  stored  as  0.00873,  scaled  BO  in 
units  of  radians.  Equation  value:  0.00873.  (Equivalent  to 
one-half  of  one  degree.) 
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K:FEXTRA;  Single  precision  constant  stored  as  10000-,  program 
notation  also  BIT13,  scaled  B14  in  units  of  DPS  tnrottle  pxilses. 

Equation  value:  4096.  (EquivaJ.ent  to  51,331  newtons  or  11,540 
pounds  force  based  on  the  value  of  KtSGALEFAC.) 

K:fmax:  Value  of  overflow  bit  on  a quantity  scaled  B14  in  units  of 
DPS  throttle  pulses.  Equation  value:  16384. 

K:FMAX0DD:  Single  precision  constant  stored  as  38Z.1  x 2 , scaled 

BI4  in  units  of  DPS  throttle  pulses . Equation  value : 3341 . 

(Equivalent  to  48,135  newtons  or  10,821  pounds  force  based  on  the 
value  of  K:SCAEEFAC.) 

K:FMAXP0S:  Single  precision  constant  stored  as  3467  x 2 scaled 
BI4  in  units  of  DPS  throttle  pulses.  Equation  value:  3467. 

(Equivalent  to  newtons  or  9,767  pounds  force  based  on  the 

value  of  K : SCAIiEFAC . ) 

K:GHZ:  Single  precision  constant  stored  as  1.62292  E-4  x 2^,  scaled 
B-4  in  \inits  of  meters  per  centisecond  squared.  Equation  value: 

1 .62292  E-4 

K:GSCALE:  Double  precision  constant  stored  as  100  x 2 scaled  B12 
in  units  of  centiseconds  per  navigation  cycle.  Equation  value:  200. 

—28 

K:G'UIDDIJRN:  Double  precision  constant  stored  as  66lU>0  x 2 , scaled 

B28  in  units  of  centiseconds.  Equation  value:  66440. 

-1 2 

K;HIGHESTF;  Double  precision  constant  stored  as  4.34546769  x 2 ; 

scaled  B12  in  units  of  kilogram  meters  per  centisecond  squared. 

Equation  value;  4.34546769.  (Equivalent  to  9,769  pounds  force.) 

K;KPIP1:  See  SERV  section. 
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K:M00NRATE:  Double  precision  constant  stored  as  0.2661699489  E-7  x 2 , 

scaled  B-19  in  units  of  radians  per  centisecond.  Equation  value: 
0.2661699489  E-7. 

KiNEWPHASE^  (i  = -1  thru  2);  Table  of  single  precision  addresses  for 
branching.  Indexed  in  the  order  -1  through  2,  they  are  the  addresses 
of:  TTFINGR,  TTFINGR,  STARTP64,  STARTP66. 

K:P64DB:  Single  precision  constant  stored  as  00155g,  scaled  B-3  in  units 

of  revolutions.  Equation  value:  0.00083.  (Equivalent  to  0.2994  degrees.) 

K:posmaxsp:  See  Major  Variables. 

K:PREGUIDE^  (i  = -1  thru  2);  Table  of  single  precision  addresses  for 

branching.  Indexed  in  the  order  - 1 through  2,  they  are  the  addresses 
of:  GALGRGVG,  RGVGGALG,  REDESIG,  RGVGGALG . 

_3 

K:PR0JMAX;  Single  precision  constant  stored  as  0.42262  X 2 , scaled 

B3  and  unitless.  Equation  value:  0,42262.  (Equivalent  to  the 
sine  of  25  degrees.) 

_3 

K:PR0JMIN:  Single  precision  constant  stored  as  0.25882  X 2 , scaled 

B3  and  unitless.  Equation  value;  0.25882.  (Equivalent  to  the 
sine  of  15  degrees.) 


IjSCAUFAC:  Double  preciaion  constant  stored  as  797.959872  x 2 , 

scaled  B16  in  Tinits  of  DPS  throttle  pulses  / kilogram  meter  per 
centisecond  squared.  Equation  value:  797.959872.  (Equivalent 
to  12.532  newtons  or  2. Si 73  pounds  force  per  pulse.) 

_-17 

KiSHITFACT:  Double  precision  constant  stored  as  1 x 2 , scaled  B17 

and  \initleS8.  Equation  value:  1.0. 

K:TARGTDEI.  (i  = -1  thru  I):  Table  of  single  precision  indexes,  scaled 
BI4  and  unitless.  Equation  value  indexed  in  the  order  -1  through  1: 
0,  0,  28. 

— 1 A. 

K:THR0T1AG:  Single  precision  constant  stored  as  20.  x 2~  , scaled  BI4 

in  units  of  centiseconds.  Equation  value:  20. 

K:TREDESCL:  Single  precision  constant  stored  as  -0.08,  scaled  B-3  in 
units  of  seconds  per  centisecond  . Equation  value;  -0.01  . 

g 

K;TRIMA.CCL;  Double  precision  constant  stored  as  3.50132708  E-5  x 2 , 
scaled  B-8  in  units  of  meters  per  centisecond  squared.  Equation 
value:  3.50132708  E-5. 

K:TSCALIN7:  Single  precision  constant  stored  as  0001 Og,  scaled  B11 
and  unitless.  Equation  value:  1. 

K;ttf6b3:  Double  precision  constant  stored  as  0.75,  program  notation 
3/4DP>  scaled  B3  and  unitless.  Equation  value:  6. 

K:ttf24b6:  Double  precision  constant  stored  as  0.375,  program  notation 
3/8DP,  scaled  B6  and  unitless.  Equation  value;  24. 

K;UNITX,  K:UNITZ;  Double  precision  vector  constants,  stored  as 

(0.5,  0,  0)  and  (0,  0,  0.5)  respectively,  scaled  B1  and  unitless. 
Equation  values:  0,  0,  0)  and  (0,  0,  1). 


K:WHATAIH.  (i  = -1  thru  1):  Table  of  single  precision  addresses  for 
branching.  Indexed  in  the  order  -1  through  1 they  are  the  addresses 
of;  I406POO,  I4O6A.LM,  I406A.LM. 

K;WHATDISP^  (i  = 0 thru  2):  Table  of  single  precision  addresses  for 
brsinchlng.  Indexed  in  the  order  0 through  2 they  are  the  addresses 
of:  P63DISPS,  P64DISPS,  VERTDISP. 


KtWHATEXIT^  (i  = -1  thru  I):  Table  of  single  precision  addresses  for 
branching.  Indexed  in  the  order  -1  through  1 , they  are  the  addresses 
of;  EXGSUB,  EXBRAK,  EINORM. 


K:WHATGDID.  (i  = -1  thru  2):  Table  of  single  precision  addresses  for 

branching.  Indexed  in  the  order  -1  through  2,  they  are  the  addresses 
of;  TTF/8CL,  TTF/8CL,  TTF/8CL,  CGCALC. 
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LA-OdTAU:  Double  precision  lag  time  divided  by  TAUROD,  scaled  BO  and 
unitless.  Program  notation  LAG/TAU;  part  of  the  erasable  load. 

IMD,  lANDTEMP:  Double  precision  position  vector  of  the  landing  site, 
scaled  B24  in  units  of  meters,  measured  from  the  center  of  the  moon 
and  expressed  in  the  Platform  coordinate  system. 

LANDMA.G;  Double  precision  radius  magnitude  of  the  landing  site,  scaled 
B24  in  units  of  meters;  program  notation  /LAND/. 

LASTTPIP;  Double  precision  storage  for  the  time  of  the  previous  PIPA 
reading  during  P66  (R.O.D.)  computations,  scaled  B28  in  units  of 
centiseconds. 


LAT;  see  COOR  section. 


lEADTIME;  Single  precision  negative  of  the  time  Increment  specifying 
how  far  the  guidance  computations  are  to  be  projected  forward  in  P63 
and  P64»  scaled  B17  in  units  of  centiseconds;  part  of  the  erasable 
load. 

yi504s  see  COGR  section. 

LONG;  see  COOR  section. 

LOOKANGL:  Single  precision  landing  site  elevation  angle,  scaled 

BI4  in  units  of  degrees.  LOOKANGL  is  calculated  as  the  complement 
of  the  angle  between  the  LM  +X  axis  and  the  negative  LOS,  which 
is  equivalent  to  the  angle  between  the  LM  YZ  plane  and  the 
positive  LOS. 

LOWCRIT:  Single  precision  upper  limit  on  the  variable  throttle  region 
in  a situation  of  decreasing  thrust  commands,  scaled  BI4  in  units 
of  DPS  throttle  pulses.  If  the  throttle  is  set  at  maximum  thrust, 
the  desired  thrust  must  fall  below  this  limit  before  the  program 
will  command  a throttle  setting  below  maximum.  LOWCRIT  is  part 
of  the  erasable  load. 

LUNDEI;  Single  precision  index  scaled  BI4  and  unitless. 

MASS:  See  SERV  section. 

MAXFORCE;  Double  precision  maximum  thrust  that  P66  will  command,  scaled 
B12  in  \mlts  of  kilogram  meter  per  centisecond  squared;  part  of  the 
erasable  load. 

MINFORCE:  Double  precision  minimum  thrust  that  P66  will  command,  scaled 
B12  in  units  of  kilogram  meter  per  centisecond  squared;  part  of  the 
erasable  load. 


MODREG:  See  DATA  section. 


jMOONMA'^  ; 


See  COOR  section. 
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j^SMMAT^:  See  COOR  section. 

NGUIDSUB:  Single  precision  counter  scaled  B14  and  unitless. 

NIGNLOOP:  Single  precision  coiuiter  scaled  BI4  and  unitless. 

OGABIAS:  See  BURN  section. 

OLDPUii  Single  precision  storage  for  the  accelerometer  readings  fPIPA) 
performed  at  time  THISTPIP  for  P66  computations,  scaled  BI4  in  units 
of  centimeters  per  second.  Note  that  this  is  different  from  the 
normal  two  second  C7cle  PIFA  reading  which  is  made  at  PIFTIME. 

OUTOFPLN;  Double  precision  distance  of  the  landing  site  from  the  LM 
orbital  plane  at  the  projected  time  of  Ignition,  scaled  B24  in  units 
of  meters.  (Positive  if  the  orbital  plane  is  to  the  right  of  the 
landing  site,  looking  in  the  direction  of  travel.) 

PIFj  Double  precision  change  in  the  desired  thrust  level,  scaled  BI4 
in  units  of  DPS  throttle  pulses. 

PIFPSET:  Single  precision  bias  on  the  throttle  command,  scaled  BI4 
in  units  of  DPS  throttle  pulses. 

PIPA,  PIPATMP;  See  SERV  section. 

PIPABIAS  , PIPABIAS  , PIPABIAS  : See  IMUC  section, 
x’  y’  z 

PIPTIME,  PIPTIME1;  See  SERV  section. 

£0INTVSM:  See  ATTM  section. 

POLDPIPA:  Single  precision  storage  for  the  previous  cycle  value  of 
OLDPIPA,  scaled  B14  in  units  of  centimeters  per  second;  program 
notation  RUPTREG. 

PREC:  Single  precision  specification  of  the  precision  to  which 
"ROOTPSRS"  is  to  converge,  scaled  BO  and  unltless. 

PROJ,  PR0J1 , PR0J2:  Single  precision  projection  of  the  Y Descent 
Guidance  coordinate  system  aocls  onto  the  unit  normal  to  the  plane 
defined  by  the  X body  axis  and  the  line-of -sight  vector,  and  the 
difference  between  that  projection  and  its  upper  and  lower  bounds; 
scaled  B3  and  unltless. 

PSEUD055:  Single  precision  storage  for  telemetry  of  the  throttle 

command  sent  to  the  descent  engine,  scaled  BI4  in  units  of  throttle 
pulses.  (See  definition  of  THRUST.) 

QHZ:  Single  precision  erasable  memory  constant  representing  the  gain  on 
UNFC,  scaled  BO  and  unitless;  part  of  the  erasable  load. 

R^SAVE:  Double  precision  temporary  storage  for  the  UNFC  vector, 
scaled  B7  in  units  of.  meters  per  centlsecond. 

R:  Double  precision  navigated  present  position  vector  of  the  LM, 
scaled  B24  in  units  of  meters,  measured  from  the  center  of  the 
moon  and  expressed  in  the  Platform  coordinate  system. 
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RA:  Single  precision  ratio  of  the  lag-diminished  TTF  to  TTF,  scaled 
BO  and  iinitless. 


RANGEDSP;  Double  precision  distance  from  the  LM  to  the  estimated  landing 
site,  scaled  B24  in  units  of  meters  (displayed  by  noun  68). 

MTT,  VATT  : see  ORBI  section. 


RCV,  VCV:  see  ORBI  section. 


see  COOR  section. 


RGU;  Double  precision  position  vector  of  the  LM,  scaled  B24  in  units 
of  meters,  measured  from  the  landing  site  on  the  moon's  surface 
and  expressed  in  the  Descent  Guidance  coordinate  system. 


^S:  Double  precision  vector  position  of  the  landing  site  relative 
to  the  center  of  the  moon,  scaled  B27  in  units  of  meters  and 
expressed  in  the  Selenographic  (moon-fixed)  coordinate  system; 
part  of  the  erasable  load. 


M,  VN:  see  SERV  section. 


RODCOUNT:  Single  precision  count  of  the  number  and  direction  of 
astronaut  deflections  of  the  rate -of-de scent  switch,  scaled 
BI4  and  unitless. 

R0DSCAL1 : Single  precision  working  storage  for  RDDSCALE,  scaled  B-7 
in  units  of  meters  per  centisecond. 

RODSCALE:  Single  precision  erasable  memory  quantity  representing 
the  velocity  Increment  to  be  added  or  subtracted  per  each  deflection 
of  the  R.O.D.  switch  during  P66,  scaled  B-7  in  units  of  meters  per 
centisecond;  part  of  the  erasable  load. 

ROOTGOOD:  Variable  introduced  as  a substitute  for  a variable  return 
address:  Set  to  2 or  0 to  indicate  a successful  or  non-success- 
ful  convergence  on  the  root  of  the  "ROOTPSRS"  polynomial. 

ROOTPS:  Double  precision  root  extracted  from  an  arbitrary  polynomial 
by  the  Newton  iteration  method,  scaling  and  units  variable. 

RTNHOLD;  Single  precision  octal  return  address  storage. 

SCAXIS:  see  ATTM  section. 

T5ADR:  see  DAPA  section. 

TARGADGq:  Double  precision  Hi -gate  acceleration  aimpoint  vector, 
scaled  B-4  in  units  of  meters  per  centisecond  squared  and 
expressed  in  the  Descent  Guidance  coordinate  system;  program 
notation  ADG  or  ABRFG;  part  of  the  erasable  load. 
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2.ARGADG  : Double  precision  Lo-gate  acceleration  aimpoint  vector, 
scaled  B-4  in  units  of  meters  per  oentisecond  squared  and 
expressed  in  the  Descent  Guidance  coordinate  sjstemj  program 
notation  AAPFGj  part  of  the  erasable  load. 

TARGRDG^:  Double  precision  Hi -gate  position  aimpoint  vector,  scaled 
B24  In  units  of  meters  and  expressed  in  the  Descent  Guidance 
coordinate  S7Stem}  progrsun  notation  BDG  or  RBRFGj  part  of  the 
erasable  load. 

TARGRDG^rt:  Double  precision  Lo-gate  position  aimpoint  vector,  scaled 

B24  units  of  meters  and  expressed  in  the  Descent  Guidance  coordinate 
systemj  program  notation  RAPFGj  part  of  the  erasable  load. 

TARGVDG^:  Double  precision  Hi -gate  velocity  aimpoint  vector,  scaled 
BIO  in  units  of  meters  per  centisecond  and  expressed  in  the  Descent 
Guidance  coordinate  system;  program  notation  VDG  or  VBRFG;  part 
of  the  erasable  load. 

TARGVD(^g:  Double  precision  Lo-gate  velocity  aimpoint  vector,  scaled 

B10  in  units  of  meters  per  centisecond  and  expressed  in  the  Descent 
Guidance  coordinate  system;  program  notation  VAPFG;  part  of  the 
erasable  load. 

TAT:  See  ORBI  section. 

TAUHZ:  Double  precision  time  constant  for  the  horizontal  velocity  nulling 

in  P66  Auto,  scaled  B11  in  units  of  centiseconds;  part  of  the  erasable  load. 

TAUROD:  Double  precision  time  constant  for  the  rate-of-descent  equations  in 
P66,  scaled  B9  in  units  of  centiseconds;  part  of  the  erasable  load. 

TCGF_;  Single  precision  quantity  representing  the  latest  time  at  which 
the  Descent  Guidance  coordinate  system  is  erected  in  the  braking  phase 
(P63,  WCHPHASE  = 0),  scaled  B17  in  units  of  centiseconds;  program 
notation  TCGFBRAK;  part  of  the  erasable  load. 

TGGFprt:  Single  precision  quantity  representing  the  latest  time  at  which 
the  Descent  Guidance  coordinate  system  is  erected  in  the  approach 
phase  (P64,  WCHPHASE  = I),  scaled  B17  in  units  of  centiseconds; 
program  notation  TCGFAPPR;  part  of  the  erasable  load. 

TCGIq!  Single  precision  qusintity  representing  the  earliest  time  at  which 
the  Descent  Guidance  coordinate  system  is  erected  in  the  Braking  phase 
(P63,  WCHPHASE  =0),  scaled  B17  in  units  of  centiseconds;  program 
notation  TCGIBRAK;  part  of  the  erasable  load. 

TCGIpg:  Single  precision  quantity  representing  the  earliest  time  at  which 
the  Descent  Guidance  coordinate  system  is  erected  in  the  approach  phase 
(P64,  WCHPHASE  =1),  scaled  B17  in  units  of  centiseconds;  program 
notation  TCGIAPPR;  part  of  the  erasable  load. 
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TDEC1 : See  ORBI  section. 


TEM;  See  SERV  section. 

TENDq!  Single  precision  quantity  representing  the  time  at  which  the 
approach  phase  (P64)  is  selected  (i.e.  WCHPHASE  goes  from  0 to  1 
thus  selecting  P64),  scaled  B17  in  units  of  centiseconds j program 
notation  TENDBRA.K;  part  of  the  erasable  load. 

TEND^ : Single  precision  quantity  representing  the  time  at  which  the 

vertical  phase  (P66)  is  automatically  selected  (i.e.  WCHPHASE  goes  from 
1 to  2 thus  selecting  P66  Auto  provided  the  Mode  Control  switch  is  in 
the:  Auto  position  j otherwise  P66  ’’Manual"  is  selected)  , 

scaled  B17  in  xmits  of  centiseconds;  program  notation  TENDAPPR;  part 
of  the  erasable  load. 

TET:  See  ORBI  section. 

THISTPIP:  Double  precision  time  of  PIPA  readings  for  P66  (R.O.D.) 
computations,  scaled  B28  in  units  of  centiseconds.  Note  that  this 
is  a different  reading  than  that  which  is  taken  at  PIPTIME. 

THRDISP;  Single  precision  quantity  representing  the  percent  that  desired 
thrust  is  of  10,500  Ibf.  for  display  in  Noun  92,  scaled  B14  and  unitless. 

THRUST:  Cell  used  to  provide  DPS  throttle  commands  by  setting  bit  4 
of  channel  14;  scaled  B14  in  units  of  DPS  throttle  pulses.  One 
pulse  corresponds  to  about  12.532  newtons  or  2.8173  pounds  force 
(depending  on  erosion  of  the  DPS  nozzle),  and  the  maximum  command 
recognized  by  the  throttle  is  3428  pulses  or  about  42,960  newtons 
or  9658  pounds  force. 

TIG:  see  BURN  section. 

TIMENOW:  see  EXVB  section. 

TLAND:  Double  precision  nominal  time  of  lunar  landing,  scaled  B28 
in  units  of  centiseconds;  part  of  the  erasable  load. 

TOOFEW:  Single  precision  erasable  memory  constant  used  to  initialize 
CNTTHROT,  scaled  BI4  and  unitless;  part  of  the  erasable  load. 

TPIP,  TPIPOLD:  Double  precision  storage  for  consecutive  times  of  entry 
in  the  TTF  incrementing  routine,  scaled  B28  in  iinlts  of  centiseconds 
and  used  to  increment  TTF . 

TREDES:  Single  precision  time  remaining  to  redesignate  the  landing 
site,  scaled  BI4  in  units  of  seconds  (limited  to  99). 
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TTF ,TTFTMP;  Double  precision  time  from  now  until  the  achievement  of  the 
target  conditions  of  the  present  guidance  phase,  scaled  B17  in  units  of 
centiseconds. 

TTFADGZ_:  Double  precision  Z component  of  TARGADG-  multiplied  b7  6} 
scaled  B-4  in  units  of  meters  per  centlsecond  squared;  program 
notation  ABRTC*  or  ADG2TTFqJ  part  of  the  erasable  load. 

TTFADGZ^gJ  Double  precision  Z component  of  TARGADG2g  multiplied  by  6; 
scaled  B-4  in  units  of  meters  per  centlsecond  squared;  program 
notation  AAPFG*  or  ADG2TTF2g;  part  of  the  erasable  load. 

TTFDISP:  Double  precision  storage  for  TTF  for  display  purposes, 
scsiled  B28  in  units  of  centiseconds. 

TTFJDGZq:  Double  precision  Hi -gate  jerk  aimpoint,  Z component  only, 
scaled  B-21  in  units  of  meters  per  centlsecond  cubed;  program 
notation  JBRFG*  or  JDG2TTF  ^ ; part  of  the  erasable  load. 

TTFJDGZ^g:  Double  precision  Lo-gate  jerk  aimpoint,  Z component  only, 
scaled  B-21  in  units  of  meters  per  centlsecond  cubed;  program 
notation  JAPFG*  or  JDG2TTF2g;  part  of  the  erasable  load. 

TTFVDGZ  : Double  precision  Z component  of  TARGVDGq  multiplied  by  18; 
scaled  B13  in  units  of  meters  per  centlsecond;  program  notation 
VBRFG*  or  VDG2TTFq;  part  of  the  erasable  load. 

TTFVDGZ2gS  Double  precision  Z component  of  TARGVDGpg  multiplied  by 
18;  scaled  B13  in  units  of  meters  per  centlsecond;  program  notation 
VAPFG*  or  VDG2TTF  rt;  part  of  the  erasable  load. 

mCO 

TTHROT:  Single  precision  time  of  the  last  throttle  command,  scaled 
B14  ia  \inits  of  centiseconds. 

^ITR:  See  SBRV  section. 

MFC:  See  BURN  section.  During  the  pre-ignition  phase  computations 
for  the  powered  descent  maneuver  (P63),  MFC  represents  the  Delta-V 
vector  for  the  pre-full  throttle  thmst,  scaled  B7  in  units  of  meters 
per  centlsecond. 

MWC:  See  BURN  section. 


V;  Double  precision  present  navigated  velocity  vector  of  the  LM, 
scaled  B7  in  units  of  meters  per  centlsecond  and  expressed  in 
the  Platform  coordinate  system. 
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VBIAS:  Double  precision  velocity  bias  factor  based  on  FIFA  bias  values 
for  F66  (R.O.D.)  computations,  scaled  B8  in  iinits  of  meters  per 
centisecond. 

VDGVERT;  Double  precision  vertical  component  of  velocity  desired 
in  the  final  (vertical)  phase  of  descent,  scaled  B7  in  units 
of  meters  per  centisecond;  altered  in  response  to  astronaut  commands 
during  majiual  descent  control. 

VGU:  Double  precision  velocity  vector  of  the  LM  relative  to  the 
rotating  moon,  scaled  BIO  in  units  of  meters  per  centisecond 
and  expressed  in  the  Descent  Guidance  coordinate  system. 

VHZC;  Double  precision  velocity  vector  representing  the  inertial  velocity 
of  a point  at  the  LM  as  if  it  were  rotating  with  the  moon,  scaled  B7  in 
units  of  meters  per  centisecond. 

WCHFHASE;  Single  precision  index  scaled  B14  and  unitless.  Set  to  -1 
in  the  pre-ignition  phase  ("F63LM”)>  0 at  ignition  ("F63IGN"),  1 
when  TTF  (negative)  is  greater  than  minus  TEND„  (”EXTL0GIC")  thus 
selecting  F64,  and  2 when  TTF  is  greater  than  minus  TEND^  ("EXTLOGIC") 
thus  selecting  P66  Auto  or  when  the  astronaut  switches  out  of  automatic 
control  selecting  F66  "Manual"  ("STRTP66A") 

WCHPHOLD:  Single  precision  storage  for  WCHFHASE  to  preserve  the  present 
guidance  mode  through  the  present  guidance  cycle  when  WCHFHASE 
changes. 

WCHVERT;  Single  precision  flag  to  Indicate  whether  the  astronaut 
has  responded  to  the  flashing  V06N60  display  in  P66  with  either 
a PROCEED  or  ENTER. 

WHICH;  See  BURN  section. 

Double  precision  mean  angular  velocity  vector  of  the  moon, 
scaled  B-17  in  units  of  radians  per  centisecond  and  expressed  in 
the  Platform  coordinate  system. 

PBPIP,  YNBPIP,  ZNBPIF;  See  SERF  section. 

ZERLINA;  Single  precision  counter  scaled  B14  and  unitless. 

ZOOMTIME;  See  BURN  section. 
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dint 


Display  Interface  Routines 


GODSP 


GODSPR 


GODSPRET 


GOFLASH 


GOFLASHR 


GOPERFl 


TSaddr  = address  of  step  that  proceeded  to  "GODSP" 
MPAC^  = TS 
MPAC^  = OOOOOg 
Proceed  to  "GOFLASH2" 

TSaddr  = address  of  step  that  performed  "GODSPR" 
MPAC^  = TS 
MPAC^  = OOOOOg 
Proceed  to  "GODSPRSl" 

TSaddr  = address  of  step  that  performed  "GODSPRET" 
MPAC^  = TS 

MPAC^  = 00040g  (DOTHNRET) 

Proceed  to  "G0FLASH2" 

TSaddr  = address  of  step  that  proceeded  to  "GOFLASH" 
MPAC^  = TS 

MPAC^  = OOOlOg  (FLREQ) 

Proceed  to  "GOFLASH2" 

TSaddr  = address  of  step  that  perfonned  "GOFLASHR" 
MPAC^  = TS 

MPAC^  = OOOlOg  (FLREQ) 

Proceed  to  "GODSPRSl" 

TSaddr  = address  of  step  that  proceeded  to  "GOPERFl" 
DSPTEMl  = TS 

MPAC^  = K:V01N25  (octal  display  of  DSPTEMl  in  Rl) 
MPAC^  = 00036g  (PERFREQ,  FLREQ,  R3BLNK,  R2BLNK) 

Proceed  to  "G0FLASH2" 


DINT  - 1 


GOPERFIR 


GOPERF2 


GQPERF2R 


GOPERFZ^ 


G0PERF4R 


REGODSP 


TSaddr  = address  of  step  that  performed  '!G0PERF1R" 

DSPTEMl  = TS 

MPAC^  = K:V01N25  (octal  display  of  DSPTEMl  in  Rl) 

MPAC^  = 00036g  (PERFREQ,  FLREQ,  R3BLNK,  R2BLNK) 

Proceed  to  "GODSPRSl" 

TSaddr  = address  of  step  that  proceeded  to  "GOPERF2" 

MPAC^  = TS 

MPAC^  = 00030g  (PERFREQ,  FLREQ) 

Proceed  to  "G0FLASH2" 

TSaddr  = address  of  step  that  performed  "GOPERF2R" 

MPAC^  = TS 

MPAC^  = 00030g  (PERFREQ,  FLREQ) 

Proceed  to  "GODSPRSl" 

TSaddr  = address  of  step  that  proceeded  to  "GOPERF4" 

MPAC^  = K:V04N06  (octal  display  of  OPTIONl  and  0PTI0N2) 
MPAC^  = OOOlAg  (FLREQ,  R3BLNK) 

Proceed  to  "GOFLASH2" 

TSaddr  = address  of  step  that  performed  "GOPERF4R" 

MPAC^  = K:V04N06  (octal  display  of  OPTIONl  and  0PTI0N2) 
MPAC^  = 00014g  (FLREQ,  R3BLNK) 

Proceed  to  "GODSPRSl" 

TSaddr  = address  of  step  that  proceeded  to  "REGODSP" 

MPAC^  = TS 

MPAC^  = 20000g  (RESETREQ) . 

Proceed  to  "G0FLASH2" 


DINT  - 2 


REGODSPR 


REFLASH 


REFLASHR 


CLEANDSP 


GQXDSP 


GOXDSPR 


TSaddr  = address  of  step  that  performed  "REGODSPR" 
MPAC^  = TS 

MPAC^  = 20000g  (RESETREQ) 

Proceed  to  "GODSPRSl" 

TSaddr  = address  of  step  that  proceeded  to  "REFLASH" 
MPAC^  = TS 

MPAC^  = 20010g  (RESETREQ,  FLREQ) 

Proceed  to  "GOFLASH2" 

TSaddr  = address  of  step  that  perfomed  "REFLASHR" 
MPAC^  = TS 

= 20010g  (RESETREQ,  FLREQ) 

Proceed  to  "GODSPRSl" 

TSaddr  = address  of  step  that  proceeded  to  "CLEIANDSP" 
MPAC^  = OOOOOg 

MPAC^  = 20010g  (RESETREQ,  FLREQ) 

Proceed  to  "GOFLASH2" 

TSaddr  = address  of  step  that  proceeded  to  "GQXDSP" 
MPAC^  = TS 

MPAC^  = 40000g  (MKEXREQ) 

Proceed  to  "G0FLASH2" 

TSaddr  = address  of  step  that  performed  "GOXDSPR" 
MPACj^  = TS 

MPAC^  = AOOOOg  (MKEXREQ) 

Proceed  to  "GODSPRSl" 


(GOMARK) 


(GOMARKR) 


DINT  - 3 


EXDSPRET 


GQXDSPF 


GOXDSPFR 


G0MARK2 


G0MARK2R 


GOMARK3 


GOMARK3R 


TSaddr  = address  of  step  that  performed  "EXDSPRET" 
MPAC^  = TS 

MPAC^  = 40040g  (MKEXREQ,  DOTHNRET) 

Proceed  to  "GOFLASH2" 

TSaddr  = address  of  step  that  proceeded  to  "GQXDSPF" 
MPAC^  = TS 

MPAC^  = 40010g  (MKEXREQ,  FLREQ) 

Proceed  to  "GOFLASH2" 

TSaddr  = address  of  step  that  performed  "GOXDSPFR" 
MPAC^  = TS 

MPAC^  = 40010g  (MKEXREQ,  FLREQ) 

Proceed  to  "GODSPRSl" 

TSaddr  = address  of  step  that  proceeded  to  "G0MARK2" 
MPAC^  = TS 

MPAC^  = 40030q  (MKEXREQ,  PERFREQ,  FLREQ) 

Proceed  to  "G0FLASH2" 

TSaddr  = address  of  step  that  performed  "G0MARK2R" 
MPAC^  = TS 

MPAC^  = 40030q  (MKEXREQ,  PERFREQ,  FLREQ) 

Proceed  to  "GODSPRSl" 

TSaddr  = address  of  step  that  proceeded  to  "GOMARK3" 
MPAC^  = TS 

MPAC^  = 40230g  (MKEXREQ,  DECVERB,  PERFREQ,  FLREQ) 
Proceed  to  "GOFLASH2" 

Analogous  to  "G0MARK2R"  except  MPAC,  = 40230^ 

4 o 


(GOMARKF) 


(GOMARKFR) 


DINT  - 4 


GOMARKA 


TSaddr  = address  of  step  that  proceeded  to  "GOMARK4" 


KLEENEX 


PRIODSP 


PRIODSPR 


GOFLASH2 


GODSPRSl 


MPACj^  = TS 

MPAC^  = 40036g  (MKEXREQ,  PERFREQ,  FLREQ,  R3BLNK,  R2BLNK) 
Proceed  to  "GOFLASH2" 

TSaddr  = address  of  step  that  proceeded  to  "KLEENEX" 

MPAC,  = OOOOQ, 

1 8 

MPAC^  = 40010g  (mKEXREQ,  FLREQ) 

Proceed  to  "G0FLASH2" 

TSaddr  = address  of  step  that  proceeded  to  "PRIODSP" 

MPACj^  = TS 

MPAC^  = OOllOg  (PRIOREQ,  FLREQ) 

Proceed  to  "C30FLASH2" 

TSaddr  = address  of  step  that  performed  "PRIODSPR"  or  "PRIOLARM' 
MPAC^  = TS 

MPAC^  = OOllOg  (PRIOREQ,  FLREQ) 

Proceed  to  "GODSPRSl" 

Inhibit  interrupts 

Set  bits  11-9  of  MPAC,  = EBANK 

MPAC^  = TSaddr 

Release  interinipt  inhibit 

Proceed  to  "MAKEPLAY" 

Inhibit  interrupts 

Establish  "MAKEPLAY"  (if  a flashing  register  display  use 

VAC,  if  not  no  VAC;  priority  same 
Set  bits  11—9  of  MPAC^  = EBANK  as  current  job) 

MPAC^  = TSaddr 


DINT  - 5 


BLANKET 


MAKEPLAY 


OKTOPLAY 


Set  MPACj^  of  "MAKEPLAY"  job  = MPAC^  of  present  job  for  i = 1-4 
Release  interrupt  inhibit 

Return  (in  listing  return  is  to  calling  address  + 4>  except  if 
called  by  "GODSPR",  "REGODSPR" , or  "GOXDSPR»»  then  to 
caller  + l) 

Svdtch  MPAC^  bits  indicated  by  a binary  1 in  TS  to  1 
Set  MPAC^  of  "MAKEPLAY"  job  = MPAC^  of  present  job 
Return 

USERPRIO  = priority  of  present  job 

Change  priority  to  33  (higher  than  "CHARIN") 

If  bit  15  of  MPAC^  (MKEXREQ)  = 1,  proceed  to  "MAKEMARK" 

If  bit  7 of  MPAC^  (PRIOREQ)  = 1,  proceed  to  "MAKEPRIO" 

COPINDEX  = 2 

If  bit  14  of  MPAC,  (RESETREQ)  = 1 : (REGODSP,  REFLASH,  CLEANDSP 

^ REGODSPR,  REFLASHR) 

If  CADRFLSH2  / MPAC^,  proceed  to  "OKTOPLAY" 

If  DSPLOCK  = 0,  proceed  to  "OKTOPLAY" 

End  job  (display  is  already  set  andDSKY  is  busy;  see 

"CLOKJOB"  for  example) 

If  DSPFLG2  bit  4 (FLREQ)  = 0,  proceed  to  "OKTOPLAY" 

(Normal  displays  not  requiring  astronaut  action  can  be 
replaced  by  other  normal  displays) 

If  FLAGWRD4  bits  13  (NRMIDFLG),  10  (NWAITFLG),  8 (NRMNVFLG) 
and  4 (NRUPTFLG)  are  all  zero,  proceed  to  "OKTOPLAY" 

(not  replacing  a display  that  has  not  yet  been  displayed) 

Proceed  to  "BAILOUT"  with  TS  * 31502g 

Ctwo  simultaneous  requests  for  normal  display) 

Inhibit  interrupts 

DSPFLG„  = MPAC, 

^ 4 

If  DSPFLG2  bit  6 (DOTHNRET)  or  4 (FLREQ)  = 1: 

CADRFLSf^  = MPAC^ 


DINT  - 6 


PLAYJUMl 


MAKEMARK 


NVWORD2  = MPAC^ 

Release  interrupt  inhibit 

If  FLAGWRD4  bit  15  (MRKIDFLG),  U (PRIODFLG),  12  (PDSPFLAG), 

11  (MWAITFLG),  9 (MRKNVFLG),  7 (PRONVFLG),  5 (MRUPTFLG)  or 
1 (XDSPFLAG)  = 1: 

Switch  FLAGWRD4  bit  10  (NWAITFLG)  to  1 
MPACq  = COPINDEX  - 1 

If  a job  with  LOG  = "PLAYJUMl"  is  asleep: 

Awaken  it  and  set  its  LOG  = "ENDOFJOB"  (kill  it) 

Put  this  job  to  sleep  with  a LOG  = "PLAYJUMl"  (MPAGq  ^ 
maintained  in  sleep) 

When  awakened  , proceed  to  address  specified  in  its  LOG 

(Otherwise,  this  job  is  free  to  proceed  to  use  the  DSKY) 

Perform  "WITGHONE" 

If  a job  with  LOG  = TS  is  asleep: 

Awaken  it  and  set  its  LOG  = "ENDOFJOB"  (kill  it) 

GOP INDEX  = 2 (GOPINDEX  not  maintained  by  sleeping  job) 

Proceed  to  "NVDSP" 

GOPINDEX  = 1 

Inhibit  interrupts 

DSPFLG,  = MPAG, 

-L  4 

If  DSPFLG^  bit  6 (DOTHNRET)  or  4 (FLREQ)  = 1: 

GADRFLSH^  = MPAG^ 

NVWORD^  = MPAG^ 

Release  interrupt  inhibit 

If  FLAGWRD4  bit  14  (PRIODFLG),  13  (NRMIDFLG),  12  (PDSPFLAG), 

8 (NRMNVFLG)  and  7 (PRONVFLG)  are  all  0:  ( no  normal  or 

priority  display  waiting  for  a response  or  a key  release) 


DINT  - 7 


( If  FLAGWRD4  bit  U ...  are  all  0: ) 


MARKPLAY 


MAKEPRIO 


If  FLAGWRD4  bit  9 (MRKNVFLG)  =1,  end  job 
Proceed  to  "MARKPLAY” 

If  FLAGWRD4  bit  U (PRIODFLG) , 12  (PDSPFLAG)  and  7 (PRONVFLG) 
are  all  0;  (interrupt  if  a normal  display) 

Switch  FLAGWRD4  bit  3 (MKOVFLAG)  to  1 

MPACq  = 1 

Proceed  to  "JOBXCHS"  (substitute  mark  for  normal  display) 

If  FLAGWRD4  bit  11  (MWAITFLG)  or  5 (MRUPTFLG)  = 1,  end  job 
(otherwise,  put  mark  to  sleep  until  prio  display  is  over) 

Switch  FLAGWRD4  bit  11  (MWAITFLG)  to  1 
MPACq  = COP INDEX  - 1 

If  a job  with  LOG  = "MARKPLAY"  is  asleep: 

Awaken  it  and  set  its  LOG  = "ENDOFJOB"  (kill  it) 

Put  this  job  to  sleep  with  a LOG  = "MARKPLAY" 

When  awakened,  proceed  to  address  specified  in  its  LOG 
Inhibit  interrupts 

Switch  FLAGWRD4  bit  3 (MKOVFLAG)  to  0 and  bit  1 (XDSPFLAG)  to  1 
Release  interrupt  inhibit 

If  DSPFLG^  bit  5 (PERFREQ)  = 1,  NVWORD^  = -NVWORD^ 

COPINDEX  = 1 
Proceed  to  "NVDSP" 

COPINDEX  = 0 

If  bit  14  (RESETREQ)  of  MPAC,  = 0: 

4 

If  FLAGWRD4  bit  14  (PRIODFLG)  or  7 (PRONVFLG)  = 1,  proceed 
to  "BAILOUT"  with  TS  *=  31502g  (too  many  priority  displays) 


DINT  - 8 


OKTOCOPY 


REDOPRIO 


JOEKCHS 


If  bit  14  of  MPAC,  (RESETREQ)  = 1:  (not  expected) 

4 

If  CADRFLSHq  = MPAC^  and  DSPLOCK  > 0,  end  job 
If  FLAGWRD4  bit  15  (MRKIDFLG)  or  9 (MRKNVFLG)  = 1: 

MPACq  = 0 

Proceed  to  "JOBXCHS"  (replace  mark  vd.th  prio  display) 
If  FLAGWRD4  bit  13  (NRMIDFLGJ  or  8 (NRMNVFLG)  = 1: 

MPACq  = 1 

Proceed  to  "JOBXCHS"  (replace  norm  with  prio  display) 
COPINDEX  = 0 
Inhibit  interrupts 
DSPFLGq  = MPAC^ 

If  DSPFLGq  bit  6 (DOTHNRET)  or  4 (FLREQ)  = 1: 

CADRFLSHq  = MPAC^ 

NVWORDq  = MPAC^ 

Release  interrupt  inhibit 
Perform  "WITCHONE" 

If  a job  with  LOC  = TS  is  asleep: 

Awaken  it  and  set  its  LOC  = “ENDOFJOB" 

PRIOTIME  = less  significant  half  of  TIMENOW 
COPINDEX  = 0 
Proceed  to  "NVDSP" 

Perform  "WITCHONE" 

If  a job  with  LOC  = TS  is  asleep: 

Awaken  it  and  set  its  LOC  = "XCHSLEEP"  (to  cause  it 
to  continue  at  "XCHSLEEP"  vrtien  this  job  is  finished) 


DINT  - 9 


(If  a job  with  LOG  = TS  is  asleep;) 


Set  MPACq  of  awakened  job  = MPACq  of  this  job 
If  MPACq  = G:  (mark  display  replaced  by  a priority  display) 

Switch  FLAGWRD4  bits  15  (MRKIDFLG)  and  9 (MRKNVFLG)  to  0 
Switch  FLAGWRD4  bit  5 (MRUPTFLG)  to  1 
If  MPACq  = 1:  (normal  display  replaced  by  mark  or  prio) 

Switch  FLAGWRD4  bits  13  (NRMIDFLG)  and  8 (NRMNVFLG)  to  0 
Switch  FLAGWRD4  bit  4 (NRUPTFLG)  to  1 
If  FLAGWRD4  bit  3 (MKOVFLAG)  = 1,  proceed  to  "MARKPLAY" 

Proceed  to  "OKTOCOPY"  (priority) 

XCHSLEEP  If  MPACq  = 0,  TS  = "MARKPLAY" 

If  MPACq  =1,  TS  = "PLAYJUMl" 

If  a job  with  LOC  = TS  is  asleep: 


Awaken  it  and  set  its  LOC  = "ENDOFJOB"  (kill  it) 
Put  this  job  to  sleep  and  set  its  LOC  = TS 


When  awakened,  proceed  to  the  address  specified  in  its  LOC 
WITCHONE  Switch  bit  5 of  channel  11  to  0 (key  release  lamp  off) 

If  FLAGWRD4  bit  9 (MRKNVFLG),  8 (NRMNVFLG)  or  7 (PRONVFLG)  = 1: 


TS  = DSPLIST 
DSPLIST  = +0 
Retiarn 


(job  active  in  the  display 
interface  routines  is  one 
that  is  awaiting'  astronaut 
release  of  the  DSKY) 


TS  = CADRSTOR 
CADRSTOR  = 40 
Return 


(job  active  in  the  display 
interface  routines  is  one 
that  is  awaiting  an  astro- 
naut response) 


DINT  - 10 


NVDSP 


i = COPINDEX 


GENMASK  = K:dspoctabj_ 

MPAC,  = DSPFLG. 

EBANK  = bits  11-9  of  DSPFLG^ 

TSmonopt  = bits  3-1  of  DSPFLG^ 

Svd-tch  DSPFLG^  bit  13  (2NDPEEiF)  to  0 
TSdec  = bit  8 of  DSPFLG^  (DECVERB) 

MPAC2SAV  = MPAC2 
MARK2PAC  = MPAC2 
If  NVWDRD^  = 0: 

Establish  "JAMTERM"  (force  return  to  calling  (pr32) 

address  + l) 

Proceed  to  second  step  of  "FLASHSUB" 

If  NVWDRDj_  0: 

TSvn  = NVWDRD. 

1 

If  NVWDRD^  0:  (expected  only  with  marks) 

NVWORD^  = - NVWORD^ 

TS  = K:V05N00 

If  TSdec  = 00200g  (bit  8 = l),  TS  = K:V06N00 
TSvn  = TS  + low  7 bits  of  NVWDRD^  (verb  5 or  6 with  noun 
NV50DSP  Perform  "NVSUB" 

If  FREEDSKY  = 0:  (display  system  in  use  externally) 

If  CADRSTOR  / 0,  end  job 
If  COPINDEX  = 0 (GENMASK  = 20144q)  : 

Switch  FLAGWRD4  bit  7 (PRONVFLG)  to  1 
TSadr  = "REDOPRIO" 


DINT  - 11 


(If  FREEDSKY  = 0:) 

If  COPINDEX  = 1 (GENMASK  = 42424g) : 

Switch  FLAtMffl/i:  bit  9 (MRKNVFLG)  to  1 
TSadr  = "MARKPLAY" 

If  COPINDEX  = 2 (GENMASK  = 11254g): 

Switch  FLAGWRD4  bit  8 (NRMNVFLG)  to  1 
TSadr  = "PLAYJUMl" 

(CADRSTOR  = 0 from  above) 

If  DSPLIST  ^ 0,  proceed  to  ''BAILOUT"  with  TS  = 31206g 
Switch  bit  5 of  channel  11  to  1 (light  key  release  lamp) 
DSPLIST  = TSadr 

Put  this  job  to  sleep  with  a LOG  = TSadr 

When  awakened,  proceed  to  address  specified  in  its  LOG 

Switch  bit  6 of  channel  11  to  0 (verb-noun  flash  off) 

MPAC^  = MPAC2SAV 

i = COPINDEX 

GENMASK  = K:dspoctab^ 

MPAC,  = DSPFLG. 

4 1 

EBANK  = bits  11-9  of  MPAC, 

4 

Switch  FLAGWRD4  bits  9 (MRKNVFLG),  8 (NRMNVFLG)  and  7 (PRONVFLG)  to  0 
Perform  "BLANKSUB"  with  TSblank  = MPAC^  (blank  extraneous  Registers) 
If  FREEDSKY  = 0,  proceed  to  "NVDSP" 

If  MPAC^  bit  5 (PERFRbQ)  = 1 and  bit  13  (2NDPERF)  = 0: 

Switch  DSPFLG^  bit  13  (2NDFERF)  to  1 

TSvn  = bits  14-8  of  NVWDPJD^  (mark  verb  code) 

TSmonopt  = OOOOOg 

If  DSPFLGj^  bit  15  (MKEXREQ)  = 1,  proceed  to  "NV5ODSP" 


DINT  - 12 


(If  PERFIB3=  1 and  2NDPERF  = 0) 


RELDSP 


RELDSPl 


FLASHSUB 


If  DSPFLG^  bit  12  (BURNREQ)  = 1,  TSvn  = K;V97N00-NVW0RD1 
If  DSPFLG^  bit  12  (BURNREQ)  = 0,  TSvn  = K:V50NCX) 

Proceed  to  "NV50DSP" 

If  MPAC,  bit  4 (FLREQ)  = 1,  proceed  to  "FLASHSUB" 

4 

If  MPAC,  bit  6 (DOTHNRET)  = 1: 


Change  priority  of  this  job  to  that  stored  in  USERPRIO 


Proceed  to  step  following  that  whose  address  is  stored 


in  CADRFLSH 


COPINDEX 


If  low  7 bits  of  NVWORD^  = 0,  proceed  to  "FLASHSUB" 


End  job 

Switch  bit  14  of  MDNSAVEl  to  0 (turn  off  external  monitor 

priority  indicator) 

If  DSPLIST  0:  (display  job  waiting  for  key  release) 


Awaken  job  with  LOC  = DSPLIST 
DSPLIST  = 0 

Switch  bit  5 of  channel  11  to  0 (key  release  lamp  off) 
DSPLOCK  = 0 


Return 

If  DSPLIST  = 0,  switch  bit  5 of  channel  11  to  0 (key  rel  off) 

DSPLOCK  = 0 

Return 

Switch  bit  6 of  channel  11  to  1 (start  verb— noun  flash) 

MPAC^  = COPINDEX 

If  GENMASK  = 20144g,  switch  FLAGWRD4  bit  14  (PRIODFLG)  to  1 
If  GENMASK  = 42424q,  switch  FLAGWRD4  bit  15  (MRKIDFLG)  to  1 


DINT  - 13 


If  GENMASK  = 11254g,  switch  FLAGWRD4  bit  13  (NRMIDFLG)  to  1 
If  COPINDEX  = 1 and  RISAVE  = 2: 

RISAVE  = 0 

Return  to  address  specified  by  CADRFLSH^  + 3 
If  CADRSTOR  ^ 0: 

If  FLACMfflA  bits  15  (MRKIDFLG)  and  6 (PINBRFLG)  both  = 0 

Proceed  to  "BAILOUT"  with  TS  * 31502o 

8 

End  job 

If  DSPLIST  ^ 0,  proceed  to  "BAILOUT"  with  TS  = 31206 

8 

CADRSTOR  = K:IDLERET1 


Put  this  job  to  sleep  with  a LOG  = CADRSTOR 
When  awakened,  proceed  to  address  specified  in  its  LOG 
VBTERM  LOADSTAT  = -1  (verb  34) 


Skip  next  3 steps 

VBPROC  LOADSTAT  = 1 (verb  33) 

Skip  next  step 

VBRESEQ.  LOADSTAT  = -0  (verb  32) 

MONSAVEl  = 40000g  (kill  monitor) 

Perform  "RELDSP" 

Switch  bit  6 of  channel  11  to  0 (verb-noixn  flash  off) 

Proceed  to  "RECALTST" 

LOADLV  DECBRNCH  = OOOOOg  (data  entry,  mark  verb  etc.) 

LOADSTAT  = -O 
Perform  "RELDSP" 


DSPCOUUT  = -19 
Proceed  to  "RECALTST" 


DINT  - 14 


RECALTST  If  CADRSTOR  = 0,  end  job 
TSadr  = CADRSTOR 
CADRSTOR  = 0 
Inhibit  interrupts 
Awaken  job  with  LOC  = TSadr 

If  LOADSTAT  = -1,  set  LOC  of  awakened  job  to  "TERMATE" 

If  LOADSTAT  = 1,  set  LOC  of  awakened  job  to  "PROCEED" 

If  LOADSTAT  = -0,  set  LOC  of  awakened  job  to  "IDLEREr3" 
TSnoim  = NOUNREG  (MPAC^  of  awakened  job) 

TSverb  = VERBRBG-  (MPACq  of  awakened  job) 

Release  interrupt  inhibit 
Perform  "RELDSP" 

End  job 

IDLERET3  If  TSverb  = 21,  22  or  23:  (data  load) 

i = MPAC^  (COPINDEX) 

If  TSnoun  ^ low  7 bits  of  NVWORD^,  proceed  to  "PINBRNCH" 
(load  is  not  in  response  to  request) 

OUTHERE  = 2 

Skip  next  3 steps 

PROCEED  OUTHERE  = 1 

Skip  next  step 

TERMATE  OUTHERE  = 0 

If  FLAGWRD4  bit  15  (MRKIDFLG)  = 1,  proceed  to  "MARKRET" 

If  FLAGWRD4  bit  14  (PRIODFLG)  = 0,  proceed  to  "NORMRET" 

TS  = (less  significant  half  of  TIMENOW)  - PRIOTIME 


DINT  - 15 


If  TS  < 0,  TS  = 16384  + TS 

If  TS  < K:l2s^B14;  (Priority  display  not  up  for  2 seconds) 
COPINDEX  = 0 
Proceed  to  "NVDSP" 

NORMRET  If  FLAGWRD4  bit  11  (MWAITFLG)  or  5 (MRUPTFLG)  = 1: 

Proceed  to  "MARKWAKE" 

If  FLAGWRD4  bit  10  (NWAITFLQ)  or  4 (NRUPTFLG)  = 1: 

Proceed  to  "NORMWAKE" 

If  DSPFLG2  bits  4 (FLREQ)  and  6 (DOTHNRET)  both  = 0 and  NVWORD^  ^ 0 
Establish  "PLAYJIJMl"  (prl5) 

Skip  next  step 

MARKRET  Switch  FLAGWRD4  bit  3 (MKOVFLAG)  to  0 (also  bit  2 - meaningless) 

ENDRET  If  OUTHERE  < 0,  end  job 

If  GENMASK  = 20144rt,  switch  FLAGWRD4  bits  14  (PRIODFLG)  and 
6 (PINBRFLG)  to  0 

If  GENMASK  = 42424g,  switch  FLAGWRD4  bit  15  (MRKIDFLG)  to  0 

If  GENMASK  = 11254rt,  switch  FLAGWRD4  bits  13  (NRMIDFLG)  and 
6 (PINBRFLG)  to  0 “ 

TSvn  = -3 

TSmonopt  = 0 

Perform  "NVSUB"  (Blank  display  excepting  MM  nimiber) 

Change  priority  of  this  job  to  that  specified  in  USERPRIO 
i = MPAC^  (COPINDEX) 

MPAC„  = CADRFLSH. 

3 1 

If  OUTHERE  = 0,  proceed  as  specified  in  the  "if  terminate" 
option  at  the  step  vdiose  address  is  stored  -in  MPACU 
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NORMWAKE 


MARKWAKE 


PINBRNCH 


ENDEXT 


If  OUTHERE  = 1,  proceed  aa  apeoified  in  the  "if  proceed" 
option  at  the  atep  whose  addresa  la  atored  In  MPAC^ 

If  OUTHERE  = 2,  proceed  aa  apecified  in  the  "other  reaponae" 
option  at  the  step  whose  address  is  atored  In  MPAC^ 

Switch  FLAGWRD4  bit  4 (NRDPTFLG)  and  10  (NWAITFLG)  to  0 

Awaken  job  with  LOG  = "PLAIJDMl" 

Proceed  to  "ENDRET" 

Switch  FLAGWRD4  bit  5 (MRUPTFLG)  and  11  (MWAITFLG)  to  0 
Awaken  Job  with  LOG  = "MARKPLAI" , 

Proceed  to  "ENDRET" 

Release  interrupt  inhibit  (if  any) 

MPAG2  = MARK2PAG 

If  FLAGWRD4  bits  15  (MRKIDFLG),  14  (PRIODFLG) , and  13  (NRMIDFLG) 
all  = 0: 

TSvn  = -3 

TSmonopt  = OOOOOg 

Perform  "NVSUB" 

End  Job 

If  FLAGWRD4  bit  15  (MRKIDFLG)  = 1,  proceed  to  "MARKPLAI" 

Proceed  to  "NORMBNGH" 

EXTVBAGT  = OOOOOg 
Inhibit  Interrupts 

Switch  FLAGWRD4  bit  1 (XDSPFLAG)  to  0 
Release  interrupt  inhibit 
OUTHERE  = -1 

If  FLAGWRD4  bit  I4  (PRIODFLG)  and  13  (NRMIDFLG)  are  both  zero; 
Proceed  to  "NORMEIET" 
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NORMBNCH 


JAMTERM 


PRIOLARM 


C LOOP LAY 


Switch  FLAGWRD4  bit  6 (PINBRFLG)  to  1 
If  FLAGWRD4  bit  14  (PRIODFLG)  = 1; 

COPINDEX  = 0 
Proceed  to  "NVDSP" 

Proceed  to  "PLAYJUKL" 

REQRET  = 34 
DSPCOUNT  = -19 
Proceed  to  "VBTERM" 

Perform  "ALARM" 

Proceed  to  "PRIODSPR"  with  TS  = K:V05N09 

TSaddr  = address  of  step  that  proceeded  to  "CIDCPLAY" 

MPAC^  = TS 

MPAC,  = 24030^  (RESETREQ,  BURNREQ,  PERFREQ,  FLREQ) 

4 o 

Proceed  to  "G0FLASH2" 
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Qiiantities  in  Computations 


CADRELSH.  (i  = 0,1,2):  Three  sin^e  precision  cells  for  storage  of  return 
address  information  required  by  priority,  mark  and  normal  display 
requests.  In  the  program  itself,  CADRFLSH  is  used  for  storage  of  the 
address  of  the  step  after  that  at  which  the  display  interface  routine  is 
called;  in  this  writeup,  CADRFLSH  refers  to  the  address  of  the  step  that 
called  a display  interface  routine. 

CADRSTOR:  Single  precision  storage  for  the  address  of  the  job  that  is 
asleep  while  awaiting  an  astronaut  response. 

COPINDEX:  Single  precision  index  used  to  determine  which  display  control 
parameters  are  relevant  (priority,  mar k/ext ended  verb,  or  normal  = 0, 

1,  or  2),  scaled  B14  and  unitless. 


DECBRNCH : 
DSPCOUNT: 


See  DSKY  section. 
See  DSKY  section. 


DSPFLG.  (i  = 0,1,2):  Three  single  precision  flagwords  containing  control 
discretes  for  one  priority  (i=0) , one  mark  (i=1 ) and  one  normal  display 
(i=2)  simultaneously.  The  individual  bits  have  the  same  significance  in 
each  of  the  three  flagwords  (one  would  not  expect  bit  15  to  be  set  in 


DSPFLG, 

j or  DSPFLG2, 

, etc.).  The  following  is  a list  of  the  significance 

of  eacr 

1 vdien  it  is 

set  (1). 

Bit 

Mnemonic 

Significance 

15 

MKEXREQ 

Mark  or  extended  verb  display.  (Higher  priority 
than  a normal  display. ) 

14 

RESETREQ 

Reset  request;  replaces  active  display  of  same 
priority. 

13 

2NDPERF 

Second  loop  through  a "please  perform"  type 
display;  the  first  loop  displays  the  noun  using 
a display  verb.  The  second  loop  replaces  the 
display  verb  with  the  appropriate  "please  perform" 
ve  rb . 

12 

BURNREQ 

The  "please  perform"  verb  is  to  be  97/99  rather 
than  50. 

Bits 

11-9  are  used  to  store  the  setting  of  EBANK  from  the  program  using 

a display  interface  routine. 

8 

DEC  VERB 

The  noun  to  be  displayed  with  a "please  perform" 
verb  requires  a decimal  display  verb  in  the  first 

loop. 

7 

PRIOREQ 

Priority  display.  (Higher  priority  than  a mark  or 
a normal,  display.) 

6 

DOTHNRET 

Return  only  after  display  is  executed.  (Used  only 
with  displays  that  do  not  require  astronaut  action., 

5 

PERFREQ 

A "please  perform"  type  display  request. 

4 

FLREQ 

This  display  requires  astronaut  response;  set  the 
verb  and  noun  registers  flashing. 
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Bit 


Mnemonic 


Significance 


3 R3BLNK  Blank  register  3* 

2 R2BLNK  Blank  register  2. 

1 R1HLNK  Blank  register  1 . 

Program  notations  EBAMSAV,  MARKEBAN  and  EBANKTEM  or  DSPFLG,  MARKFLAG 
and  SAVEFLAG,  respectively.  DSPFLG2  OOOOOg  in  "DOFSTRTl" . 

DSPLIST:  Single  precision  storage  for  the  address  of  the  job  that  is 
asleep  while  waiting  for  the  astronaut  to  release  control  of  the  DSKY. 

DSPLOCK:  Single  precision  flagword  set  positive  vrfien  the  astronaut  has 
control  of  the  DSKY,  and  reset  to  zero  when  the  DSKY  is  free  for  use 
by  internal  programs. 

DSPTEM1:  See  DATA  section. 


EBANK:  See  MATX  section. 

EXTVBACT:  See  EXVB  section. 

FREEESKY:  See  DATA  section. 

GENMASK:  Single  precision  flagword  indicating  which  bits  of  the  DSPFLG. 
are  to  be  set.  Same  as  MPAC  , ^ 

O "“l/f 

K:23ecBlA.:  Single  precision  constant  stored  as  -200  x 2 , program  notation 

-2SEC,  scaled  B14  in  units  of  centiseconds.  Equation  value:  200. 

K:dspoctab.  (i  = 0,1,2):  Three  single  precision  octal  constants,  program 
notation  PRIOOCT-fO,  +1,  +2,  stored  as  20144g,  42424g,  and  11254g. 

K:IDLERET1:  Single  precision  octal  address  changed  in  "RECALTST"  to  cause 
a flashing  display  interface  routine  to  branch  to  "TERMATE",  "PROCEED"  or 
"IDLERET3". 

K:VxxNxx:  Single  precision  constant  containing  a seven-bit  verb  code  (0-99) 
in  bit  positions  14-8  and  a seven-bit  noun  code  (0-99)  in  bit  positions  7-1 


LOADSTAT:  Single  precision  flag  indicating  whether  an  astronaut  response  is 
verb  34,  verb  33,  or  verb  32  or  a data  entry  or  entry  of  a "please  perform" 
verb. 

LOG:  See  MATX  section. 
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MARK 2P AC; 


Single  precision  storage  for  MPAC2. 

MONSAVEl:  See  DATA  section. 

MPAC.  (i  = 0-7):  A set  of  eight  single  precision  cells  associated  with 
a^partlcular  job  and  used  exclusively  by  that  job.  When  a job  is 
put  to  sleep  or  is  interrupted  by  a job  of  higher  priority,  MPACq_^ 
are  saved  to  be  reset  exactly  as  they  were  when  the  interrupted 
job  is  reestablished.  See  MATX  section. 

MPACq;  Used  as  a flag  to  determine  if  a job  being  put  to  sleep  is  one 
hnndl i ng  a normal  display  or  one  handling  a mark  display. 

MPAC, : Used  to  store  the  verb-noun  code  at  entry  to  the  display  inter- 
face logic. 

MPAC„:  Used  to  store  the  address  for  an  "address  to  be  specified"  noun 
when  that  noun  is  used  by  a program  (as  opposed  to  use  of  that  noun 
by  the  astronaut,  in  which  case  he  would  enter  the  address  via  the 
DSKY). 

MPAC^:  Used  as  temporary  storage  for  CADRFLSH^  or  COPINDEX. 

MPAC^:  Used  as  temporary  storage  for  DSPFLG^. 

MPAC2SAV:  Storage  for  MPAC2  while  it  is  being  used  as  working  storage. 

NOUNREG:  See  DATA  section. 

NVWORD,  (i  = 0,1,2):  Set  of  three  single  precision  erasable  memory  cells 
used  to  retain  values  of  the  verb-noun  pattern  (verb  code  in  bits  14-8, 
noun  code  in  bits  7-1 ) for  priority,  mark/extended  verb,  and  normal 
displays,  respectively.  Program  notations  NVWOEID,  MARKNV  and  NVSAVE, 
respectively.  NVWORD2  is  initialized  as  0 in  "DOFSTRTl". 

NVWORDl:  See  BURN  section. 

OPTIONl,  0PTI0N2:  See  DATA  section. 

OUTHERE:  Single  precision  index  used  to  detennine  the  retxarn  from  the 
display  interface  routines  based  on  the  type  of  astronaut  response. 
Scaled  BI4. 

PRIOTIME;  Single  precision  time  when  a priority  display  is  activated, 
scaled  BI4  in  units  of  centiseconds.  Used  to  assure  that  a reply 
to  an  Interrupted  normal  or  mark/extended  verb  display  is  not  inter- 
preted as  a response  to  the  interrupting  priority  display. 

RISAVE;  Single  precision  cell,  initialized  to  0 in  "STARTS32",  used  in 
"FLASHSUB"  to  control  a special  retvim  to  the  calling  routine. 
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REQRET:  See  DSKY  section. 


TIMENOW:  See  EX^TB  section. 

USERPRIO:  Single  precision  storage  for  the  priority  of  the  job  using 
the  display  Interface  routines.  (Actually  equal  to  MPAC^  and  there- 
fore maintained  while  the  job  is  asleep.) 

VERBREG:  See  DATA  section. 
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DSKY 


Display  and  Keyboard  Interface  Logic 


KEYRUFTl 


CHARIN 


(Entered  on  program  interrupt  #5) 

SAMPTIME  = TIMENOW  (for  noun  65) 

TS  = low  5 bits  of  channel  15  (five  bit  key  code) 

Switch  FLAGIWRD5  bit  15  (DSKYFIAG)  to  1 

Establish  "CHARIN"  (pr30) 

Set  MPACq  of  "CHARIN"  Job  = TS 

Resume 


21d22REG  = DSPLOCK 
DSPLOCK  = 1 

If  CADRSTOR  ^ +0  and  MPACq  ^ 22^:  (flashing  display;  not  error  reset 

Switch  bit  5 of  channel  11  to  1 (key  release  lamp) 

CHAR  = MPACq 

If  CHAR  = 1,2,3,4i5,6  or  7:  (numbers  1 through  7). 

Proceed  to  "NUM" 


If  CHAR  = lOg  or  11^:  (numbers  8 and  9) 

If  DSPCOUNT  < -0,  end  job 


If  bit  2 or  1 of  DECBRNCH  = 1,  proceed  to  "NUM" 

Proceed  to  "CHARALRM"  (decimal  numbers  not  allowed) 
If  CHAR  = 20g:  (the  number  zero) 

CHAR  = 0 


Proceed  to  "NUM" 

If  CHAR  = 21g,  proceed  to  "VERB" 

If  CHAR  = 22g,  proceed  to  "ERROR" 

If  CHAR  = 31g,  proceed  to  "VBRELDSP" 
If  CHAR  = 323,  proceed  to  "POSGN" 


(verb) 

(error  reset) 
(key  release) 
(+  sign) 
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CHARALRM 


If  CHAR  = 33q,  proceed  to  "NBGSGN" 
If  CHAR  = 34q,  proceed  to  "ENTER" 
If  CHAR  = 36g,  proceed  to  "CLEAR" 
If  CHAR  = 37g,  proceed  to  "NOUN" 
Svd-tch  bit  7 of  channel  11  to  1 
End  job 


(-  sign) 
(enter) 

(clear) 

(no\m) 

(operator  error  lamp) 


VERB 


NOUN 


VERBREG  = 0 

DSPCOUNT  = K:VD1  (19.) 


Skip  next  two  "steps 
NOUNREG  = 0 

DSPCOUNT  = K:ND1  (17) 

Perform  "2BIiANK"  (blank  verb  or  noun  register) 

DECBRNCH.  = OOOOlg  (to  indicate  + decimal) 
REQRET  = +0 
ENTRET  = "ENDOFJOB" 


End  job 

NUM  If  DSPCOUNT  < -0,  end  job  (numbers  not  called  for) 

Perform  "GETINREL" 

If  CLPASS  y 0,  CLPASS  = 0 (indicate  that  number  inserted  since 

last  clear) 

CODE  = low  5 bits  of  KrRELTABgpj^ 

Perform  "DSPIN"  with  COUNT  = DSPCOUNT  (insert  nimiber  on  DSKY) 

If  bits  1 and  2 of  DECBRNCH  both  = 0:  (octal) 

TS  = XREG,  YREG  or  ZREG  according  to  whether  INREL  =2,  3 or  4 

(INREL  not  expected  to  equal  0 or  1 if  number  is  octal) 

TS  = 8 TS  + CHAR  (TS  cycled  left  three  places) 
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If  bit  1 or  bit  2 of  DECBRNCH  =1:  (+  or  - decimal) 

TS  = VERBREG,  NOUNREG,  XREG,  YREG  or  ZRBG  according  to 
•whether  INREL  = 0,  1,  2,  3 or  4 

TS  = 10  TS  + CHAR 

If  TS  ^ l6384>  proceed  to  "DECEND"  (must  be  5th  character) 
If  INREL  = 0,  set  VERBREG  = TS  and  i = 18 

If  INREL  = 1,  set  NOUNREG  = TS  and  i = l6 

If  INREL  = 2,  set  XREG  = TS  and  i = 10 

If  INREL  = 3,  set  YRBO  = TS  and  i = 5 

If  INREL  = 4,  set  ZRBG  = TS  and  i = 0 

If  i / DSPCOUNT:  (more  characters  may  be  inserted) 

DSPCOUNT  = DSPCOUNT  - 1 
End  Job 

If  bit  1 or  bit  2 of  DECBRNCH  = 1,  proceed  to  "DECEND" 

DSPCOUNT  = - DSPCOUNT  (block  further  numerical  characters) 

End  Job 

DECEND  If  INREL  = 0 or  1 : (verb  or  noun  registers) 

DSPCOUNT  = - DSPCOUNT  (scaling  already  B14) 

End  Job 

If  bit  1.  of  DECBRNCH  = 1,  TS , = lO"^  TS 

dp 

If  bit  2 of  DECBRNCH  = 1,  TS,  = - lO"^  TS 

dp 

If  INREL  = 2,  store  in  XREG  and  XRBGLP  (LP  = lower  half) 

If  INREL  = 3.  store  TS,  in  YREG  and  YRBGLP 

dp 

If  INREL  = 4,  store  TS^p  in  ZRBG  and  ZREGLP 
DSPCOUNT  = - DSPCOUNT 
End  Job 
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GETINREL  Set  BJREL  in  accordance  with  DSPCOUNT  and  the  following  table: 


POSGN 


NEGSGN 


SGNCOM 


DSPCOUNT 


INREL  Significance 


0 thru  4 
5 thru  9 
10  thru  14 
16  or  17 
18  or  19 
15,  20  or 


4 Register  #3,  digits  5 (lowest)  thru  1 

3 Register  #2,  digits  5 thru  1 

2 Register.  #1,  digits  5 thru  1 

1 Noun  register,  digits  2 or  1 

0 Verb  register,  digits  2 or  1 

over  meaningless 


Return 


Perform  "SIGNTEST" 
Perform  "GETINREL" 


SGNOFF  = 5,  3 or  0 according  to  whether  INREL  = 2,  3 or  4 
SGNON  = SGNOFF  + 1 
Perform  "SGNCOM" 

Switch  bit  1 of  DECBRNCH  to  1 (to  indicate  + decimal) 

Proceed  to  "BOTHSGN" 


Perform  "SIGNTEST" 

Perform  "GETINREL" 

SGNON  = 5,  3 or  0 according  to  whether  INREL  = 2,  3 or  4 

SGNOFF  = SGNON  + 1 
Perform  "SGNCOM" 

Switch  bit  2 of  DECBRNCH  to  1 (to  indicate  — decimal) 

Proceed  to  "BOTHSGN" 

CODE  = 0 

Perform  "IIDSPIN"  with  TS  = SGNOFF 
Switch  bit  11  of  CODE  to  1 
Perform  "IIDSPIN"  with  TS  = SGNON 
Return 
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SIGNTEST  If  bit  1 or  bit  2 of  DECBRNCH  = 1,  end  job  (sign  already  set) 
If  DSPCOUNT  14  (RlDl),  9 (R2D1)  or  4 (R3D1),  end  job 
Return 

BOTHSGN  If  INREL  = 2,  svd.tch  bit  5 of  DECBRNCH  to  1 

If  INREL  = 3,  svatch  bit  4 of  DECBRNCH  to  1 

If  INREL  = 4,  svd-tch  bit  3 of  DECBRNCH  to  1 

If  CLPASS  > 0,  CLPASS  = 0 

End  job 

REQDATX  DSPCOUNT  = K:R1D1  (14) 


Skip  next  3 steps 

REQDATY  DSPCOUNT  = K:R2D1  (?) 

Skip  next  step 

REQDATZ  DSPCOUNT  = K:R3D1  (4) 

REQRET  = - return  address  (to  cause  "ENTER"  to  branch  to  caller 

of  "REQDATX"  etc . when  requested  data 
Perform  "5BLANK"  is  entered) 


Switch  bit  6 of  channel  11  to  1 


(verb-noun  flash) 


Proceed  to  address  specified  by  ENTRET 
REQMM  REQRET  = - return  address 


DSPCOUNT  = K:ND1  (17) 


NOUNREG  = 0 
Perform  "2BLANK" 

Switch  bit  6 of  channel  11  to  1 (verb-noun  flash) 
DECBRNCH  = OOOOlg  (bit  1 = 1 to  indicate  + decimal) 
Proceed  to  address  specified  by  ENTRET 
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ENTER 


CLPASS  = 0 


ENTRET  = "ENDOFJOB" 

If  REQRET  ^ +0,  proceed  to  "ENTPASO"  (normal  data  entry) 

If  ) REQRET  I = "MMCHANG"  + 1:  (data  requested  by  "MMCHANG") 

REQRET  = I REQRET  I 

Switch  bit  6 of  channel  11  to  0 (verb-noun  flash  off) 

Return  via  REQRET  (to  second  step  of  "MMCHANG") 

If  bit  1 or  bit  2 of  DECBRNCH  = 1 and  DSPCOUNT  is  positive: 

Proceed  to  "DSPALARM"  (decimal  data  requires  all  five 

characters  before  an  enter) 

REQRET  = I REQRET ( 

Switch  bit  6 of  channel  11  to  0 (verb-noun  flash  off) 

Retiim  via  REQRET  (to  program  that  performed  "REQDATX"  etc . ) 

CLEAR  TS  = DSPCOUNT 

Perform  "GETINREL"  with  DSPCOUNT  = | DSPCOUNT  | 

DSPCOUNT  = TS 

If  CLPASS  ^ 0:  (first  "clear"  since  the  last  enter) 

If  INREL  < 1,  end  job  (the  verb  and  noim  registers  are 

not  cleared j they  are  changed) 

Perform  "5BLANK"  skipping  the  first  step  (have  INREL  already) 
CLPASS  = CLPASS  + 1 (enable  multiple  clears  if  needed) 

End  job 

(otherwise,  it's  a multiple  component  clear) 

INREL  = INREL  - 1 (Register  #n  has  already  been  cleared; 
decrement  INREL  to  indicate  that  register  #n-l  is  to  be 
cleared  as  well. ) 

If  INREL  < 1,  end  job  (Registers  1,  2 and  3 are  already 

cleared;  "CLEAR"  can  do  no  more.) 
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REQRET  = REQRET  + 3 (chang#  raturn  address  to  loading  program 

to  force  it  to  back  up  to  a previous  step  in  the  loading 
process;  from  "perform  'REQDATY*"  to  "perform  'REQDATX*"  etc.) 

TSl  = INREL 

VXRBREG  = VERBREG  - 1 

Perform  "UPDATVB"  (Change  verb  display  to  reflect  the  change 

in  the  component  to  be  loaded.) 


INREL  * TSl 

Perform  "5BLANK"  skipping  the  first  step 

CLP  ASS  = CLP  ASS  + 1 (enable  clear  of  register  #1  after  #3  and  #2) 
End  job 

ERROR  DSPLOCK  = 21d22REG  (error  reset  leaves  DSPLOCK  vinchanged) 

Inhibit  interrupts 

Switch  bit  10  of  channel  11  to  1 (reset  "Restart"  lamp) 

Switch  DSPTAB^^  to  100  000  000  xOx  000^ 

(reset  "Program  Alarm",  "Tracker  fail",  "LR  altitude  fail", 
and  "LR  velocity  fail";  bits  9,  8,  5,  and  3.  Leave  bits 
6 and  4 alone;  "Gimbal  lock"  and  "No  attitude"  lamps.) 

Switch  bits  13,  12  and  11  of  IMODES33  to  1 

(Set  PIPA  good.  Downlink  good  and  Uplink  good  bits) 

Switch  big  10  of  IM0DES30  to  1 
(Set  PIPA  good  bit) 

Switch  RADMODES  bits  8 (LRVELFLG),  5 (LRALTFLG)  and  4 (RRDATAFL)  to  0 

Switch  RADMODES  bit  7 (RCDUFAIL)  to  1 
Perform  "C13STALL" 

Switch  bit  10  of  channel  13  to  0 (reset  "test  lamps"  bit) 

Switch  bits  7 and  3 of  channel  11  to  0 

(reset  "Operator  Error"  and  "Uplink  Activity"  lamps) 

DSPTAB^  = ((DSPTABj^I  with  bit  12  set  to  l)  signDSPTAB^  for  all  values 
of  i from  10  through  0 

Release  interrupt  inhibit 

FAILREG^  = 0 for  i = 0,  1 
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SFAIL  = 0 


VBRELDSP 


End  job 

Svd-tch  bit  3 of  channel  11  to  0 (Reset  Uplink  Activity  lamp) 
If  21d22REG  > 0 and  bit  14  of  MDNSAVEl  = 1:  (monitor  going) 

DSPLOCK  = 0 

If  CADRSTOR  = 40,  perform  "REIDSPl" 

End  job 

Perform  "RELDSP" 

If  CADRSTOR  ^ 40,  proceed  to  "PINBRNCH" 

End  job 
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DSPOCTWD  WDRET  = return  address 


WD AGAIN 


DSPDECWD 


DSPDCWDl 


Switch  bit  14  of  DSPCOUNT  to  1 (to  blank  sign  in  "DSPIN") 
liDCNT  = 4 

TSwd  = TSwd  cycled  left  3 places  (bit  15  shifted  into  bit  3 

position,  14  into  2,  etc . ) 

i = low  3 bits  of  TSwd 
CODE  = low  5 bits  of  KrRELTAB^ 

COUNT  = DSPCOUNT 

If  DSPCOUNT  > 0,  DSPCOUNT  = DSPCOUNT  - 1 

Perform  "DSPIN"  (display  digit  in  position  specified  by  COUNT) 

If  WDCNT  > 0: 

WDCNT  = WDCNT  - 1 
Proceed  to  "WD AGAIN" 

DSPCOUNT  = -19 
Return  via  WDRET 
WDRET  = return  address 

Perform  "DSPSIGN"  (returns  with  MPAC^^  = j MPAC^pJ) 

MPACj  = MPAC,  + KrDECROUND 
dp  dp 

If  overflow  (MPAC^p  > l),  MPAC^p  = Krposmaxdp 
WDCNT  = 4 

i = integral  part  of  (10  MPAC^p)  (highest  digit  first) 

CODE  = low  five  bits  of  K:RELTAB^  (character  code) 

MPAC^p  = fractional  part  of  (10  MPAC^p) 

COUNT  = DSPCOUNT 

If  DSPCOUNT  > 0,  DSPCOUNT  = DSPCOUNT  - 1 
Perform  "DSPIN" 
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If  V®CNT  > 0: 


DSPSIGN 


+ON 


-ON 


V®CNT  = WDCNT  - 1 
Proceed  to  "DSPDCM)1" 

DSPCOUNT  = -19 

Return  via  WDRET 

If  MPAC^p  > 40,  perform  "40N" 

If  MPAC^p  < -0,  perform  "-ON"' 

MPAC,  = ImPAC^  I 

dp  I dp' 

Return 

Perform  "GETINREL" 

SGNOFF  = 5j  3 or  0 according  to  vrtiether  INREL  = 2,  3 or  4 

SGNON  = SGNOFF  4 1 

CODE  = OOOOOg  (bit  11  = 0) 

Perform  "IIDSPIN"  with  TS  = SGNOFF 
Switch  bit  11  of  CODE  to  1 
Perform  "IIDSPIN"  with  TS  = SGNON 
Return 

Perform  "GETINREL" 

SGNON  = 5,  3 or  0 according  to  whether  INREL  = 2,  3 or  4 

SGNOFF  = SGNON  4 1 

CODE  = OOOOOg  (bit  11  = 0) 

Perform  "IIDSPIN"  with  TS  = SGNOFF^ 

Switch  bit  11  of  CODE  to  1 
Perform  "IIDSPIN"  with  TS  = SGNON 
Return 
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DSPDC2NR  WDRET  = return  address 


DSPDECVN 


DSP2DEC 


BLANKSUB 


Perform  "DSPSIGN" 
WDCNT  = 1 

Proceed  to  "DSPDCWDl" 


WDRET  = return  address 


MPAC, 

dp 


= K:VNDSPCON  TS 


WDCNT  = 1 


Proceed  to  "DSPDCWDl" 

WDRET  = return  address 

CODE  = OOOOOg  (bit  11  = 0) 

Perform  "IIDSPIN"  vd.th  TS  = 3 (-R2S  off) 

Perform  "IIDSPIN"  -with  TS  = 4 (4R2S  off) 

Perform  "DSPSIGN" 

WDCNT  = 9 

Proceed  to  "DSPDCWDl" 

FREEDSKY  = 0 
If  DSPLOCK  > 0,  return 

If  bit  14  of  MDNSAVEl  = 1,  return  (no  blank  for  externally 

Initiated  monitor) 

FREEDSKY  = 1 

If  bits  3-1  of  TSblank  all  = 0,  return 


TScnt  = DSPCOUNT 

If  bit  1 of  TSblank  = 1,  perform  "5BLANK"  with  DSPCOUNT  = KrRlDl 
If  bit  2 of  TSblank  = 1,  perform  "5BLANK"  with  DSPCOUNT  = K:R2D1 
If  bit  3 of  TSblank  = 1,  perform  "5BLANK"  with  DSPCOUNT  = K:R3D1 
DSPCOUNT  = TScnt 


Return 
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SBLANK  Perform  "GETINEEL" 

CODE  = 0 
If  INREL  = 2 : 

XREG  = 0 
XREGLP  = 0 

Set  bits  5,  2 and  1 of  DECBRNCH  = 0 
Perfom  "DSPIN"  with  COUNT  = 14  (RlEl) 

Perform  "2BLANK"  twice,  with  DSPCOUNT  = 13>  then  11 
DSPCOUNT  = K:R1D1 
If  INREL  = 3: 

YREG  = 0 
YREGLP  = 0 

Set  bits  4,  2 and  1 of  DECBRNCH  = 0 
Perform  "DSPIN"  with  COUNT  = 5 (R2D5) 

Perform  "2BLANK"  twice,  with  DSPCOUNT  =9,  then  7 
DSPCOUNT  = K:R2D1 
If  INREL  = 4: 

ZREG  = 0 
ZREGLP  = 0 

Set  bits  3>  2 and  1 of  DECBRNCH  = 0 
Perform  "DSPIN"  with  COUNT  = 4 (R3D1) 

Perform  "2BLANK"  twice,  with  DSPCOUNT  = 3,  then  1 
DSPCOUNT  = K:R3D1 
Return 


DSKY  - 12 


2BLANK 


i = integral  part  of  ^ DSPCOUNT 


If  the  sign  of  DSPTAB^  is  positive,  NOITU  = NOITT  + 1 
DSPTAB^  = - 04000g  (minus  to  flag  for  output) 

Return 
IIDSPIN  i = TS 

COUNT  = 2 

Proceed  to  "DSPINl" 

DSPIN  i = integral  part  of  ^ (low  5 bits  of  COUNT) 

If  bit  1 of  COUNT  = 0:  (COUNT  is  even) 

COUNT  = 0 

Proceed  to  "DSPINl" 

CODE  = CODE  shifted  left  five  places  (to  positions  6-10) 

If  bit  14  of  COUNT  = 0: 

COUNT  = 1 

Proceed  to  "DSPINl" 

COUNT  = 3 (sign  to  be  changed  as  well  as  digit) 

DSPINl  Inhibit  interrupts 

Ts  = |dsptab^( 

If  COUNT  = 0,  set  bits  1-5  of  TS  = bits  1-5  of  CODE 
If  COUNT  =1,  set  bits  6-10  of  TS  = bits  6-10  of  CODE 
If  COUNT  = 2,  set  bit  11  of  TS  = bit  11  of  CODE  (sign) 
If  COUNT  = 3,  set  bits  6-11  of  TS  = bits  6-11  of  CODE 
If  TS  = I DSPTAB^  j , skip  next  two  steps 

If  DSPTAB^  not  already  flagged  for  output,  NOUT  = NOUT  + 1 
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DSPTAB^  = - TS  (compleinented  to  flag  for  output) 

Release  interrupt?  inhibit 

Return 
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Quantities  in  Computations 


21d22REG:  Single  precision  storage  for  the  DSPLOCK  indication  so  that 
an  "error  reset"  may  leave  DSPLOCK  unchanged. 

CADRSTOR:  See  DINT  section. 

CHAR;  The  five  bit  octal  keycode  extracted  from  bits  5 through  1 of 
channel  15  when  a keyboard  interrupt  is  triggered  by  the  depression 
of  any  of  the  DSKY  keyboard  buttons.  The  DSKY  buttons  and  the  binary 
codes  gated  into  channel  15  by  their  respective  depressions  are: 


10001 

VERB 

00010 

2 

01000 

8 

11111 

NOUN 

00011 

3 

01001 

9 

11010 

+ 

00100 

4 

lino 

CLR 

11011 

- 

00101 

5 

11001 

KEY  REL 

10000 

0 

00110 

6 

11100 

ENTR 

00001 

1 

00111 

7 

10010 

RSET 

CLPASS:  A single 

precision 

register 

used 

to 

direct  the  ! 

logic  enabling 

multiple-clearing  of  the 

three  five-digit 

display  registers.  Set 

to  zero  whenever  a valid 

numerical 

. character  or  a sign  is  processed 

unless  it  has  been  previously  set 

to  a 

large  negative 

number  to 

disable  multipl 

e clears. 

See  routine  "CLEAR". 

CODE:  A five-bit. 

binary  relay  code 

to  select  the  configuration  of 

the  DSKY  illumination  re 

lays  to  form  the 

proper  character.  The 

character  codes 

are : 

10101 

0 

01111 

4 

11101 

8 

00011 

1 

lino 

5 

11111 

9 

11001 

2 

11100 

6 

00000 

blank 

non 

3 

10011 

7 

COUNT:  Single  precision  register  used  as  working  storage  in  the  "DSPIN" 

routine,  first  to  designate  the  DSPTAB  word  to  be  changed,  and 
second  to  Indicate  which  of  the  two  digits  controlled  by  one 
DSPTAB  word  is  to  be  changed  and  whether  a sign  is  to  be  changed 
or  blanked. 


DECBRNCH;  A single  precision  flagword  whose  bits  have  the  following 
significance: 


(not  octal) 


Plus  decimal 
Minus  decimal 
Register  #3  contains  a decimal  number 
Register  #2  contains  a decimal  number 
Register  #1  contains  a decimal  number 
spare 

are  used  in  multiple  component  loads  to  assure 


Bit  1 
2 

3 

4 

5 

6-15 
Bits  3-5 

all  components  are  decimal  or  octal. 
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DSPCOUNT:  A single  precision  quantity  which  indicates  the  register 
and  digit  position  on  the  DSKY  into  which  a number  is  to  be 
placed.  See  description  of  DSPTAB  registers.  DSPCOUNT  is  set 
negative  to  indicate  that  further  depressions  of  numerical  keys 
are  to  be  ignored  by  the  program  until  another  "command"  key  is 
depressed  (VERB,  NOUN,  ENTR,  etc.).  Scaled  B14. 

DSPLOCK:  Single  precision  flag  set  to  some  non-zero  value  to  indicate 
when  the  display  and  keyboard  are  being  used  by  the  astronaut  (or 
uplink) . 

DSPTAB.  (i=0-10):  Computer  storage  of  the  DSKY  illumination  relay 

settings.  Bits  15  thru  13  are  zero  and  bit  12  is  1 except  when  the 
DSPTAB  register  is  complemented  to  direct  the  "T4RUPT"  routine  to 
change  the  displays. 

Rl,  R2  and  R3  are  the  three  digital  display  registers,  with 
D5  the  least  significant  digit  and  D1  the  most  significant.  Each 
of  these  registers  has  an  associated  sign  bit,  indicated  below  by 
-RiS  or  +RiS . If  no  sign  is  to  be  indicated,  neither  sign  bit  is 
set . 

The  two-digit  (decimal)  "noun",  "verb"  and  "mode"  or  "program" 
registers  are  indicated  below  by  N,  V and  M respectively  and  again, 
D1  is  the  more  significant  of  the  two  digits. 

The  portion  of  the  display  that  is  controlled  by  each  DSPTAB 
register  is  indicated  below. 


Register 

Bit  11 

Bits  6-10 

Bits  1-5 

DSPTABj^o 

MDl 

MD2 

DSPTABg 

VDl 

VD2 

DSPTABg 

NDl 

ND2 

DSP TAB 7 

RlDl 

DSPTAB6 

+R1S 

R1D2 

R1D3 

DSPTAB5 

-RIS 

R1D4 

R1D5 

DSPTAB4 

+R2S 

R2D1 

R2D2 

DSPTAB3 

-R2S 

R2D3 

R2D4 

DSPTAB2 

R2D5 

R3D1 

DSPTAB^ 

+R3S 

R3D2 

R3D3 

DSPTABq 

-R3S 

R3D4 

R3D5 

DSPTAB^j^;  See  INTR  section. 

ENTRET:  See  DATA  section. 

FAILREG^  (i=0,l  ):  See  PGSR  section. 

FREEDSKY : See  DATA  section. 

IMODES30:  See  IMUC  section. 
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IMODES33:  See  INTR  section 


INREL:  Single  precision  index  to  indicate  whether  numerical  characters 
are  to  be  placed  into  the  verb  register,  the  noun  register  or  one  of 
the  five-digit  registers  R1 , R2  or  R3. 

K:DECROUND:  Double  precision  constant  stored  as  OOOOC^  02476g.  Equation 
value:  0.000005  at  a scaling  of  BO.  Used  to  round  a double  pre- 
cision AGO  quantity  to  five  decimal  digits  for  display. 


K:ND1:  Single  precision  constant  stored  as  17,  scaled  B14.  Used 
to  set  DSPCOUNT  to  indicate  that  the  next  numerical  character  re- 
ceived is  to  be  placed  into  the  most  significant  digit  position  of 
the  noun  register.  See  description  of  DSPTABq-DSPTABj^q. 

K:R1D1,  K:R2D1,  K:R3D1:  Single  precision  constants  stored  as  14,  9 
and  4.  Used  to  set  DSPCOUNT  to  indicate  that  the  next  numerical 
character  received  is  to  be  placed  into  the  most  significant  digit 
position  of  R1 , R2  or  R3.  See  description  of  DSPTABq-DSPTABj^q. 

KtRELTAB  ( 1=0-11 ) : Set  of  twelve  single  precision  octal  constants 
stored  as  follows: 


i 

1 

0 

04025 

6 

34034 

1 

10003 

7 

40023 

2 

14031 

8 

44035 

3 

20033 

9 

50037 

4 

24017 

10 

54000 

5 

30036 

11 

60000 

K:VD1:  Single  precision  constant  stored  as  19,  scaled  B14.  Used  to 
set  DSPCOUNT  to  indicate  that  the  next  numerical  character  received 
is  to  be  placed  into  the  most  significant  digit  position  of  the  verb 
register.  See  description  of  DSPTABq-DSPTABj^q. 

K:VNDSPCON:  Single  precision  constant  stored  as  00244g.  Equation 

value:  0.01.  Used  to  convert  decimal  verb,  noun  and  mode  numbers 

(stored  as  whole  numbers  scaled  B14)  into  fractions  in  preparation 
for  the  decimal  display  routine.  Scaled  BO. 

MONSAVEl:  See  DATA  section. 

MPACq:  Multiple  precision  accumulator  associated  with  a particular 
job.  Used  in  "KEYRUPTl"  to  store  the  keycode  in  the  accumulator  of 
the  "CHARIN"  job. 
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NOUNREG:  See  DATA  section. 


NOUT:  See  INTR  section. 

RADMODES : See  RADR  section. 

REQRET:  Single  precision  storage  for  the  return  address  to  an  internal 
routine  that  has  requested  an  astronaut  input.  Used  also  as  a 
flag  to  avoid  the  processing  of  verb/noun  information  normally 
initiated  by  the  "enter"  keycode.  Set  equal  to  +0  to  indicate  that 
data  is  not  a response  to  an  internal  request  and  that  verb/noun 
information  should  be  processed.  Incremented  by  +3  to  step  backwards 
in  the  process  of  a multiple  register  load  (from  "REQDATY"  to 
"REQDATX"  for  example).  A "return  address"  is  always  a positive 
arithmetic  quantity. 

SAMPTIME:  Double  precision  value  of  TIMENOW  loaded  at  the  time  of  astro- 
naut entry  of  most  recent  keycode,  by  waitlist  call  for  a monitor,  or: 
by  an  uplink  interrupt, 

SFAIL:  See  TEST  section. 

SGNOFF:  Single  precision  index  designating  the  DSPTAB  register  whose 

bit  11  is  to  be  cleared  to  prevent  illumination  of  both  signs  together. 

SGNON : Single  precision  index  designating  the  DSPTAB  register  whose 

bit  11  is  to  be  set  to  illuminate  a plus  or  minus  sign  in  R1 , R2 
or  R3.  See  description  of  DSPTABq-DSPTABj^q. 

TIMENOW:  See  EXVB  section. 

VERBREG:  See  DATA  section. 

WDCNT:  Single  precision  index  scaled  B14  and  unitless. 

WDRET:  Single  precision  octal  return  address  storage. 

XREG,  XREGLP,  YREG,  YREGLP , ZREG,  ZREGLP : See  DATA  section. 
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Extended  Verba 


GOErrVB 


Proceed  to  routine  specified  by  the  contents  of  TSextfan 


TSe: 

( 

ctfan 

’verb) 

Startine  address  of  routine  Function 

0 

40 

VBZERO 

zero  IMU  CDU  or  Rendezvous  Radar  CDU 

1 

41 

VBCOARK 

coarse  align  (ICDU  or  RRCDU) 

2 

42 

IMUFINEK 

fine  align  IflU 

3 

43 

IMUATTCK 

load  IMU  attitude  error  needles 

4 

44 

RRDESEND 

terminate  continuous  designate 

5 

Am/END 

not  defined 

6 

ALM/END 

not  defined 

7 

47 

V47TXACT 

AGS  initialization 

8 

48 

DAPDISP 

load  autopilot  data 

9 

49 

CREWMANU 

start  automatic  attitude  maneuver 

10 

50 

GOLOADLV 

please  perform 

11 

ALM/END 

not  defined 

12 

52 

GOLOADLV 

please  mark  X 

13 

53 

GOLOADLV 

please  mark  Y 

14 

54 

GOLOADLV 

please  mark  X or  Y 

15 

55 

ALINTIME 

align  time 

16 

56 

TRMTRACK 

terminate  tracking 

17 

57 

LRON 

permit  landing  radar  updates 

18 

58 

LROFF 

inhibit  lemding  radar  updates 

19 

59 

LRP0S2K 

LR  to  position  2 

20 

60 

RATED ISP 

display  DAP  estimated  rates 

21 

61 

DAPATTER 

display  DAP  attitude  error 

22 

62 

TOTATTER 

display  total  attitude  error 

23 

63 

R04 

sample  radeu*  once/second 

24 

64 

VB64 

calculate  and  display  S-band  ant.  angles 

25 

65 

SNUFFOUT 

docked  U-V  control  disable 

26 

66 

ATTACHED 

attached 

27 

67 

V67 

W matrix  monitor 

28 

68 

ALM/^ND 

not  defined 

29 

69 

VERB69 

cause  restart 

30 

70 

V70UPDAT 

update  liftoff  time 

31 

71 

V71UPDAT 

universal  update  - block  address 

32 

72 

V72UPDAT 

universal  update  - single  address 

33 

73 

V73UPDAT 

update  AGC  time  (octal) 

34 

74 

DNEDUMP 

initialize  downlink  for  erasable  dump 

35 

75 

OUTSNUFF 

remove  U-V  control  disable 

36 

76 

MIN IMP 

minimum  impulse  mode 

37 

77 

NOMINIMP 

rate  command  mode 

38 

78 

R77 

start  LR  spurious  return  test 

39 

79 

R77END 

terminate  LR  spurious  retiim  test 
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Function 


TSextfan  Starting  address  of  routine 


40 

(verb) 

80 

LEMVEC 

update  IM  state  vector 

41 

81 

CSMVEC 

update  GSM  state  vector 

42 

82 

V82PERF 

request  orbit  param  display  (R30) 

43 

83 

V83PERF 

request  rend  param  display  (R3l) 

44 

ALM/END 

not  defined 

45 

85 

VERB85 

display  RR  LOS  azimuth  and  elevation 

46 

almAnd 

not  defined 

47 

ALM/END 

not  defined 

48 

ALM/END 

not  defined 

49 

89 

V89PERF 

align  X or  Z IM  axis  along  LOS  (R63) 

50 

90 

V90PERF 

out  of  plane  rend  display 

51 

91 

GOSHOSUM 

display  bank  sm 

52 

92 

SYSTEST 

operate  IMU  perfonnance  test 

53 

93 

WMATRXNG 

clear  RENDWFLG 

54 

ALM/END 

not  defined 

55 

95 

UPDATOFF 

no  state  vector  update  allowed 

56 

96 

VERB96 

interrupt  integration  and  go  to  POOH 

57 

97 

GOLOADLV 

please  verify  engine  failure 

58 

ALM/END 

not  defined 

59 

99 

GOLOADLV 

please  enable  engine 

ALM/END  Switch  bit  7 of  channel  11  to  1 (operator  error) 

Proceed  to  "PINBRNCH” 

TESTXACT  If  EXTVBACT  > 0,  proceed  to  "ALM/END" 

If  FLAGWRD4  bit  14  (PRIODFLG),  12  (PDSPFLAG)  or  7 (PRONVFLG)  = 1: 
Proceed  to  "ALM/END" 

EXrVBACT  = 00025-  (set  bits  1,  3,  and  5) 

O 

TSvn  = -2 

Perform  "NVSUB"  with  TSmonopt  = OOOOOg 

Check  for  new  job  waiting,  and  perform  it  if  required 


Return 


EXVB 


2 


VBZERO 


If  NOUNEEG  = 20  and  IMUCADR  = 0: 


(ICDU) 


(vb40) 


Perform  "IMUZERO" 

Perform  "IMUSTALL" 

Proceed  to  "PINBRNCH" 

If  NOUNREG  = 72:  (RRCDU) 

Perform  "RDRUSECK" 

Perform  "RRZERO" 

Perform  "RADSTALL" 

Proceed  to  "PINBRNCH" 

Proceed  to  ''ALMOND"  (if  NOUNREG  i-  20  or  72) 

VBCOARK  If  NOUNREG  = 20  and  IMUCADR  = 0;  (vb4l) 

Perform  »'TESTIACT" 

Proceed  to  "GOXDSPF"  with  TS  = K:V25N22  (load  THETAD) 

(If  terminate,  proceed  to  "ENDEH";  if  proceed,  continue 
at  next  step;  if  other  response,  continue  at  next  step.) 

Perform  "EIDSPRET"  with  TS  = K:V41N00  (coarse  align  verb) 

Perform  "IMUCOARS" 

Perform  "IMUSTALL" 

Proceed  to  "ENDEIT" 

If  NOUNREG  =72: 

Perform  "RDRUSECK" 

Perform  "TESTIACT" 


Switch  RADMODES  bits  15  (CDESFLAG)  and  10  (DESIGFLG)  to  0 
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(if  NOUNREG  =72:) 


Proceed  to  "GOXDSPF"  with  TS  = K;V24N73  (load  TANGq 

(If  terminate,  proceed  to  "ENDEXT";  if  proceed,  repeat 
this  step;  if  other  response,  continue  at  next  step.) 

OPTIONX^  = 2 
OPTIONXq  =6 

Perform  "GOXDSPFR"  with  TS  = K:V04N12  (0PTI0N3L  ) 

(If  terminate,  proceed  to  "ENDEIT";  if  proceed,  ’skip 
next  two  steps;  if  other  response,  repeat  this  step.) 


Perform  "BLANKET"  with  TS  = 00004g 
End  job 


If  bit  2 of 
Switch 
If  bit  2 of 
Switch 
Switch 
Switch 


OPTION!^ 

FLAGWRDO 

OPTIONX^ 

FLAGWRDQ 

ilADMODES 

FLAGWRD5 


= 0:  (OPTIONX^  = 0,1, 4, 5, 

bit  5 (LOKONSW)  to  1 
= 1:  (OPTIONX^  = 2, 3,6, 7, 

bit  5 (LOKONSW)  to  0 
bit  15  (CDESFLAG)  to  1 
bit  4 (NORBMON)  to  1 


) 

) 


Release  interrupt  inhibit 


Perform  "EXDSPRET"  with  TS  = K:V41N00 

Establish  "RRDESK2"  (pr20) 

Proceed  to  "ENDEXT" 

Proceed  to  "ALM/END"  (NOTWREG  i-  20  or  72) 

IMUFINEK  If  IMDCADR  f 0,  proceed  to  "AIM/END"  (vb42) 

Perform  "TESTXACT" 

Proceed  to  "GOXDSPF"  with  TS  = K;V25N93  (OGC,  IGC,  MGC) 

(If  terminate,  proceed  to  "ENDEXT";  if  proceed,  continue 
at  next  step;  if  other  response,  continue  at  next  step.) 

Perform  "EXDSPRET"  with  TS  = K;V42N00 
Perform  "IMDFINE" 

Perform  "IMUSTALL" 
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IMUATTCK 


RRDESK2 


RRDESEND 


If  ISSGOOD  = 0,  proceed  to  "ENDEXT" 

Perform  "IMUPULSE"  with  TS  = address  of  COGC,  IGC,  MGC)  . 

Perform  "IMUSTALL” 

Proceed  to  "ENDEXT” 

If  MODREG  7^  0,  proceed  to  "ALM/END”  (vb43) 

If  bit  4 or  5 of  channel  12  is  1,  proceed  to  "ALM/END" 

(not  allowed  if  in  coarse  align  or  zeroing  mode) 

If  bit  13  or  bit  14  of  channel  31  = 0,  proceed  to  "ALM/END" 

(DAP  is  on) 

Perform  "TESTXACT" 

Proceed  to  "GOXDSPF"  with  TS  = K;V25N22  (load  THETAD) 

(If  terminate,  proceed  to  "ENDEXT";  if  proceed,  continue 
at  next  step;  if  other  response,  continue  at  next  step.) 

Perform  "EXDSPRET"  with  TS  = K:V43N00 

Switch  bit  6 of  channel  12  to  1 (Enable  ICDU  error  co\inters) 

Call  "ATTCK2"  in  0.02  second  (See  IMUC  section) 

Proceed  to  "ENDEXT" 

Perform  "RRDESNB"  (established  by  verb  41  routine) 

Perform  "RADSTALL" 

If  RADGOOD  = 0,  perform  "ALARM"  with  TS  = 00503g 
End  job 

If  RADMODES  bit  15  (CDESFLAG)  = 1:  (vb44) 

Inhibit  interrupts 

Switch  bits  15  (CDESFLAG)  and  10  (DESIGFLG)  of  RADMODES  to  0 
Switch  bit  2 of  channel  12  to  0 (disable  RR  error  coiinter) 
Delay  1 second 

Switch  FLAGWRD5  bit  4 (NORRMON ) to  0 
Proceed  to  "PINBRNGH" 


EXVB  - 5 


V47TXACT 


DAPDISP 


CREWMANU 


GOLOADLV 


ALINTIME 


TRMTRACK 


Perform  "TESTXACT" 

Establish  "AGSINIT"  (this  section) 

End  job 


(vb47) 

(pr04) 


Perform  "TESTXACT"  (vb48) 

Proceed  to  "DAPDATAl"  (DAPB  section)  (change  to  pr07) 

If  MODREG  i 0,  proceed  to  "ALM/END"  (vb49) 

Perform  "TESTXACT" 

Establish  "R62DISP"  (ATTM  section)  (prlO) 

End  job 

Switch  bit  6 of  channel  11  to  0 (verb/noun  flash)  (vb50,52, 

53,54. 

Proceed  to  "LOADLV"  (DINT  section)  97,99) 

Perform  "TESTXACT"  (vb55) 


(change  to  pr07) 

Proceed  to  "GOXDSPF"  with  TS  = K:V25N24  (DSPTEMX^  ') 

(If  terminate,  proceed  to  "ENDEXT";  if  proceed,  proceed 
to  "ENDEXT";  if  other  response,  continue  at  next  step.) 

If  TSverb  (MPACq)  i-  23,  proceed  to  "ENDEXT" 

Inhibit  interrupts 


MPAC^  = TIMENOW 

dp 


TIMENOW  = 0 


( exchange ) 


MPAC  - = MPAC^  + DSPTEMX, 

dp  dp  dp 

Force  sign  agreement  in  the  two  halves  of  MPAC 


dp 


TIMENOW  = TIMENOW  + MPAC 


dp 


Release  interrupt  inhibit 


Proceed  to  "ENDEXT" 


If  FLAGWRDO  bits  7 (RNDVZFLG)  and  9 (P25FLAG)  both  = 0: 


Proceed  to  "PINBRNCH" 

Switch  FLAGWRDO  bits  7 (RNDVZFLG)  and  9 (P25FLAG)  to  0 
Switch  FLAGWRD2  bit  14  (SRCHOPTN)  to  0 


(vb56) 
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IRON 

LROFF 

LRF0S2K 

LRP0S2K1 

RATEDISP 

DAPATTER 

TOTATTER 

R04 


If  FLAGWRDl  bit  5 (TRACKFLG)  = 0,  proceed  to  "PINBRNCH" 

Switch  FLAGWRDl  bits  5 (TRACKFLG)  and  7 (UPDATFLG)  to  0 
Switch  FLAGWRDO  bit  8 (IMUSE)  to  0 
Perform  "INTSTALL" 

Clear  P20,  P25  restart  logic  and  inhibit  interrupts 
Perform  "STOPRATE" 

Perform  "RESTORDB" 

Switch  RADMODES  bits  10  (DESIGFLG)  and  15  (CDESFLAG)  to  0 

Switch  bits  14  and  2 of  channel  12  to  0 (disable  tracker  and 

RR  error  counter) 

Proceed  to  "G0PR0G2" 

Perform  "TESTXACT"  (vb57) 

Proceed  to  "DSP68"  (this  section) 

Switch  FLGWRDll  bit  8 (LRINH)  to  0 (vb58) 

Proceed  to  "PINBRNCH" 

If  FLAGWRD7  bit  5 (AVEGFLAG)  = 0:  (see  Anomaly  Report  . (vb59) 

No.  L-lC-03) 

Proceed  to  "LRP0S2K1" 

If  MODREG  = 63,  proceed  to  "V59GP63" 

Perform  "RDRUSECK" 

Proceed  to  "LRP2C0MM" 

Switch  FLAGWRDO  bit  15  (NEEDZFLG)  to  1 ' ' ' (vb60) 

Proceed  to  "PINBRNCH" 

Switch  FLAGWRDO  bits  4 (NEEDLFLG)  and  15  (NEED2FLG)  to  0 (vb6l) 
Proceed  to  "PINBRNCH" 

Switch  FLAGWRDO  bit  4 (NEEDLFLG)  to  1 and  bit  15  (NEED2FLG)  (vb62) 
to  0 

Proceed  to  "PINBRNCH" 

Perform  "RDRUSECK"  (this  section)  (vb63) 
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Perform  "TESTXACT" 


Switch  FUGWRD3  bit  9 (R04FLAG)  to  1 


VB64 

Proceed  to  "RO4Z" 

Perform  "TESTXACT" 

(RADR  section) 

( vb64 ) 

Establish  "SBANDAHT" 

(this  section) 

(pr04) 

SNUFFOUT 

End  job 

Switch  FLAGWRD5  bit  13  (SNUFFER)  to  1 

(vb65) 

ATTACHED 

Proceed  to  "PINBRNCH" 

If  FLAGWRD8  bit  8 (SURFFLAG) 

= 1: 

(vb66) 

Proceed  to  "ALM/END" 

Establish  "ATTACHIT" 

(this  section) 

(this  section) 

(prlO) 

V67 

End  job 

Perform  "TESTXACT" 

(this  section) 

(vb67) 

Establish  "V67CALL" 

(RNAV  section) 

( pr05 ) 

7ERB69 

End  job 

Cause  a hardware  restart 

("GOPROG") 

(vb69) 

V70UPDAT 

UPVERBSV  = 0 

(vb70) 

V71UPDAT 

Skip  next  five  steps 

UPVERBSV  = 1 

(vb7l) 

V72UPDAT 

Skip  next  three  steps 

UPVERBSV  = 2 

(vb72) 

V73UPDAT 

Skip  next  step 

UPVERBSV  = 3 

(vb73) 

Perform  "TESTXACT" 


EXVB  - 8 


DNEDUMP ■ 


OUT SNUFF 


MIN  IMP 


NOMINIMP 


R77 


R77END 


LEMVEC 


If  MODREG  ^ 0: 

Switch  bit  7 of  channel  11  to  1 (operator  error) 

Switch  bit  3 of  channel  11  to  0 (uplink  activity) 

Proceed  to  "ENDEXT" 

Proceed  to  "UPUPDATE"  (this  section) 

DNTMGOTO  = "DNDUMPI" 

Proceed  to  "PINBRNCH" 

Switch  FLAGWRD5  bit  13  (SNUFFER)  to  0 
Proceed  to  "PINBRNCH" 


Switch  DAPBOOLS  bit  15  (PULSES)  to  1 
Proceed  to  "PINBRNCH" 

Switch  DAPBOOLS  bit  15  (PUI£iS)  to  0 
Inhibit  interrupts 

Perforin  "ZATTEROR"  (DAPA  section) 

Proceed  to  "PINBRNCH"  (releases  interrupt  inhibit) 

Perform  "RDRUSECK" 

If  FLAGWRD3  bit  9 (R04FLAG)  = 1,  proceed  to  "ALM/END" 
Switch  FLAGWRD5  bit  11  (R77FLAG)  to  1 
Proceed  to  "RO4Z"  (RADR  section) 

B3AMPDT  = 0 
Delay  0.32  second 

Switch  FLAGWRD5  bit  11  (R77FLAG)  to  0 
Proceed  to  "PINBRNCH" 

Switch  FLAGWRDl  bit  8 (VEHUPFLG)  to  0 
Skip  next  step 


(vb74) 

(vb75) 

(vb76) 

(vb77) 

(vb78) 

(vb79) 

(vb80) 
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CSMVEC 


V82PERF 


V83PERF 


VERB85 


V89PERF 


V90PERF 


GOSHOSUM 


SYSTEST 


WMATRYNG 


Switch  FLAGWRDl  bit  8 (VEHUPFLG)  to  1 (vb8l) 

Switch  FLAGWRDl  bit  6 (NOUPFLAG)  to  0 
Proceed  to  "PINBRNCH" 

Perform  "TESTXACT"  (vb82) 

Proceed  to  "V82CALL"  (this  section)  (change  to  pr07) 

Perform  "TESTXACT"  (vb83) 

Call  "R31CALL"  in  0.02  seconds  (this  section) 


End  job 

Perform  "TESTXACT" 

Proceed  to  "DSPRRLOS"  (RNAV  section) 

If  MODREG  i-  0,  proceed  to  "ALM/END" 

Perform  "TESTXACT" 

Establish  "V89CALL"  (ATTM  section) 


(vb85) 

(vb89) 


(prlO) 


End  job 

Perform  "TESTXACT" 

Establish  "R36"  (this  section) 

End  job 

If  MODREG  ^ 0,  proceed  to  "ALM/END" 

Perform  "TESTXACT" 

Proceed  to  "SH0WSUM2"  (TEST  section) 

If  MODREG  i-  0,  proceed  to  "ALM/END" 

Perform  "TESTXACT" 

Establish  "REDO"  (TEST  section) 

End  job 

Inhibit  interrupts 

Switch  FLAGWRD5  bit  1 (RENDWFLG)  to  0 


( vb90 ) 
(pr07) 


(vb9l) 


(vb92) 


(pr22) 


(vb93) 
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UPDATOFF 


VERB% 


Proceed  to  "PINBRNCH"  (releases  interrupt  inhibit) 

Switch  FLAGWRDl  bit  6 (NOUPFLAG)  to  1 
Proceed  to  "PINBRNCH" 

Switch  FLAGWRD9  bit  5 (QUITFLAG)  to  1 
MMNUMBER  = 0 

Proceed  to  "V37"  (PGSR  section) 


(vb95) 

(vb96) 
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AGSINIT  If  FLAGWRD3  bit  13  (REFSMFLG)  = 0; 


(vb47) 


AGSDISPK 


AGSVCALC 


Perform  "iUjARM"  with  TS  = 00220g 
Proceed  to  "ENDEXT" 

DSPTEMX  = AGSK 

Proceed  to  "GOXDSPF"  with  TS  = K;V06N16  (DSPTEMX) 

(if  terminate,  proceed  to  "ENDEXT";  if  proceed,  proceed 
to  "AGSVCALC";  if  other  response,  continue  at  next  step.) 

If  TSverb  (MPACq)  = 32:  (recycle) 

AGSK  = SAMPTIME  (time  when  enter  button  pushed) 

If  TSverb  i 32,  AGSK  = DSPTEMX^ 

DSPTEMX  = AGSK 

Proceed  to  "AGSDISPK" 

Switch  FLAGWRD2  bit  1 (NODOFLAG)  to  1 

Switch  FLAGWRD4  bit  1 (XDSPFLAG)  to  1 

Perform  "EXDSPRET"  with  TS  = K:V06N16 

TDECl  = TIMENOW 

Perform  "LEMPREC" 

TSv  = (REFSMMAT]  VATT  K:VSCALE  rescaled  to  B15  or  B13  feet  per 
second  rounded  off  to  single  precision  and  converted  to  2's  complement 

TSr  = [REFSMMA^  ^TT  KrRSCALE  rescaled  to  B25  or  B23  feet,  rounded 
off  to  single  precision  and  converted  to  2's  complement  form 

= TSr 

X 

= TSv 

X 

= TSr 

y 

= TSv 

y 

= TSr 

z 

= TSv 


AGSBUFFq 

AGSBUFF^ 

AGSBUFF^ 

AGSBUFF^ 

AGSBUFF, 

4 

AGSBUFF^ 

0 
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TDECl  = TAT 


Perform  "CSMPREC" 

TSv  = [REFSMMAXI  VATT  KtVSCALE  rescaled  to  B15  or  B13  feet  per 
second,  rounded  off  to  single  precision  and  converted  to  2*s 
complement 

TSr  = pS'SMMAf)  MTT  K:RSCALE  rescaled  to  B25  or  B23  feet,  rounded 
off  to  single  precision  and  converted  to  2's  complement  form 

AGSBUFF,  = TSr 

6 X 

AGSBUFF_  = TSv 

7 X 

AGSBUFF^  = TSr 

8 7 

AGSBUFF^  = TSv 

9 7 

AGSBUFF^  = TSr 

10  z 

AGSBUFF^  TSv 

11  z 

TSt  = (TAT  - AGSK)/K:TSCALE 
AGSBUFF^2  “ most  significant  half  of  TSt 
AGSBUFF^_  = least  significant  half  of  TSt 
DNLSTCOD  =1 


Delay  20  seconds  (for  downlink  of  AGS  downlist) 

DNLSTCOD  = AGSWORD  (restore  downlist) 

If  FLAGWRDO  bit  8 (IMUSE)  = 0: 

If  IMUCADR  ^ +0,  delay  0.1  second,  then  repeat  this  step 
Perform  "IMUZERO" 


Perform  "IMUSTALL" 

Switch  FLAGWRD2  bit  1 (NODOFLAG)  to  0 

Proceed  to  "GOMARK3"  with  TS  = K:V50N16  (DSPTEMX) 

(If  terminate,  proceed  to  "ENDEXT"j  if  proceed,  proceed 
to  "ENDEXT";  if  other  response,  proceed  to  "ENDEXT".) 
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UFUFDATE  UPOLDMOD  = MODREG 


(verbs  70-73) 


OHWELLl 


0HWELL2 


UPVERB  = UPVERBSV 
UPCOUNT  = 1 
DNLSTCOD  = 1 
MODREG  = 27 

Establish  "DSPMMJOB"  (pr30) 

If  UPVERB  = 1 or  2,  proceed  to  "OHWELLl"  (get  # of  components) 
COMPNUMB  = 2 

Proceed  to  "0HWELL2"  (verbs  70  and  73  have  only  2 components) 

MPAC^  = "UPBUFFq"  (address  of  UPBUFFq) 

Proceed  to  "GOXDSPF"  with  TS  = K;V21N01 

(If  terminate,  proceed  to  "UP0UT4";  if  proceed,  repeat  this 
step;  if  other  response,  continue  at  next  step.) 

If  TSverb  (MPACq)  = 32,  repeat  previous  step  (recycle) 

If  UPBUFFq  < 3,  proceed  to  second  line  of  "OHWELLl" 

If  UPBUFFq  > 20,  proceed  to  second  line  of  "OHWELLl" 

COMPNUMB  = UPBUFFq 

UPCOUNT  = UPCOUNT  + 1 

i = UPCOUNT  - 1 

MPAC^  = "UPBUFF^"  (address  of) 

Proceed  to  "GOXDSPF"  with  TS  = K:V21N01 

(If  terminate,  proceed  to  "UP0UT4"j  if  proceed,  repeat  this 
step;  if  other  response,  continue  at  next  step.) 

If  TSverb  (MPACq)  = 32,  repeat  previous  step  (recycle) 

If  UPCOUNT  ^ COMPNUMB,  proceed  to  "UPVERIFY" 

UPCOUNT  = UPCOUNT  + 1 

Proceed  to  "0HWELL2" 
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UFVERIF? 


UFSTORE 


UPEND73 


TIMEDIDL 


MPAC2  = "UPTEMP" 

Proceed  to  "GOXDSPF"  with  TS  = K:V21N02 

(if  terminate,  proceed  to  "IJP0UT4”;  if  proceed,  proceed 
to  "UPSTORE";  if  other  response,  continue  at  next  step.) 

If  TSverb  (MPACq)  = 32,  repeat  previous  step  (recycle) 

If  UPTEMPO  0,  proceed  to  "UPVERIFY" 

If  UPTEMP  > CCMPNTMB,  proceed  to  "UPVERIFI" 

i = UPTEMP  - 1 

Proceed  to  second  step  of  "0HWELL2" 

Inhibit  interrupts 

Invert  bit  3 of  FLAGWRDV  (VERIFLAG) 

If  DPVERB  > 2,  proceed  to  "UPEND73" 

Establish  "UP JOB"  ‘ ' ' (pr30) 

End  job 

UPBUFFjj  Q = UPBUFF_  ^ 
o,V  0,1 

Perform  "TIMEDIDL";  if  error  return,  continue;  otherwise  skip 
next  line 

Switch  bit  7 of  channel  11  to  1 (error  return) 

Proceed  to  "UPOUT4" 

UPBUFF^^  TQ  = TIMENOW 

’ (exchange) 

TIMENOW  = 0 

MPAC , = UPBUFF-  Q 

dp  8,9 

UPBUFFj,  a = 0 

o,y 

MPAC,  = MPAC,  + UPBUFF^^ 
dp  dp  18,19 

If  overflow  ()mPAC,  |>  2^): 

dp 

TIMENOW  = TIMENOW  + UPBUFF^g 
^^18,19  = ° 
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(if  overflow) 


UFJOB 


Return  to  caller  + one  line  (indicating  an  error  retiim) 


Force  sign  agreement  between  components  of  MPAG 


dp 


TIMENOW  = TIMENOW  + MPAC^ 

dp 

Return  to  caller  + two  lines  (indicating  a non-error  retvim) 
Perform  "INTSTALL" 


Switch  FLGWRDIO  bit  7 (REINTFLG)  to  1 


If  DPVERB  - 0,  proceed  to  "UPEND70" 


UPEND70 


If  UPVERB  = 1,  proceed  to  "UPEND71" 

If  UPVERB  = 2,  proceed  to  "UPEND72" 

UPBUFFg  g = -UPBUFFq  ^ 

Perform  "TIMEDIDL" ; if  error  return,  continue;  otherwise  skip 
next  line 

Sv/itch  bit  7 of  channel  11  to  1 and  skip  next  four  lines  (error 

return) 


TETCSM  = TETCSM  - UPBUFFg  ^ 

TETLEM  = TETLEM  - DPBDFF„  , 

U,1 

UPBUFFg  = 0 for  i = 10  thro\igh  13 

TEPHEM  = TEPHEM  + DPBUFFq  ^ ( UPBUFFg  ^ zeroed  in  process) 

Perform  "INTWAKEU" 


Proceed  to  "DP01IT4" 

UPEND71  EBANK  = bits  11-9  of  UPBUFFg 

DPTEMP  = low  8 bits  of  UPBUFFg 
i =-C0MPNl]MB  - 3 

If  UPTEMP  + 1 00400g,  proceed  to  "UPERRODT"  (block  of  addresses 

extends  beyond  end 

UPTEMP  = UPTEMP  + 1400.  of  EBANK) 

O 

®j+UPTEMP  = UI’BUFFj^^  ^or  i = 0 through  i 
Perform  "INTWAKEU" 
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UFEND72 


UFOUTA 


UPERROUT 


V82CALL 


V82G0FLP 


Proceed  to  "DP0UT4'' 

If  COMPNDMB  is  an  even  number,  proceed  to  "UPERROUT" 

Perform  indented  steps  for  i = 1,3,5,. ••  through  CCMPNUMB  - 2 
EBANK  = bits  11-9  of  UPBUFF^ 

TSadr  = low  8 bits  of  UPBUFF^  + 1400g 

^Sadr  ~ (load  specified  address  with  given  data) 

(end  of  "indented  steps") 

Perform  "INTWAKEU" 

MODREG  = UPOLDMOD 

Establish  "DSPMMJOB"  (pr30) 

DNLSTCOD  = 0 

Switch  bit  3 of  channel  11  to  0 (uplink  activity  lamp) 

Proceed  to  "ENDEXT" 

Switch  bit  7 of  channel  11  to  1 (operator  error) 

Perform  "INTWAKEU" 

Proceed  to  "UP0UT4" 

If  FLAGWRD7  bit  5 (AVEGFLAG)  = 1,  proceed  to  "V82G0N" 

OPTIONXq  = 2 
OPTIONX^  = 1 

Proceed  to  "GOXDSPF"  with  TS  = K:V04N12 

(if  terminate,  proceed  to  "ENDEXT";  if  proceed,  continue 
at  next  step;  if  other  response,  repeat  this  step.) 

Call  "TICKTEST"  in  0.08  second 

V82FLAGS  = OOOOOg 

Establish  "V82G0FF1"  (pr07) 

If  bits  1 and  2 of  V82FLAGS  both  = 0,  delay  one  second  and  then 
try  this  test  again  (i.e.  delay  until  either  is  set  to  one) 

EXVB  - 17 


Proceed  to  "GOXDSPF"  with  TS  = K:V16N44  (HAPOX,  HPERX,  TFF) 
(if  terminate,  switch  bit  5 of  EXTVBACT  to  0 and  end  job; 
if  proceed,  switch  bit  5 of  EXTVBACT  to  0 and  end  job; 
if  other  response,  proceed  to  "V82G0FLP" . ) 

V82G0FF1  TDECl  = TIMENOW 

TSTART82  = TDECl 

If  OPTIONX^  f 1,  perform  "CSMPREC" 

If  OPTIONX^  = 1,  perform  "LEMPREC" 

RONE  = MTT 
VONE  = VATT 
If  PBODY  = 0: 

TFFdRTMU  = K;ldRTMUE 
HPERMIN  = K:MINPERE  . 

Switch  FLAGWRDV  bit  2 (V82EMFLG)  to  0 
TS  = K:RPAD 
Proceed  to  "BOTHPAD" 

If  PBODY  =2: 

TFFdRTMU  = K:ldRTMUM 
HPERMIN  = K:MINPERM 
TS  = |RLS| 

Switch  FLAGWRDV  bit  2 (V82EMFLG)  to  1 
BOTHPAD  RPADTEM  = TS 

Perform  "SR30.1"  (get  HAPOX,  HPERX,  TFF,  mTPER) 

TSTART82  = TIMENOW  - TSTART82 
If  mTPER  ^ 0: 

mTPER  = TSTART82  + mTPER 
Set  V82FLAGS  to  OOOOlg 
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(If  mTPER  i-  0) 
End  job 


TFF  = TFF  + TSTART82 
Set  V82FLAGS  to  00002g 
End  job 

TICKTEST  If  bit  5 of  E2TVBACT  = 0; 

Establish  "ENDEXT"  (pr25) 

End  task 

Call  "TICKTEST"  in  1 second 
If  bit  1 of  V82FLAGS  = 1: 

mTPER  = mTPER  + K:1SEC 
If  bit  2 of  V82FLAGS  = 1: 

TFF  = TFF  + K:1SEC 
End  task 

V82G0N  Establish  "V82G0N1"  (VAC  area  required)  (pr07) 

If  NEWJOB  > 0,  perform  "CHANGl" 

Proceed  to  "GOIDSPF"  with  TS  = K:V16N44  (HAPOX,  HPERX,  TFF) 
(if  terminate,  continue  at  next  step;  if  proceed,  continue 
at  next  step;  if  other  response,  repeat  this  step.) 

Switch  bit  5 of  EXTVBACT  to  0 

End  job  . ' 

V82G0N1  RONE  = p 

(loaded  so  as  to  prevent  update  of  state  vector 
VONE  = p between  storage  of  R and  V) 

If  FLAGWRD8  bit  11  (mOONFLG)  = 1;  (moon) 

Switch  FLAGWRDV  bit  2 (V82IMFLG)  to  1 

TFFdRTMU  = KildRTMIW 
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(If  FUGWRD8  bit  11  (LMOQNFLG)  =1:) 

HPERMIN  = K:MINPERM 
TS  = iRLSl 

Proceed  to  "V82GON2" 

If  FLAGWRD8  bit  11  (LMOONFLG)  = 0:  (earth) 

Switch  FLAGWRD7  bit  2 (V82EMFLG)  to  0 
TFFdRTMU  = KrldRTMtlE 
HPERMIN  = KiMINPERE 
TS  = K:RPAD 
V82GON2  RPADTEM  = TS 

Perform  "SR30.1" 

If  bit  5 of  ErrVBACT  = 0,  proceed  to  "ENDEXT" 
Delay  1 second 
Proceed  to  "V82G0N1" 

SR30.1  If  FLAGWRD7  bit  2 (V82EMFLG)  = 1;  (moon) 

RONE  = RONE,  shifted  left  2 places  (B27) 

VONE  = 70NE,  shifted  left  2 places  (B5) 

RMAGl  = /RONE  I 
VONEPR  = TFFdRTMU  VONE 
TFFNP  = |( RMAGl  VONEPR)  * unitRONEl ^ 

TFFVSQ  = -IVONEPR)^ 

TFFALFA  = 2 / RMAGl  + TFFVSQ 
TFFRTALF  =y)TFFALFAr 
TS  = TFFRTALF^  signTFFALFA 
If  TS  = 0; 

TFFldALF  = 0 
Skip  next  line 
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TFFldALF  = 1 / TS 
TS  =yil  - TFFALFA  TFFNP| 

RPER  = TFFNP  / (1  + TS) 

TSl  = (1  + TS)  TFFldALF 
If  TS1>  0: 

If  |tS1|  ^ K;posinaxdp 
RAPD  = TSl 
Skip  next  line 
RAPO  = Kiposmaxdp 
TS  = RAPO  - RPADTEM 

If  FLAGWRD7  bit  2 (V82EMFLG)  = 1:  (moon  centered) 

TS  = TS,  shifted  right  2 places 
HAPOX  = TS  (limited  to^K:MAXNM) 

TS  = RPER  - RPADTEM 

If  FLAGWRD7  bit  2 (V82EMFLG)  = 1: 

TS  = TS,  shifted  right  2 places 
HPERX  = TS  (limited  to"^  K:MAXNM) 

If  HPERX  < HPERMIN,  mTPER  = +0 
If  HPERX  > HPERMIN: 

TSr  = RPER 
Perform  "CALCTPER" 
mTPER  = - TSt 
TSr  = HPERMIN  + RPADTEM 
Perform  "CALCTFF" 

TFF  = -TSt 
Return 
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CALCTPER  Switch  FLAGWRD7  bit  1 (TFFSW)  to  1 


CALCTFF 


Skip  next  step 

Switch  FLAGWRD7  bit  1 (TFFSW)  to  0 
RTERM  = TSr  , 

TSqsq  = (2  - RTERM  TFFALFA)  RTERM  - TFFNP 

If  FLAGWRD7  bit  1 (TFFSW)  = 1,  TSqsq  = 0 

If  TSqsq  < 0:  (trajectory  does  not  cross  RTERM) 


TSt  - Krposmaxdp 
Return 


QTERM  = /TSqsq 

TFFQl  = VONEPR  • RONE,  shifted  left  3 places 
If  TFFQl > 0 : ( outbound ) 

TSnum  = - QTERM  - TFFQl 
TSden  = 2 - RTERM  TFFALFA  - TFFALFA  RMAGl 
If  iTSdenI  ^ 2“^^,  TSden  = 0 
If  TFFQl  <0:  . (inbound) 

TSnum  = RTERM  - RMAGl 

TSden  = - QTERM  + TFFQl 

If  j TSden  I 2“^or  2~'^ , TSden  = 0 (2"^ 


1 

(meters^) 

(unitless) 


(meters) 

(meters^) 

_7 

earth,  2 moon 


If  TSden  - 0: 


If  TFFALFA^  0: 
TSt  = 0 


Return 
TSldz  = 0 

Proceed  to  "TFFELl" 

If  (TSnum  TFFRTALF  / TSden | ^ 1: 
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TSldz  = TSden/TSnum 
Proceed  to  "TFFELl" 

TSz  = TSnum/TSden 

TFFTEM  = TSz^  TFFNP  signTSz  (used  only  in  GSM) 

TFFX  = TSz^  TFFALFA 

TSpoly  = KrTFFO  + K;TFF1  TFFX  + K;TFF2  TFFX^  + ...  + KrTFF5  TFFX^ 
TStrtmu  = TSz  (RTERM  - 2TSz^  TSpoly  + RMAGl) 

If  TStrtmu ^0,  proceed  to  "ENDTFF" 

If  TStrtmu  signTFFQl^O,  proceed  to  "ENDTFF" 

If  TFFldALF^O,  proceed  to  "ENDTFF" 

TStrtmu  = TStrtmu  + TFFldALF  KrPIdl6  / TFFRTALF 
Proceed  to  "ENDTFF" 

TFFELl  TFFDELQ  = -QTERM  - TFFQl 
TFFX  = TSldz^  TFFldALF 

If  |TFFX|^1,  TFFX  = K:posmaxdp  sign  TFFX 

TSpoly  = KrTFFO  + KrTFFl  TFFX  + K:TFF2  TFFX^  + ...  + K:TFF5  TFFX^ 
TS  = TSldz  TFFldALF  (TFFX  TSpoly  - l) 

TFFTEM  = TFFNP  TFFldALF  sign(TSldz  RMAGl  + TFFQl)  (GSM  only) 
TStrtmu  = TFFldALF  (2TS  + i/TFFldAIJ  K:PIdl6  - TFFDELQ) 

ENDTFF  TSt  = TStrtmu  TFFdRTMU 

If  overflow,  TSt  = Krposmaxdp 
Return 

R31GALL  Establish  "V83GALL"  (pr03) 

Delay  1 second 

If  bit  12  EXTVBAGT  =0,  proceed  to  second  line  of  "R31GALL" 
Establish  "DISPN5X"  (pr05) 

End  Task 
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DISPN6X  Proceed  to  "GOXDSPF'  with  TS  = K:V16N54  (RANGE,  RRATE,  RTHETA) 
(if  terminate  or  proceed,  set  bit  5 of  EXTVBACT  = 0 and 
end  job;  if  other  response,  repeat  this  step.) 

V83CALL  If  FUGWRD7  bit  5 (AVEGFLAG)  =1: 

If  FLAGWRD6  bit  8 (MDNFLAG)  = 1,  proceed  to  "GETRVN" 

Proceed  to  "DOCMBASE"  with  TS6  = TIMENOW 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1,  proceed  to  "DOCMBASE"  with 
TS6  = TIMENOW 

TDECl  = TIMENOW 

Perform  "LEMPREC" 

BASETHP  = RATT  (scaled  B29  or  B27) 

BASETHV  = VATT  (scaled  B7  or  B5) 

TS6  = TAT 

DOCMBASE  BASETIME  = TS6 
TDECl  = TS6 
Perform  "CSMPREC" 

BASE  OTP  = RATT  (scaled  B29  or  B27) 

EASEOTV  = VATT  (scaled  B7  or  B5) 

REV83  If  FLAGWRD7  bit  5 (AVEGFLAG)  * 1,  proceed  to  "GETRVN" 

If  FUGWRD8  bit  8 (SURFFLAG)  = 1: 

TDECl  = TIMENOW 
Perform  "LEMPREC" 

Proceed  to  "OTHCONIC" 

TDECl  = TIMENOW 
Perform  "INTSTALL" 

Switch  FLAGWRDO  bit  12  (MOONFLAG)  to  0 
RCV  = BASETHP 
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VCV  = MSETHV 

If  FIAGWRD8  bit  11  (LMOONFLG)  = 1: 

Switch  FUGWRDO  bit  12  (MOONFUG)  to  1 
Switch  FIAGWRD3  bit  4 (INTYPFLG)  to  1 
TET  = MSETIME 
Perform  "INTEGRVS" 

OTHCONIC  RONE  = ^TT 
TONE  = VATT 
Perform  "INTSTALL" 

Switch  FLAGWRD3  bit  4 (INTIPFLG)  to  1 
TS  = TAT 

OTHINT  TDECl  = TS 

Switch  FLAGWRDO  bit  12  (MOONFLAG)  to  0 
RCV  = RASEOTP 
VCV  = MSEOTV 

If  FLAGWRD8  bit  11  (LMOONFLG)  = 1: 

Switch  FLAGWRDO  bit  12  (MOONFLAG)  to  1 
TET  = BASETIME 
Perform  "INTEGRVS" 

COMPDISP  RANGE  = (RATT  - R0NE| 

RRATE  = uiiit(p.TT  - RONE)  • (VATT  - TONE) 
Perform  "CDUTRIG" 

Perform  "NBTOSM" 

pBrf  = [^FSMMA^  |nBSMMA^  KrUNITZ 

TSp  = \anit(ZNBrf  - (^Brf  • unitRONE)  unitRONE) 

TSu  = ((unitRONE  * TONE)  * unitRONE)  • TSp 
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RTHETA  = arccos(TSp«  ZNBrf  signTSu) 

If  unitRONE  • ZNBrf  <0,  RTHETA  = 1 RTHETA 
If  bit  5 of  EXTVBACT  = 0,  proceed  to  "ENDEXT" 
Set  bit  12  of  EXTVBACT  to  1 
Proceed  to  "REV83" 

GETRVN  RONE  = M 
VONE  = W 
TSl  = VCSM 
TS2  = RCSM 
TS  = PIPTIME 

If  FLAGWRD6  bit  8 (MUNFLAG)  = 0; 

Perform  "INTSTALL” 


(change  to  pr22) 


(change  to  pr03) 


I m 


Switch  FIAGVffiD3  bit  4 (INTYPFLG)  to  0 
Proceed  to  "OTHINT" 

MTT  = TS2  {reFSMMA^  (note  that  MTT  and  VATT,  are 

equivalent  to  locations  OD 

VATT  = TSl  [REFSMMAtJ  and  6D,  respectively,  of  the 

pushdown  list) 

Proceed  to  "COMPDISP" 

DSPTEMX^p  = TIG  (vb90) 

Proceed  to  "GOXDSPF”  with  TS  = K:V06Nl6  (DSPTEMX) 

(if  terminate,  proceed  to  "ENDEXT";  if  proceed,  continue 
at  next  step;  if  other  response,  repeat  this  step.) 

TDECl  = DSPTEMX 

If  DSPTEMX  = 0,  TDECl  = TIMENOW 
Perform  "CSMPREC" 

RPASS36  = mTT 

PP36  = unit  (VATT  * unltRATT) 

TDECl  = TAT 

Perform  "lEMPREC" 

TSlos  = ^ASS36  - MTT 
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RANGE  = RATT  • 1^36 
RRATE  = JATT  • pP36 

TSuf  = unit (( uni tMTT  * pTT)  unltRATT) 

TSuf  = unit(l,  TSuf  , TSuf  ) 

TSulos  = unit(TSlos  - (unitMTT  • T^Slos)  unitMTT) 

T^Sulos  = unit(l,  TSulos  , TSulos  ) 

J 

RTHETA  = arccos(TSulos  TSuf) 

If  (TSulos  * TSuf  ♦ MTT)  < 0,  RTHETA  = 1 - RTHETA 

Proceed  to  "GOXDSPF"  with  TS  = K:V06N90  (RANGE,  RRATE,  RTHETA) 
(If  terminate,  proceed  to  "ENDEXT";  if  proceed,  proceed  to 
"ENDEXT";  if  other  response,  proceed  to  "R36'V 

SBANDANT  TDECl  = TIMENOW 

Perform  "LEMCONIC" 

If  PBODY  = 0:  (means  earth) 

TS  = MTT 

Skip  next  three  lines 
TSt  = TAT 
Perform  "LSPOS" 

TS  = (K;REMDIST  pOON)  + RATT 
TS  = -unitTS 
Perform  "CDUTRIG" 

TS  = (REFSMMATJ  TS  (transform  to  stable  member) 

PITCHANG^  = +0 
dp 

YAWANG,  = +0 
dp 

Perform  "SMTONB" 
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SBANDEX 


ATTACHIT 


RLM  = (SMNBMAfl  TS 

RLMYTEMP  = RLM 
7 

RLM  = (RLM  - RLM  ) K:10VSQRT2 
y X 

RLM  = (RMfTEMP  + RLM  ) K:10VSQRT2. 

* X 

RLMTEMP  = RLM 

TS2  = RLM  - (RLM.  KrUNITY)  K;UNITY 

TS2  = unitTS2j  if  overflow,  proceed  to  "SBANDEX" 

R^  = -(TS2  * K:UNITZ) 

TS  = RLM*  K: UNITY 

PITCHANG  = arcsln(signTS  |RLMj ) 

TSl  = TS2*  KrUNITZ 
If  TSKO: 

PITCHANG  = 0.5  - PITCHANG 
KiM  = unltRLMTEMP  * TS2 

TS  = (KzUNITX  cosPITCHANG)  - (KrUNITZ  sinPITCHANG) 

TS  = TS  * RIJyi 

YAWANG  = arcsin(signTS  |RLM1 ) 

If  bit  5 of  EXTVBACT  = 0,  proceed  to  "ENDEXT" 

(change  to  pr05) 

Perform  "GOXDSPFR"  with  TS  = K:V06N51  (PITCHANG,  YAWANG) 

(If  terminate  or  proceed,  set  bit  5 of  EXTVBACT  = 0 and  end 
job}  if  other  response,  end  job.) 

TS  = 100^ 

perform  "BLANKET"  , , 

(change  to  pr04) 

Proceed  to  "SBANDANT" 

Perform  "INTSTALL" 

Switch  FLAGWRD8  bit  12  (CMOONFLG)  to  1 
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RDRUSECK 


If  FLAGWRD8  bit  11  (LMOONFLG)  =0: 

Switch  FLAGWRD8  bit  12  (CMOONFLG)  to  0 
Inhibit  interrupts 
XKEPCSM  = XKEPLEM 
TCCSM  = TCLEM 
VCVCSM  = VCVLEM 
RCVCSM  = RCVLEM 
PVCSM  = ip/LEM 
DELTACSM  = DELTALEM 
TETCSM  = TETLEM 
VPCTCSM  = VRECTLEM 
^CTCSM  = RRECTLEM 
Release  interrupt  inhibit 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1,  proceed  to  "USEPIOS" 
Perform  "MOVEPLEM" 

Set  FLAGWRDO  bit  12  (MOONFLAG)  = FLAGWRD8  bit  11  (mOONFEG) 
PBODY  = 0 

If  FLAGWRDO  bit  12  (MOONFLAG)- =1,  PBODY  = 2 
Perform  "SVDWNl"  (scaling  controled  by  PBODY) 

QPRET  = "PINBRNCH" 

Proceed  to  "INTWAKE" 

If  FLAGWRD3  bit  11  (N0R29FLG)  = 0,  proceed  to  "ALM/END" 

If  FLAGWRD5  bit  11  (R77FLAG)  = 1,  proceed  to  "ALIVeND" 

If  FLAGWRD7  bit  6 (V37FLAG)  = 0,  skip  next  line 
If  FLGWRDll  bit  15  (IBBYPASS)  = 0,  proceed  to  "ALM/END" 
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DSP68 

WAIT68 


SET57 


RESET57 


LRP2C0My 


V59GP63 


If  FUGWRDl  bit  5 (TRACKFLG)  * 0,  return  ' 

Proceed  to  "ALM/END** 

Perform  "GOXDSPFR"  with  TS  » K;¥06N68  ( HANGEDSP,  TTFDISP,  DELTAH) 

(If  terminate,  set  bits  5 and  1 of  EXTVBACT  * 0 and  end  job; 
if  proceed,  proceed  to  "SET57";  if  other  response,  end  job.) 

Delay  two  seconds 

If  bit  5 and  bit  1 of  EXTVBACT  = 0,  proceed  to  "ENDEXT" 

If  bit  5 of  EXTVBACT  = 1,  proceed  to  "DSP68" 

Perform  “G0MARK3R"  with  TS  = K;V50N68  ( RANGEDSP,  TTFDISP,  DELTAH) 

(If  terminate  or  proceed,  set  bits  5 and  1 of  EXTVBACT  = 0 
and  end  job;  if  other  response,  proceed  to  "RESET57".) 

(TS  is  formed  by  adding  13000g  to  K:V06N68) 

Proceed  to  "WAITbS” 

Switch  FLGWRDll  bit  8 (LRINH)  to  1 

Set  bit  5 of  EXTVBACT  = 0 

End  job 

Switch  FLGWRDll  bit  8 (LRINH)  to  0 
EXTVBACT  = 0002 5g 
End  job 

Perform  "LRP0S2"  (See  Anomaly  Report  No.  L-lC-03) 

Perform  "RADSTALL" 

If  RADGOOD  = 0,  perform  "ALARM"  with  TS  = 00523g 
Proceed  to  "PINBRNCH" 

RPCRTIME  = 37777g 
RPCRTQSW  = -1 
Proceed  to  "PE^BRNCH" 
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Quantities  in  Computations 


AGSBUFF-  _ , ; Single  precision  X,  Y and  Z components  of  the  LM  position 

vector,  scaled  B25  (earth)  or  B23  (moon)  in  units  of  feet  and  in 
stable  member  coordinates. 

AGSBUFF,  „ Single  precision  X,  Y and  Z components  of  the  LM  velocity 

vector,  scaled  B13  (moon)  or  B15  (earth)  in  units  of  feet/second  and  in 
stable  member  coordinates. 

AGSBUFF^  rt  in!  Single  precision  X,  Y and  Z components  of  the  GSM  position 

W ^ O ^ aLL} 

vector,  scaled  B25  (earth)  or  B23  (moon)  in  units  of  feet  and  in  stable 
member  coordinates. 

AGSBUFF-  Q -I-,:  Single  precision  X,  Y and  Z components  of  the  GSM  velocity 

vector,  scaled  B15  (earth)  or  B13  (moon)  in  units  of  feet/second  and  in 
stable  member  coordinates. 

AGSBUFF^ „ : Double  precision  difference  between  the  timetag  of  the 

state  vectors  in  AGSBUFF^  and  the  time  stored  in  AGSK,  scaled  B18 
in  units  of  seconds. 

AGSK:  Double  precision  time  of  AGS  initialization,  scaled  B28  in  units 
of  centiseconds. 

AGSWORD:  Single  precision  storage  for  the  value  of  DNLSTGOD  when  a list 
is  temporarily  interrupted  to  change  to  another  list. 

BASEOTP,  BASEOTV:  Double  precision  vector  storage  for  position  and  velocity 
of  the  GSM  at  BASETIME,  scaled  B29  (earth)  or  B27  (moon)  for  position; 

B7  (earth)  or  B5  (moon)  for  velocity.  Position  is  in  units  of  meters, 
and  velocity  is  in  units  of  meter s/centisecond. 

BASETHP,  BASETHV:  Double  precision  vector  storage  for  position  and  velocity 
of  the  LM  at  BASETIME,  scaled  B29  (earth)  or  B27  (moon)  for  position  in 
units  of  meters;  B7  (earth)  or  B5  (moon)  for  velocity  in  units  of  meters 
per  centisecond. 

BASETIME:  Double  precision  reference  time  for  verb  83  routines,  scaled 

B28  in  units  of  centiseconds. 

GOMPNUMB:  Single  precision  ntimber  of  components  (each  single  precision 
octal)  in  a program  27  update,  scaled  B14  and  unitless. 

DAPBOOLS:  See  DAPA  section. 

D^ELTAGSM,  D^ELTALEM:  See  ORBI  section. 

DELTAH:  See  SERV  section. 
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DNI5TC0D;  See  TELE  section. 

DNTMGOTO:  See  TELE  section. 

DSPTEMX:  See  DATA  section. 

^ADR*  precision  erasable  memory  cell  whose  address  is  in  ADR. 

EBAM:  See  MATX  section. 

EXTVBACT:  Single  precision  flagword  indicating  when  extended  verbs  are 
in  action. 

HAPOX,  HPEEIX:  Double  precision  heights  above  the  earth  or  moon  at  apogee 
and  perigee,  scaled  B29  in  units  of  meters;  displayed  by  N44. 

HPERMIN:  Double  precision  minimum  perigee  altitude,  scaled  B29  (earth)  or 
B27  (moon)  in  units  of  meters;  used  to  define  the  entry  interface 
altitude • 

IGG:  See  COOR  section. 

IMUCADR,  ISSOGGD:  See  IMUC  section. 

KrldRTMUE;  Double  precision  constant,  program  notation  1/^lTMUE  , scale 
factor  B-17,  value  0.50087529  E-5  x 2^  . Corresponding  to  the  re- 
ciprocal of  root  of  unmodified  earth 

KtldRTMUM:  Double  precision  constant,  program  notation  l/RTMDM  , scale 
factor  B-14,  value  0.45162595  E-4  x 2^^.  Corresponding  to  the  re- 
ciprocal of  root  of  moon^. 

K:10VSQRT2;  Double  precision  constant  stored  as  0.7071067815,  corr- 
esponding to  1//27  Equation  value:  0.7071067815.  Scaled  BO  and  imitles 

K:1SEC:  Single  precision  constant  stored  as  100  x 2 scaled  B14  in 
lanits  of  centiseconds.  Equation  value:  100. 

K:MAXNM:  Double  precision  constant  stored  as  01065g  05603rt,  scaled  B29 
in  units  of  meters.  Equation  value:  18519814.  “(Equivalent  to  about 
9999.8995  nautical  miles.) 

-29 

K:MINPERE:  Double  precision  constant  stored  as  91440  x 2 , scaled  B29 

in  units  of  meters.  Equation  value:  91440. 

K:MINPERM:  Double  precision  constant  stored  as  10668  x 2 scaled  B27 
in  units  of  meters.  Equation  value:  10668. 

K:PIdl6:  Double  precision  constant  stored  as  3.141592653  x 2 scaled 
B5  and  unitless.  Equation  value:  6.2831853. 

K:posmaxdp:  See  "Major  Varix.bles"  section. 

-29 

K:REMDIST:  Double  precision  constant  stored  as  384402000  x 2 , scaled 

B29  in  units  of  meters.  Equation  value:  384402000. 
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-29 

K:RPAD:  Double  precision  constant  stored  as  6373338  x 2 ^ , scaled  B29 

in  Tinits  of  meters.  Equation  value:  6373338. 

KiRSCALE:  Double  precision  constant  stored  as  3.280839  x 2 , scaled  B3 

in  units  of  feet  per  meter.  Equation  value:  3.280839. 

K'.TFFO,  K:TFF1,  K:TFF2,  K:TFF3,  K:TFF4,  K:TFF5:  Six  double  precision 
constant  coefficients  of  a polynomial  approximation.  Scaled  BO  and 
unitless.  Equation  value: 

0.3333333333 
-Ov 1999819135 
0.1418148467 
-0.101310997 
0.05609004986 
-0.01536156925 

K'.TSCALE:  Double  precision  constant  stored  as  100  x 2 scaled  BIO 
in  units  of  centiseconds  per  second.  Equation  value:  100. 

K:UNITX,  K:UNITZ,  K: UNITY:  See  SERV  section. 

-9 

K:VSCALE:  Double  precision  constant  stored  as  328.0839  x 2 , scaled  B9 

in  imits  of  feet  per  second/meters  per  centisecond.  Equation  value: 
328.0839. 

MGC:  See  COOR  section 

MMNUMBER:  See  PGSR  section. 

MODREG:  See  DATA  section. 

MPAC:  See  DINT  section. 

mTPER:  Double  precision  time  to  perigee,  scaled  B28  in  lanits  of  centiseconds. 

(NBSMMA'3  : See  COOR  section. 

NEWJOB:  See  MATX  section. 

NOUNREG:  See  DATA  section. 

NUVCSM,  NUVLEM:  See  ORBI  section. 

OGC:  See  COOR  section. 

OPTIONX-,  OPTIONX^ : Display  registers  used  by  noun  12  with  extended  verbs. 
Similar  to  OPTiONl,  0PTI0N2.  Same  register  as  DSPTEMX. 

PBODY:  See  ORBI  section. 

PIPTIME:  See  SER7  section. 

PITCHANG:  Cell  used  to  contain  the  pitch  gimbal  angle  required  to  point 
the  S-band  antenna  toward  the  center  of  the  earth.  Sealed  BO,  in 
units  of  revolutions. 
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QPRET:  See  ORBI  section. 


QTERM:  Double  precision  product  of  the  cotangent  of  flight  path  angle 
at  RTERM  and  the  square  root  of  semi-latus  rectum,  scaled  B16  (earth) 
or  B15  (moon)  in  units  of  meters  to  the  one-half  power. 

RADGOOD,  RADMODES:  See  RADR  section. 

RANGE,  RRATE:  Double  precision  range  and  range-rate,  scaled  B29  for 
range  in  'onits  of  meters  and  B7  for  range-rate  in  units  of  meters 
per  centisecond.  in  "R36''  contains  out  of  plane  pesition  and  velocity, 
same  scaling  and  units. 

RANGEDSP:  See  DESC  section. 

RAPO,  RPER:  Double  precision  radius  at  apogee  and  perigee,  scaled  B29 
(earth)  or  B27  (moon)  in  units  of  meters. 

^TT,  VATT,  TAT;  See  ORBI  section. 

RCSM:  See  SERV  section. 

RCV,  VCV;  See  CONG  section. 

RCVCSM,  RCVLEM;  See  ORBI  section. 

[REFSMMAf)  : See  COOR  section. 

RLM:  Double  precision  vector  defined  by  transforming  the  unit  line-of-sight 
vector  (reference  coordinates)  first  into  stable  member  then  into  nav- 
igation base  coordinates,  and  finally  rotated  and  compensated  by  the 
orientation  of  the  S-band  antenna  moimt  with  respect  to  the  navigation 
base. 


RLMTEMP:  Temporary  storage  location  for  RLM  to  be  used  in  later  calculations. 

RLMYTEMP:  Temporary  storage  location  for  RLM  . 

y 

RLS:  See  CONG  section. 

RMAGl:  Double  precision  magnitude  of  RONE,  scaled  B29  (earth)  or  B27 
(moon)  in  units  of  meters. 

M,  VN:  See  SERV  section. 

RONE,  VONE:  Double  precision  position  and  velocity  vectors  at  TSTART82; 
scaled  B29  (earth)  or  B27  (moon)  for  position,  and  B7  (earth)  or  B5 
(moon)  for  velocity.  Position  is  in  units  of  meters,  with  velocity 
in  units  of  meter s/centi second. 

RPADTEM;  Double  precision  radius  of  launch  site  on  earth  or  moon  for  use 
as  a base  for  computing  altitude,  scaled  B29  (earth)  or  B27 
(moon)  in  units  of  meters. 

^ASS36:  Double  precision  vector  storage  for  GSM  position  vector  in 
routine  36,  scaled  B29  in  units  of  meters. 
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RPCRTIME:  See  SERV  section. 

RFCRTQSW:  See  SERV  section. 

PECTCSM,  pECTLEM:  See  ORB  I section. 

RSAMPDT:  See  RADR  section. 

RTERM:  Double  precision  terminal  radius  for  calculation  of  IFF,  scaled 
B29  (earth)  or  B27  (moon)  in  units  of  meters. 

RTHETA:  Display  angle  information  for  R31  and  R36,  scaled  BO  in  units  of 
revolutions. 

SAMPTIME:  See  DSKY  section. 

SMNBMAT  : See  COOR  section. 

TANGq  See  RADR  section. 

TCCSM,  TCLEM:  See  ORBI  section. 

TDECl:  See  ORBI  section. 

TEPHEM;  See  COOR  section. 

TET,  TETCSM,  TETLEM:  See  ORBI  section. 

TFF:  Double  precision  time  of  free  fall  to  RTERM,  scaled  B28  in  units 
of  centiseconds. 

TFFldALF:  Double  precision  semi -major  aoda,  stored  in  units  of  meters 

with  variable  scaling. 

TFFALFA:  Double  precision  reciprocal  of  the  semi-major  axis,  stored 
as  meters  with  variable  scaling. 

TFFDELQ:  Double  precision  difference  between  —QTERM  and  TFFQl,  scaled 
B16  (earth)  or  B15  (moon). 

TFFdRTMU:  Double  precision  reciprocal  of  the  square  root  of  mu  of  pri- 
mary body;  variable  scaling. 

TFFNP:  Double  precision  semi-latus  rectum,  stored  in  units  of  meters 
with  variable  scaling. 

TFFQl;  Intermediate  quantity  calcialated  in  "GALCTFF",  scaled  Bl6  (earth) 
or  B15  (moon) . 

TFFRTALF:  Double  precision  square  root  of  TFFALFA,  stored  as  meters”^  with 
variable  scaling. 
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TFFTEM;  Double  precision  intermediate  variable  used  in  "CALCTFF",  stored 
in  units  of  meters  with  variable  scaling, 

TFFVSQ:  Double  precision  value  of  the  complement  of  the  square  of  the 
velocity  divided  by  the  root  of  muj  variable  scaling. 

TFFX:  Double  precision  universal  variable.,  scaled  BO  and  unitless. 

KIETAD;  See  IMUC  section. 

( TIG:  See  BURN  section. 

TIMENOW:  Double  precision  current  time  scaled  B28  in  units  of  centi- 
seconds;  a=,  computer  counter  incremented  every  centisecond  automat- 
ically, and  modified  by  verbs  55,  70  and  73. 

TSTART82:  Double  precision  start  time  of  the  verb  82  routines,  scaled  B28 
in  centlseconds;  used  to  update  TFF  from  its  value  at  the  time  of  verb 
82  inltieilization  to  a value  corresponding  to  the  time  at  which  it  is 
displayed.  Also  used  to  update  mTPER. 

TTFDISP;  See  DESC  section. 

yNP36:  Double  precision  vector  storage  for  normal  to  the  GSM  orbital 
plane,  scaled  B1  and  unitless. 

UPBUFFq  Single  precision  buffer  cells  for  P27  updates. 

UPCOUNT:  Single  precision  number  of  components  received  in  a P27  update, 
scaled  B14  and  unitless. 

UPOLDMOD:  Single  precision  storage  for  the  value  of  MODREG  at  the  initial- 
ization of  a P27  update. 

UPTEMP:  Single  precision  storage  for  the  number  of  a P27  update  component 
to  be  corrected  or  for  an  address  of  a cell  to  be  updated. 

UPVERBSV,  UPVERB:  Single  precision  indication  of  the  verb  that  initiated 
a P27  update,  scaled  B14  and  unitless. 

V82FLAGS:  Single  precision  flagword  used  in  verb  82  routines.  Bit  two 
is  set  when  only  TFF  is  computed  and  bit  one  is  set  when  mTPER  is  com- 
puted. 

VCSM:  See  SERV  section. 

TCVCSM,  TCVIEMr  See  ORBI  section. 

V^ON;  See  COOR  section, 

TONEPR:  Double  precision  value  of  TONE  TFFdRTMU,  scaled  B-10  (earth) 
or  B-9  (moon). 

]^CTCSM,  TOECTIEM;  See  ORBI  section. 
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XKEPCSM,  XKEPLEM:  See  ORBI  section. 

YAWANG:  Cell  used  to  contain  the  yaw  gimbal  angle  required  to  point 
the  S-band  antenna  toward  the  center  of  the  earth,  scaled  BO  in 
vmits  of  revolutions. 

ZNBrf:  See  COOR  section. 
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IMU  Computatloni 


SYCT3  (This  task  is  ussd  as  part  of  the  waitlist  control  and 
Is  entered • sTery  81.93  seconds) 

If  FLAGWRD2  bit  15  (DRIFTrLG)  « 1; 

If  IMUCIDR  * +0,  establish  “NEDONLY"  (pr35) 

If  IMUCADR  i-  +0,  call  "SVGT3’'  In  5.0  seconds 

Snd  task 

1 /gyro  KOMP  = ^CMP  rescaled  to  B21  pulses  (truncated  at  pulses) 

TS  “ address  of  MOMP 
Perform  "IMUPULSE" 

Perfora  "IMUSTALL" 

If  ISSGOOD  = 0,  End  job 

KCMP  “ fractional  part  of  MCMP  rescaled  to  B14  piilses 
End  job 

NBDOMLY  If  GCCMPSW  < 0,  End  job 
Inhibit  interrupts 

If  FLAGWRD2  bit  15  (DRIFTFLG)  « 0,  End  job 
TS  = 0 

If  FLAGWRDS  bit  8 (SURFFLAG)  « 1; 

TS  = 00200g 

Perform  "PIPASR"  skipping  first  step 
TS1  = IdPIPADT 

IdPIPADT  = TIMENOW^^  (load  present  time) 

Release  interrupt  inhibit 

TSt  = IdPIPADT  - TS1  (present  time  - prerlous  time) 
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NBD2 


1/PIPA 


TSt  = TSt 
GCOMPSW  = 0 
If  TS  > 0: 


(corrected  for  possible  overflow  of  TIMENOW 

counter) 


(SURFFLAG  set) 


GCQMP  = GCOMP  + 


GGOMP  = GCCMP  - TSt 


-ADIAX  ADSRAX 
0 -ADIAI 
0 

NBDX 
NBDT 
-NBDZ 


0 

ADSRAI 
-ABSRAZ  -ADIAZ 


DELV 


If  IGCOMP^  |>2,  GCOMPSW  = 2(lntegral  pari  of  IGCOMP  - l))  - 1 
sp  I ^gp 

If  GCOMP  |>2,  GCOMPSW  = 2(lntegral  pari  of  ■^(  IGCOMP  I - l))  - 1 
^sp  ' ^spl 

If  jGCOMP^  j>2,  GCOMPSW  = 2 (integral  part  of  ^(  jGCOMP^  j - l))  ^ 1 

If  GCOMPSi^^>  0,  proceed  t*  "I/GYRO" 

End  job 

If  GCOMPSW  < 0,  retTim 


DELV. 


GCOMPSW  = 0 


PIPASCF  0 0 

/ 

X 

/ 

= DELV  + 

0 PIPASCF  0 

DELV  - IdPIPADT 

- sp 

y 

0 0 PIPASCF 

L z J 

- sp  1 

/PIPABIAS 


.PIPABIAS 


flCCBiP  = ^OMP  + 

If  |gCC»4P^  > 2,  GCOMPSW 

If  IgCCMP  I > 2,  GCOMPSW 
I y i ’ 


- 

— 

/ NBDX  \ 

-ADIAX 

ADSRAX 

0 

0 

-ADI AY 

ADSRAY 

PLV  - IdPIPADTj  NBDY  j 

0 

-ADSRAZ 

-ADIAZ 

\ -NBDZ  J 

Iggomp 


- 2 


GCOMP  - 2 
7 
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If  |gCOMP^|  > 2,  GCGMPStf  = |gCOMP^ 
If  GCOMPSW  > 0,  establish  "1/GIR0" 
Return 


2 


LASTBIAS  Perfor*  "PIPUSE",  skipping  Ist  step 
If  GCOMPSW  < 0,  End  job 
TS  = 0 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1 , TS  = 00200g 

TSt  = PIPTIME-,  - IdPIPADT 
Is 

IdPIPADT  = K:plp2sec 
Proceed  to  ’'NBD2" 

PIPUSE  PIPA  = 0 (-0) 

If  bit  6 of  IM0DES30  =1:  (IMU  caged) 

Return 


(pr21 ) 


Inhibit  interrupts 

Switch  bit  1 of  IM0DES30  to  0 (Enable  PIPA  fail  monitor) 
Perform  "SETISSW" 


Release  interrupt  inhibit 
Return 

PIPFREE  Inhibit  interrupts 

Switch  bit  1 of  IM0DES30  to  1 (Disable  PIPA  fail  monitor) 
If  bit  10  of  IM0DES30  = 0:  (PIPA  failure) 

Perform  "ALARM"  with  TS  = 0021 2g 
Perform  "SETISSW" 


Release  interrupt  inhibit 
Return 
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MJMDN  TS  = OOOOOg 

For  i = 15,  14,  13,  12,  11  and  9,  set  bit  i of  TS  to  1 if 
bit  i of  DDDES30  is  not  equal  to  bit  i of  channel  30 

If  TS  = OOOOOg,  proceed  to  "TNONTEST" 

(no  change  in  IMU  related  discretes  on  channel  30) 

Set  bits  15-11  and  9 of  IM0DES3O  equal  to  bits  15-11  and  9 
of  channel  30 

If  bit  15  of  TS  = 1:  (change  in  IMU  temperature  discrete) 

Switch  bit  15  of  TS  to  0 

If  bit  15  of  IM0DES30  = 1:  (IMU  temp  exceeding  limits) 

Switch  bit  4 of  channel  11  to  1 

(turn  on  temperature  caution  lamp) 

If  bit  15  of  IM0DES30  = 0:  (temp  returned  within  limits) 

If  bit  1 of  IM0DES33  = 0,  switch  bit  4 of  channel  11  to  0 
(turn  lamp  off  unless  lamp  test  in  progress) 

If  TS  = OOOOOg,  proceed  to  "TNONTEST"  (no  further  changes) 

If  bit  14  of  TS  = 1:  (change  in  ISS  turn-on  delay  discrete) 

Switch  bit  14  of  TS  to  0 

If  bit  2 of  IM0DES30  = 0:  (no  tum-on  sequence  failure 

in  effect) 

If  bit  14  of  IM0DES3O  = 0,  perform  "ITURN0N2" 

(ISS  tum-on  initiate;  start  tum-on  sequence) 

If  bit  14  of  IMDDES30  = 1:  (ISS  tum-on  delay 

just  terminated) 

If  bit  15  of  channel  12  = 0:  (ISS  turn-on 

delay  was  not  terminated  by  LGC;  set  bit  2 
to  indicate  tum-on-sequence  failure) 

Switch  bit  2 of  IM0DES30  to  1 

Perform  "ALARM"  with  TS  = 00207q 

If  TS  = OOOOOg,  proceed  to  "TNONTEST" 


If  bit  13  of  TS  = 1;  (chang*  in  gtatus  of  IMU  fail  discrata) 
Switch  bit  13  of  TS  to  0 

Perform  "SITISSW" 

If  TS  = OOOOOg,  proceed  to  "TNOBTEST" 

If  bit  12  of  TS  =*  1:  (change  in  status  of  IGDU  fail  discrete) 

Switch  bit  12  of  TS  to  0 

Perform  "SETISSW 

If  TS  = OOOOOg,  proceed  to  "TNONTEST" 

If  bit  11  of  TS  = 1:  (change  in  status  of  IMU  cage  discrete) 

Switch  bit  11  of  TS  to  0 

If  bit  11  of  IM0DKS30  =0:  (IMU  caged  externally) 

Switch  bits  15-10  of  channel  14  to  0 

(stop  all  ICDU  and  RRGDU  driTe  pulses) 

Switch  bits  8,  6,  5,  4 end  2 of  channel  12  to  0 

(disable  inertial  data  display,  disable  IGDU 
Error  Gounters,  reset  IGDU  zero  discrete, 
renoTe  coarse  align  enable  discrete,  disable 
RRGDU  Error  Counters) 

Switch  FUGWRD5  bit  7 (ENGONFLG)  to  0 

Switch  bit  1 3 of  ckannel  1 1 to  0 and  bit  1 4 of 

channel  11  to  1 (engine  control  discretes  to  off) 

Perform  "CAGESUBI" 

Perform  "RRDREFDR"  (reset  TRACK,  DRIFT  and  REFSM  flags) 

CDU^CMD  “ 0 for  i = x,  y and  z (-0) 

GYRGCMD  =0  (-0) 

Switch  bits  9-6  of  channel  14  to  0 

(reaoTe  all  gyro-torque  logic  discretes) 

If  bit  11  of  IM0DES30  = 1,  proceed  to  "ISSZERO" 

If  TS  * OOOOOg,  proceed  to  "TNONTEST" 
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If  bit  9 of  TS  = 1: 


(IMU  power  on/off) 


TNONTEST 


Switch  bit  9 of  TS  to  0 

If  bit  9 of  IMDDES30  = 1:  (IMU  povrer  off) 

Switch  bit  6 of  IMDDES33  to  1 (disable  DAP) 

Perform  "RNDREFDR'' 

If  FLAC3WRDO  bit  8 (IMUSE)  = 1: 

Perform  "ALARM"  with  TS  = 00214g 

Switch  FLAGWRDO  bits  8 (IMUSE)  and  7 (RNDVZFLG)  to  0 

If  bit  9 of  IM0DES30  = 0:  (iMU  power  on) 

If  bit  2 of  IMDDES30  = 0,  perform  "ITURN0N2*' 

(Start  tum-on  sequence  if  no  tum-on-sequence 
failiire  indication  present) 

If  bit  7 of  IMDDES30  = 0,  proceed  to  "C33TEST" 

If  bit  8 of  IMDDES30  = 0;  (Delay  till  next  TARUPT  cycle) 

Switch  bit  8 of  IMDDES30  to  1 

Proceed  to  "C333TEST" 

Switch  bits  7 and  8 of  IMDDES30  to  0 

If  bit  14  of  IMDDES30  = 1:  (ISS  power  on  without  initiation 

of  tum-on  delay,  e.g.  verb  36) 

If  bit  4 of  channel  12  = 1,  proceed  to  "C33TEST" 

(coarse  align  enabled;  may  be  near  gimbal  lock) 

If  FLAGWRDO  bit  8 (IMUSE)  = 1,  proceed  to  "C33TEST" 

Perform  "GAGESUB2" 

Proceed  to  "ISSZERD" 

If  bit  9 of  IMUDES30  = 1,  perform  "ALARM"  with  TS  = 00213g 
(Tum-on  delay  initiated  without  ISS  power  on) 

Perform  "CAQESUB" 
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Call  "ENDTNON"  in  90  seconds 


Proceed  to  "C33TEST" 

ISS7.'F.Rn  Svifitch  l?lt  4 of  DSPTAB^^  to  0 (turn  off  no  attitude  lamp) 

Svd-tch  bit  15  of  DSPTAB^^  to  1 (to  flag  for  output) 

Svd-tch  bit  5 of  channel  12  to  1 (ICDU  aero) 

cpu  = 0 

Call  "UNZ2"  in  0.32  second 
C33TEST  TS  = OOOOOg 

For  i = 13,  12  and  11,  svatch  bit  i of  TS  to  1 if  bit  i of 
IMDDES33  is  not  equal  to  bit  i of  channel  33 

If  TS  = OOOOOg,  return  (to  T4RUPT  routine) 

Set  bits  13-11  of  IM0DES33  = bits  13-11  of  channel  33 

(Channel  33  flip-flops  reset  by  WAND  instruction) 

If  bit  13  of  TS  = 1 : (change  in  status  of  PIPA  fail  discrete) 

Svd-tch  bit  13  of  TS  to  0 

Set  bit  10  of  IMaDES30  = bit  13  of  IMDDES33 

Perform  "SETISSW” 

If  bit  1 of  IMDDES30  = 1:  (primary  PIPA  monitor  inhibited) 

If  bits  10,  9,  8,  7 and  5 of  IMDDES30  all  = 0: 

(PIPA  fail,  IMQ  povrer  on,  tum-on  delay  complete, 
tnrn-on  delay  not  just  initialized,  and  secondary 
PIPA  fail  monitor  enabled  ("PFAILOK")) 

Perform  "ALARM"  vd.th  TS  = 00212g 

If  TS  = OOOOOg,  return  (to  T4RUPT  routine) 

If  bit  12  of  TS  = 1;  (Dovmlink) 

Svd-tch  bit  12  of  TS  to  0 

Perform  "DNTMFAST" 

If  TS  = OOOOOg,  ret  Vim  (to  T4RUPT  routine) 
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If  bit  11  of  TS  = 1: 


(Uplink) 


Switch  bit  11  of  TS  to  0 
Perform  "UPTMFAST" 

Return  (to  T4RUPT  routine) 

CAGESUB  Switch  bits  6 and  15  of  channel  12  to  0 

(Disable  ICDU  Error  Counter  and  reset  "Tum-on  delay 
complete"  discrete.) 

Switch  bits  4 and  5 of  channel  12  to  1 

(Set  coarse  align  discrete  and  ICDU  zero  discrete) 

CAGES UBl  Svd-tch  bit  4 of  DSPTAB- - to  1 and  flag  for  output 
(No  attitude  lamp‘*‘on) 

CAGESUB2  Switch  bits  1,  3,  4,  5 and  6 of  IMDDES30  to  1 

(Inhibit  PIPA,  CDU  and  IMU  fail  monitors,  inhibit  secondary 
PIPA  fail  monitor,  and  set  IMU  caged  flag^ 

Switch  bit  6 of  IMODES33  to  1 (Disable  DAP) 

Return 

SETISSW  TS  = OOOOOg 

If  bits  13  and  4 of  IM0DES3O  both  = 0,  TS  = lOOOOg  (IMU  fail) 

If  bits  12  and  3 of  IMDDES30  both  = 0,  TS  = 04000g+  TS  (ICDU) 

If  bits  10  and  1 of  IMDDES30  both  =0,  TS  = 01000g+  TS  (PIPA) 

If  TS  / OOOOOg:  (failure) 

Perform  "ALARM"  with  TS  = TS  - OOOOlg 

Switch  bit  1 of  channel  11  to  1 (ISS  warning  lamp) 

Return 

If  bit  1 of  IMDDES33  = 0,  switch  bit  1 of  channel  11  to  0 

(Extinguish  ISS  warning  lamp  if  lamp  test  not  in  progress) 

Return 

GLOCKMON  TS  = OOOOOg 

If  IcDU  I < K:70degs,  proceed  to  "SETGLOCK" 
z 

Switch  bit  6 of  TS  to  1 
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If  CDU  * K;85deg3,  proceed  to  "SETGLOCK" 
z 


SETGLOCK 


CA+ECE 


UNZ2 


If  bit  4 of  channel  12  = 1,  proceed  to  "SETGLOCK" 

(already  in  coarse  align) 

Perform  "SETCOARS" 

Call  "CA+ECE"  in  0.06  seconds 

If  bit  6 of  DSPTAB^^  bit  6 of  TS; 

If  bit  6 of  DSPTAB^^  » 1:  (bit  6 of  TS  = O) 

If  bit  1 of  IMODES33  = 1",  return  (lamp  test) 

If  bit  6 of  DSPTAB^^  = 0:  (bit  6 of  TS  = l) 

If  bit  6 of  IM0DES30  =1,  return 

Invert  bit  6 of  DSPTAB^^  and  flag  for  output 
(Gimbal  lock  warning  light  on  or  off) 

Return  (to  T4RUPT  routine) 

Switch  bit  6 of  channel  12  to  1 (Enable  ICDU  Error  Counters) 
End  task 
CDU  = 0 

Switch  bits  4 and  5 of  channel  12  to  0 

(Disable  coarse  align  mode,  reset  ICDU  zero  discrete) 

Delay  10.24  seconds 

Switch  bits  3,  4»  and  6 of  IM0DES30  to  0 

(Enable  ICDU  and  IMU  fail  monitors  and  reset  IMU  caged  flag) 

Switch  bit  6 of  IMODES33  to  0 (Enable  DAP) 

If  FLAGWRD2  bit  15  (DRIFTFLG)  =,  0: 

Switch  FLAGWRD2  bit  15  (DRIFTFLG)  to  1 

IdPIPADT  = less  significant  half  of  TIMENOW 

Perform  "SETISSW" 

Switch  bit  15  of  channel  12  to  0 

(Switchover  to  normal  operate  mode  should  be  complete) 

Call  "PFAILOK"  in  4 seconds 

End  task 
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ITURllOiI2  Switch  bit  7 of  1ICDES30  to  1 (initiate  DflJ  tum-on  (181117) 


ENDTNON 


PFAILQK 


mjPULSE 


RADIDDES  = 00102g 
Return 

If  bit  2 of  IMDDES30  = 1:  (tum-on  sequence  failure) 

Switch  bit  2 of  M]DES30  to  0 

If  bit  14  of  Df)DES30  = 0:  (tum-on  delay  still  in  effect) 

Delay  90  seconds 
Proceed  to  "ENDTNON" 

If  FLAGWRDO  bit  8 (IMJSE)  = 1,  proceed  to  "IMJBAD" 

End  task 

Switch  bit  15  of  channel  12  to  1 

(Switch  ISS  to  noi^Bal  operate  node) 

Switch  bit  4 of  DSPTAB. - to  0 and  flag  for  output 
(Turn  off  no  attitude  lan^) 

Proceed  to  "UNZ2" 

If  bit  6 of  IMDDES30  = 1,  end  task  (IMU  caged) 

Switch  bit  10  of  IMDDES30  to  1 (reset  PIPA  fail  bit) 

Switch  bit  13  of  IMDDES33  to  1 (reset  PIPA  fail  bit) 

Switch  bit  5 of  I1CDES30  to  0 (Enable  secondary  PIPA  fail  non.) 

Perform  "SETISSW" 

End  task 
MPAC^  = TS 

If  bit  6 of  IMDDES30  =1:  (IMU  caged) 

IMUCADR  = -O 
Return 

If  LGTRO  = 0;  (gyro  free  for  torqulng) 

Switch  bit  6 of  channel  14  to  1 (Ehable  gyro  torqulng) 

TSt  = 0.04 
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STRTGYRO 


STRTGYR2 


If  LGfYRO  > 0:  (gyro  already  being  torqued) 

Put  this  job  to  sleep 

When  awakened,  continue  at  next  step  if  LGYRO  then  = 0, 
or  proceed  to  previous  step  if  LGYRO  is  still  > 0. 

TSt  = 0.01 

Call  "STRTGYRO"  in  TSt  seconds 

LGYRO  = MPAC. 

0 

GYRODEX  = 0 

Force  sign  agreement  within  each  component  of  Ilgyro 
Return 


Switch  bits  7,  8,  9 and  10  of  channel  14  to  0 

(reset  gyro  select  discretes,  sign  bit,  gyro  activity  bit) 

If  bit  6 of  IM0DES30  = 1,  proceed  to  "IMUBAD" 

If  GYRODEX  = 3:  (finished) 

LGYRO  = 0 

Awaken  any  job  put  to  sleep  in  "IMUPULSE" 

Proceed  to  "IMUFINED" 

If  GYRODEX  = 2:  (torque  X gyro  about  its  output  axis) 

LGYRO  = LGYRO  - 4 (index  X component) 

If  GYRODEX  =1:  (torque  Z gyro) 

LGYRO  = LGYRO  + 2 (index  Z component) 

If  GYRODEX  = 0:  (torque  Y gyro  first) 

LGYRO  = LGYRO  + 2 (index  Y component) 

GYRODEX  = GYRODEX  + 1 
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TSdp  = ^^LCfYRo  y or  Z coo^nent  of  vector  specified  «t  input) 

If  K:gyroiijln,  proceed  to  ''STR'IXJrR2" 

TSdp  ^ '^dp  KrCIROFRAC  signTS^p 

If  TS^p  < 0,  svfitch  bit  9 of  channel  14  to  1 (negative  torque) 
If  GrlRODEJC  = 1,  svritch  bit  8 of  channel  14  to  1 (l) 

If  GYRQDE3C  = 2,  svrLtch  bits  7 and  8 of  channel  14  to  1 (Z) 

If  GTRDDES  =3,  svrLtch  bit  7 of  channel  14  to  1 (X) 

RUPTRBG2  = fractional  part  of  jlS^pj  sg^TS^p  (bits  1-7  of  LS  half) 
TScnri  = 8192  (fractional  part  offtTS^p  - RUPTREG2)  / 8192)) 

RUPTREGl  = I TSdp  " I 

If  RUPTREGl  < 8192:  (equals  0 or  8192) 

If  RUPTREGl  ^ 0,  TScmi  = TScnri  + 8192 

Ej^I^Yjjo  “ RUPTREG2  (portion  of  comnand  less  than  one  pulse) 

GITROCMD  = TScnri 

TSt  = Kigyrtm  GYROCMD  + 0.03 

Call  "STRTGTRO"  in  TSt  seconds 

Proceed  to  "GTROEXIT" 

= RUPTREGl  - 16384  + RUPTRBG2 
GYROCMD  = 8192  + TScnri 
TSt  = K:gyrtm  GYROCMD  - 0.03 
Call  "8192iiUG"  in  TSt  seconds 
Proceed  to  "GIROEXIT" 

8192AUG  If  bit  6 of  IMDDES30  = 1,  proceed  to  "iMUBAD"  (IMJ  caged) 

If  bit  4 of  channel  12  = 1,  proceed  to  "IMUBAD" 

(coarse  align  enabled;  disables  gyro  torquing) 

TS  = rounded  off  to  nearest  multiple  of  8192 

( ^LQYjy^  contains  miiltiples  of  8192  plus  a fraction 
of  one  pulse;  fraction  is  ignored) 
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If  TS  = 0: 


GYROEXIT 


IMUZERO 


GYROCMD  = GYROCMD  + 8192 
TSt  = K:gyrtm  GYROCMD  + 0.Q3 
Call  "STRTGYRO"  in  TSt  seconds 
Proceed  to  "GYROEXIT" 

\gyro  ""  \gyro  ■ 

GYROCMD  = GYROCMD  + 8192 
TSt  = Krgyrtm  GYROCMD  - 0.03 
Call  "8192AUG"  in  TSt  seconds 

Switch  bit  10  of  channel  14  to  1 (send  GYROCMD) 
End  task 

Inhibit  interrupts 

If  bits  4 and  6 of  DSPTAB  . both  = 1: 

(No  attitude  and  "GimPal  Lock"  lamps  both  on) 

Perform  "ALARM"  with  TS  = 00206g 

IMUCADR  = -0 

Release  interrupt  inhibit 
Return 

If  bit  6 of  IM3DES30  =1:  (IMU  caged) 

IHUC^R  = -0 

Release  interrupt  inhibit 
Returm 

Switch  bits  5 and  6 of  IM0DES33  to  1 

(Indicate  zeroing  in  progress;  disable  DAP) 


SMltch  bits  3 and  4 of  I]fX)BS30  to  1 

(Inhibit  ICDU  and  DiJ  fail  monitors  7 

Switch  bits  4 and  6 of  channel  12  to  0 

(Disable  Ooarse  align  node  and  ICDU  Error  Counters) 

Switch  bit  4 of  DSPTAB- - to  0 and  flag  for  output 
(Turn  off  "no  attitude"  lanp) 

Switch  bit  5 of  channal  12  to  1 
(Zero  ICDU 'a) 

gXJ  - 0 

Call  "DfJZBt02"  in  0.32  second 

If  bit  9 of  I1I3DE530  = 1:  (IMU  not  operating) 

Perform  "ALARM"  with  TS  = 00210g 
Release  interrupt  inhibit 
Return 

IMJZER02  If  bit  6 of  IM0DES30  = 1,  proceed  to  "IMDBAD"  (IMU  caged) 

g)U  = 0 

Switch  bit  5 of  channel  12  to  0 (Release  ICDU's) 

Delay  10.24  seconds 

If  bit  6 of  IMDDES30  = 1,  proceed  to  "IMUBAD" 

Switch  bits  4 and  3 of  IMDDES30  to  0 

(Reuofre  IMU  and  ICDU  fail  monitor  inhibit  bits) 

Switch  bits  6 and  5 of  IMDDES33  to  0 

(Enable  DAP  and  reset  zeroing  indication) 

Perform  "SETISSW" 

Proceed  to  "ENDIMU" 

DflJCOARS  Inhibit  interrupts 

If  bit  6 of  IM0DES30  =1:  (iMU  caged) 

IMUCADR  = -0 

Release  interrupt  inhibit 
Return 
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Perform  "SETCOARS" 


SETCOARS 


RRDREFDR 


COARS 


C0ARS2 


Call  "COARS"  in  0.06  second 
Release  Interrupt  inhibit 
Return 

If  bit  4 of  channel  12  = 1,  return 
Switch  bit  6 of  channel  12  to  0 
Switch  bit  10  of  channel  14  to  0 
GYROCMD  = 0 (-0) 


(already  in  coarse  align) 
(disable  ICDU  error  counters) 
(disable  gyro  torque  pulses) 


Switch  bit  4 of  channel  12  to  1 (Switch  ICDU  to  coarse  align) 

Switch  bit  4 of  DSPTAB.  - to  1 and  flag  for  output 
(turn  on  "No  attitude"  lamp) 


Switch  bit  6 of  IM3DES33  to  1 (disable  DAP) 

Switch  bit  4 of  IMDDES30  to  1 (inhibit  IMU  fail  monitor) 

Switch  FLAGWRDl  bit  5 (TRACKFLO)  to  0 
Switch  FLAGWRD2  bit  15  (DRIFTFLC)  to  0 
Switch  FLAGWRD3  bit  13  (REFSMFLG)  to  0 


Return 

If  bit  6 of  IM0DES3O  = 1,  proceed  to  "IMUBAD"  (caged) 

Switch  bit  6 of  channel  12  to  1 (Enable  ICDU  Error  Coianters) 
COMMAND  = THETAD  - CDU 


COMMAND  = THETAD  - CDU 
7 7 7 

COMMAND^  = THETAD^  - CDU^ 


converted  to  one's  complement 
form  and  rounded  off 


Delay  0.02  second 

If  bit  6 of  I1CDES30  = 1,  proceed  to  "IMUBAD" 


(caged) 


i = 0 
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Perform  the  indented  steps  3 times,  for  j = z,  then  y,  then  x 

If|COMMAND.|=  0,  CDU.CMD  = - 0 
J J' 

If  I COMMAND.  I < Kicommax,  but  f 0: 

C 

CDUjCMD  = COMMAND^ 

COMMAND . = 0 
J 

i = i + 1 

If  I COMMAND^  j > Krcommax; 

CDU.CMD  = K:conimax  signCOMMAND, 

<3  J 

COMMAND.  = COMMAND,  - CDU.CMD 
J j J 

i = i + 1 

(End  of  "indented  steps") 

If  i > 0:  (command  is  not  zero) 

Switch  bits  13,  14  and  15  of  channel  14  to  1 

(Send  output  pulses  to  ICDU  Error  Counters  from  CDU^CMD  cells) 

Delay  0.6  second 

Proceed  to  "C0ARS2" 

Delay  1.5  seconds 

Perform  the  indented  steps  3 times  (or  until  "ALARM"  situation 
is  encountered),  for  j = z,  then  y,  then  x 

TS  = CDU,  - THETAD . converted  to  one's  complement  form 
0 J 

If  |TS|  > K:C0ARST0L:  (coarse  align  error) 

Perform  "ALARM"  with  TS  = 00211g 
Proceed  to  "IMUBAD" 

(End  of  "indented  steps") 

Proceed  to  "ENDIMU" 
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IMUFINE 


IMUFINED 


IFAILOK 


IMUSTALL 


Inhibit  interrupts 

If  bit  6 of  III)DES30  = 1:  (IMU  caged) 

mUCADR  = -0 

‘ Release  interrupt  inhibit 
Return 


Switch  bits  4 and  5 of  channel  12  to  0 

(Reset  ICDU  coarse  align  and  zeroing  discretes) 


Switch  bit  6 of  IIODES33  to  0 (Enable  DAP) 


Svd.tch  bit  4 of  DSPTAB. . to  0 and  flag  for  output 
(Turn  off  "No  Attitude"  lamp) 


Call  "IFAILCK"  in  5.12  seconds 
Call  "IMUFINED"  in  2 seconds 


Release  interrupt  inhibit 


Return 

If  bit  6 of  IMDDES30  = 1,  proceed  to  "IMUBAD"  (caged) 

Proceed  to  "ENDIMU" 


If  bit  6 of  IMDDES30  = 1,  end  task 

If  bit  4 of  channel  12  = 1,  end  task 
(Coarse  align  mode) 

Svd.tch  bit  13  of  IM0DES30  to  1 (reset  IMU  fail  bit) 
Svfitch  bit  4 of  IMDDES30  to  0 (enable  IMU  fail  monitor) 

Perform  "SETISSW" 

End  task 

Inhibit  interrupts 

If  IMUCADR  > 0 or  if  IMUCADR  < -1: 

TS1  = Return  address  of  routine  calling  "IMUSTALL" 
Proceed  to  "BAIL0UT1"  with  TS  = 3l210g 
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If  mUCADR  = -1: 


(operation  already  complete  and  good) 


IMUCADR  = +0 

Release  interrupt  inhibit 

ISSGOOD  =1 

Return 

If  IMUCADR  = -0:  (operation  already  cou^slete  and  bad) 

IMUCADR  = +0 

Release  interrupt  inhibit 

ISSGOOD  = 0 

Return 

IMUCADR  = return  address  (to  caller  o'f  "IMUSTALL") 

Put  present  job  to  sleep 
When  awakened,  return  via  LOC 

ENDIMU  If  bit  1 of  channel  11  = 1,  proceed  to  "IMUBAD"  (ISS  bad) 
IMUGOOD  If  IMUCADR  = -fO:  ("IMUSTALL"  not  entered  yet) 

IMUCADR  = -1 
End  task 
LOC  = IMUCADR 
ISSGOOD  = 1 

Wake  job  put  to  sleep  in  "IMUSTALL" 

IMUCADR  = -HD 
End  task 

IMUBAD  If  IMUCADR.  = -K) : 

IMUCADR  = -0 
End  task 
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LOC  = IMUGADR 


ISSGOOD  = 0 

Wakw  job  put  to  sl^ap  in  "IMUSTALL" 

IMOCADR  = +0 
End  taak 

ATTCK2  CDU  CMD  = THETAD  K:QNETEMTH 
z z 

CDU  CMD  = THETAD  K:ONETEKTH 

y y 

CDU  CMD  = THETAD  K:ONETENTH 

X X 

Switch  bits  13,  U «nd  15  of  channel  H to  1 (send  CDU^CMD'a) 
End  task 

R02B0TH  If  FLAGWRD3  bit  13  (REFSMFLG)  = 1; 

Switch  FLAGWRDO  bit  8 (IMUSE)  to  1 
Return 

If  bit  9 of  IM0DES30  = 1:  (IMU  not  operating) 

Perform  "ALARM"  with  TS  * 002 lOg 
If  bit  9 of  IM0DES30  = 0:  (REFSMMAT  inralid) 

Perform  "ALARM"  with  TS  = 002fi0g 
Proceed  to  "GOTOPOOH" 
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Quantities  in  Computations 


IdPIPADT:  Single  precision  time  interval  for  application  of  PIPA  biases 
and  gyro  drift  compensation,  scaled  B8,  or  storage  for  present  time  for 
the  purpose  of  computing  that  time  interval,  scaled  B14,  in  units  of 
centiseconds. 

AHAX:  Single  precision  singular  drift  of  the  X gyro  around  its  output  axis 
caused  by  linear  acceleration  of  the  IMU  in  the  direction  of  the  X gyro 
input  axis  (+XSM),  scaled  B-6  in  units  of  gyro  pulses  / centimeters  per 
second,  (One  gyro  pulse  corresponds  to  2-21  revolutions.)  Pad  loaded. 

ADIAY:  Single  precision  angular  drift  of  the  Y gyro  around  its  output  axis 
caused  by  linear  acceleration  of  the  IMU  in  the  direction  of  the  Y gyro 
input  axis  (+YSM),  scaled  B-6  in  units  of  gyro  pulses  / centimeters  per 
second*  Part  of  the  erasable  load. 

AHAZ:  Single  precision  angular  drift  of  the  Z gyro  around  its  output  axis 
caused  by  linear  acceleration  of  the  IMU  in  the  direction  of  the  Z gyro 
input  axis  (+ZSM),  scaled  B-6  in  units  of  gyro  pulses  / centimeters  per 
second.  Part  of  the  erasable  load. 

ADSRAX:  Single  precision  angular  drift  of  the  X gyro  around  its  output 
axis  caused  by  linear  acceleration  of  the  IMU  in  the  direction  of  the 

X gyro  spin-reference  axis  (-YSM),  scaled  B-6  in  units  of  gyro  pulses  / 

centimeters  per  second*  Part  of  the  erasable  load. 

AESRAY : Single  precision  angular  drift  of  the  Y gyro  around  its  output 
axis  caused  by  linear  acceleration  of  the  IMU  in  the  direction  of  the 

Y gyro  spin-reference  axis  (-ZSM) , scaled  B-6  in  units  of  gyro  pialses  / 

centimeters  per  second*  Part  of  the  erasable  load. 

ADSRAZ:  Single  precision  angular  drift  of  the  Z gyro  around  its  output 
axis  caused  by  linear  acceleration  of  the  IMU  in  the  direction  of  the 

Z gyro  spin-reference  axis  (+YSM),  scaled  B-6  in  units  of  gyro  pulses  / 

centimeters  per  second#  Part  of  the  erasable  load. 

CDU  (CDU  ,CDUy,CDU_):  Single  precision  vector  containing  the  measured 
values  of  the  IHU  gimbal  an^es  (outer,  inner  and  middle  gimbal  in  X, 

Y,  and  Z components,  respectively),  scaled  B-1  in  units  of  revolutions 
and  stored  in  two's  complement  form.  Each  component  is  an  LGC  input 
counter  incremented  directly  from  the  Coupling  Data  Unit  in  response  to 
changes  in  the  IMU  gimbal  angles. 

CTU.CMD:(i  = x,y  or  z):  Three  single  precision  coimters  scaQ.ed  B1  in  units 
of  revolutions,  gated  to  the  ICDU  Error  Counters  by  setting  bits  15,  14 
and  13  of  channel  14.  Bits  15-13  reset  vdien  respective  counters  reach  -0. 

"'Scaling  is  B14  in  units  of  pulses. 

C^OMMAND:  Temporary  storage  for  changes  to  the  three  gimbal  angles  diiring 
coarse  alignment,  scaled  B1  in  units  of  revolutions. 

DELV:  See  SERV  section. 
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DSPTAB 


'll’ 


See  INTR  section. 


^GYBO’  precision  vector  containing  three  desired  gyro  torque  angles 

wnose  address  is  specified  at  entry  to  the  IMUPULSE  routine,  scaled  BO 

= GCOMP  or 


in  units  of  revolutions  , or  B21  in  units  of  pulses.  E, 
(OGC,IGC,MGC) 


■LGIEO  - 


GCCMP:  Double  precision  vector  containing  required  gyro  compensation  2]_ 
angles,  scaled  B14  (or  B2l)  in  units  of  ©rro  pulses  (l  gyro  pulse  = 2 
revolutions) . 

GCOMPSW:  Single  precision  switch  indicating  whether  gyro  compensation  is 
required  or  inhibited,  scaled  B14  and  iinitless. 

GYROCMD:  Computercell  counted  down  as  toixjuing  pulses  are  sent  to  one  of 
the  gyros,  scaled  B14  in  units  of  gyro  pulses.  Used  for  commands  to  all 
three  gyros;  the  pulse  train  is  initiated  by  setting  bit  10  of  Channel  14 
and  it  is  routed  to  the  appropriate  gyro  torq\ae  motor  by  the  setting  in 
bits  7 and  8 of  Channel  14. 

GYRODEX:  An  index  equivalent  to  that  maintained  by  the  program  in  bits 

15-13  of  LGYHO;  used  to  indicate  which  gyro  is  being  torqued  and  assigned 
a separate  label  merely  for  convenience  in  functional  representation. 

i,j:  Single  precision  index  registers,  scaled  B14  and  unitless. 

IM0DES30:  Single  precision  flagword  whose  individual  bits  have  the  following 


meanings: 

Bit  15 

(1) 

(0) 

Bit  14 

(1) 

(0) 

Bit  13 

(1) 

(0) 

Bit  12 

(1) 

(0) 

Bit  11 

(1) 

(0) 

Bit  10 

(1) 

(0) 

Bit  9 

(1) 

(0) 

Bit  8 

(1) 

(0) 

Bit  7 

(1) 

(0) 

Bit  6 

(1) 

(0) 
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Bit 

5 

(l)  Secondary  FIFA  fail  monitor  inhibited 
(O).  Secondary  FIFA  fail  monitor  enabled 

Bit 

4 

(l)  IMJ  fail  monitor  inhibited 
(O)  IMU  fail  monitor  enabled 

Bit 

3 

(l)icru  fail  monitor  inhibited 
(O)lCrU  fail  monitor  enabled 

Bit 

2 

(l)  ISS  turn-on  sequence  failure 

(O)  No  ISS  turn-on  sequence  failure  in  effect 

Bit 

1 

(l)  Frimary  FIFA  fail  monitor  inhibited 
(0)  Frimary  FIFA  fail  monitor  enabled 

IMOIES33  : See  INTR  section. 

IMUCADR:  Single  precision  octal  storage  for  address  to  return  to  program 
that  is  making  use  of  the  ISS  and  waiting  for  a particiilar  operation  to 
be  accomplished. 

ISSGOOD:  Variable  introduced  as  a substitui®  for  variable  return  address; 
set  to  1 or  0 to  indicate  whether  an  IMTJ  mode  switch  was  successfully 
completed  (l)  or  not  (O). 

K:70degs:  Single  precision  constant  stored  as  -0.38888,  program  notation 
"-70EEGS,"  scaled  B-1  in  units  of  revolutions.  Equation  value:  +0.19444. 
(Equivalent  to  +69-9984  degrees). 

K:85degs:  Single  precision  constant  stored  as  -0.38888  + -0.08333,  scaled 
B-1  in  units  of  revolutions.  Equation  value:  40.23610.  (Eqiii valent  to 
+84.99  degrees.) 

K:C0ARST0L:  Single  precision  constant  stored  as  -0.01111,  scaled  B-1  in 
\mits  of  revolutions.  Equation  vaO-ue:  0.005555.  (Equivalent  to 
+1.9998  degrees.) 

— 1 A —1  A 

K:commax:  Single  precision  constant  stored  as  -191  x 2 and  -192  x 2 
program  notations  "-C0MMAX"  and  "-C0MMAX-" , scaled  B1  in  units  of 
revolutions.  Equation  value:  +0.0234375.  (Equivalent  to  +8.4375  degrees 
or  half  the  mechanical  limit  of  the  ICDU  Error  Counter.) 


-21 

K:GyROFRAC:  Double  precision  constant  stored  as  0.215  x 2 , scaled  B21 

in  lonits  of  gyro  torque  pulses.  Eqiaation  value:  0.21875-  (The  closest 
approximation  to  0.215  with  a least  increment  of  0.0078125.) 

K:gyromin:  Single  precision  constant  stored  as  77601g,  program  notation 
"-GYRDMIN,"  scaled  B7  in  units  of  gyro  torque  pulses.  Equation  value: 
1.0.  (1  gyro  pulse  is  equivalent  to  2~21  revolutions.) 

K:gyrtm:  Single  precision  constant  stored  as  OlOOOg,  program  notation 
"BIT10,"  scaled  BO  in  units  of  centiseconds/gyro® torquing  pulse. 
Equation  value:  1 / 3200  second s/pulse. 
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KrONETENTH:  See  DAPA  pection. 


K:pip2£ec:  Single  precision  constant  stored  ap  3'l000;i,  program  notation 
"PRIO3I",  scaled  B8  in  units  of  centiseconds.  Equation  value:  200. 

LGYRO:  Single  precision  octal  address  (positive)  of  cell  containing 
• gyro  torquing  command. 

LOG:  See  MATX  section. 

MPAC:  See  DINT  section. 

NBDX,  NBDY:  Single  precision  angular  drift  around  the  output  axes  of 
the  I and  Y gyros  caused  by  the  passage  of  time,  scaled  B-5  in  units 
of  gyro  pulses  per  centi second. 

NBDZ:  Single  precision  complement  of  the  drift  around  the  output  axis 
of  the  Z gyro  caused  by  the  passage  of  time,  scaled  B-5  in  units 
of  gyro  pulses  per  centisecond. 

PIPA:  Single  precision  sensed-change-in-velocity  vector  scaled  BI4  in 
units  of  centimeters  per  second,  expressed  in  stable  member  (IMU) 
coordinates.  The  three  components  are  Incremented  directly  from 
the  Pulse-Integrating,  Pendulous  Accelerometers  on  the  stable 
member  of  the  IMU. 

PIPABIAS  , PIPABIAS  , PIPABIAS  : Single  precision  bias  factors  for  the 
3C  y z 

X,  Y and  Z PIPA's,  scaled  B-3  in  units  of  centimeters  per  second 
per  centisecond  (equivalent  to  PIPA  counts  per  centisecond). 

PIPASGF  , PIPASCF  , PIPASCF  ; Single  precision  scale  factor  errors 
X y z 

associated  with  the  X,  Y and  Z PIPA's  respectively,  scaled  B-9 
and  unitless  (accelerometer  counts  per  accelerometer  count). 

PIPTIME:  See  SERV  section. 

RADMODES:  See  RADR  section. 

RUPTREG1 : Single  precision  storage  for  portions  of  gyro  torque  commands 
greater  thgij.  or  equal  to  2 pulses,  scaled  B27  in  units  of  gyro 
pulses  (2  revolutions). 

RTTPTREG2:  Single  precision  storage  for  portions  of  gyro  torque  command 
less  than  one  pulse,  scaled  B7  in  units  of  gyro  torque  pulses. 
Fractional  values  of  commands  are  not  issued.  They  are  stored  for 
addition  to  future  commands. 
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THETAD:  Singl*  preeisioa  vector  containing  the  gimbal  angle*  that 

define  a desired  orientation  between  the  IMU  and  the  spacecraft  for 
attitude  maneuvers  or  IMU  alignment,  scaled  B-1  in  unit*  of  revolu- 
tions and  stored  in  t«o's  complement  form. 

TIMENOV:  See  £X?B  section. 
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Program  Interrupts 

#1  Caused  by  underflow  of  counter  TIME6,  starting  address  4004^ 

o 

Proceed  to  "D0T6RUPT" 

#2  Caused  by  overflow  of  counter  TIME5,  starting  address  4010^ 

Proceed  to  "T5RUPT" 

#3  Caused  by  overflow  of  counter  TIME3,  starting  address  4014£. 

8 

Proceed  to  "T3RUPT"  (start  scheduled  task) 

#4  Caused  by  overflow  of  counter  TIME4,  starting  address  4020^ 

8 

Proceed  to  "T4RUPT" 

#5  Caused  by  depression  of  a key  on  the  DSKY  keyboard,  starting 

address  4024g 

Proceed  to  "KEfRUPTl" 

#6  Caused  by  depression  of  mark  or  reject  buttons  or  crew  indication 

of  change  in  desired  descent  rate,  starting  address  4030g 

Proceed  to  "MARKRUPT" 

#7  Caused  by  overflow  of  uplink  serial  input  biiffer,  starting  address 

4034q 

Proceed  to  "UPRUPT" 

#8  Caused  by  end  pulse  from  the  downlink  system,  steirting  address  4040g 

Proceed  to  "DODOWNTM" 

#9  Caused  by  expiration  of  time  delay  (90-100  ms)  after  bit  4 of 

channel  13  is  set,  starting  address  4044g 

Proceed  to  "RADAREAD" 

#10  Caused  by  input  from  the  rotational  hand  controller,  starting 

address  4050g 

Proceed  to  "PITFALL" 

#11  Caused  by  hardware  dif f iciolties , starting  address  4000g 

Proceed  to  "GOPROG" 
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TZJlUFT  If  DSRUPTSW  < 0,  proceed  to  "QUIKDSP" 

If  DSRUPTSW  = 0,  DSRUPTSW  = 8 
DSRUPTSW  = DSRUPTSW  - 1 
TSruptsw  = DSRUPTSW 

If  bit  15  of  DSPTAB^^  = 1:  (flagged  for  output) 

Switch  bits  15-12  of  DSPTABj^j^  to  0 
OUTO  = DSPTAB^j^  + 60000g 
DSRUPTSW  = DSRUPTSW  - 8192  - (5) (256) 

Set  TIME/*,  to  cause  "T/+RUPT"  in  20  milliseconds 
Proceed  to  "PROCEEDE" 

If  FLAGWRD5  bit  15  (DSKYFLAG)  = 0 or  if  NOUT  = 0: 
OUTO  = OOOOOg 

Set  TIME4  to  cause  "T4RUPT"  in  120  milliseconds 
Proceed  to  "PROCEEDE" 

NOUT  = NOUT  - 1 
TS  = -0 

Perform  "DSPSCAN" 

If  SENTCODE  = 0: 

OUTO  = OOOOOg 

Set  TIME/*  to  cause  "T/*RUPT"  in  120  milliseconds 
Proceed  to  "PROCEEDE" 

DSRUPTSW  = DSRUPTSW  - 8192  - (5) (256) 

Set  TIMEi*.  to  cause  "T/tRUPT"  in  20  milliseconds 
Proceed  to  "PROCEEDE" 
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PROCEEDE  If  bit  14  of  channel  32  f bit  14  of  IMODES33:  (proceed  button) 


PROCKEY 


Set  bit  14  of  IMODES33  = bit  14  of  channel  32 
If  bit  14  of  IMODES33  = 0;  (proceed  button  just  pushed) 
Establish  "PROCKET"  (prlO) 

If  TSruptsw  = 0 or  4: 

Perform  "RCSMONIT" 

If  TSruptsw  = 1 or  5; 

Perform  "RRAUTCHK" 


Perform  "DAPT4S" 

If  TSruptsw  = 2 or  6: 
Perform  "IMDMON” 
Perform  "GLOCKMON" 


If  TSruptsw  = 3 or  7: 

Perform  "DAPT4S" 
Resume 


If  22  - VERBREG  | ^ 1: 

Proceed  to  "CHARALRM" 
REQRET  = 0 


DSPCOUNT  = -19 
Proceed  to  ”VBPR0C" 
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QUIKDSP  If  DSRUPTSW< -8192; 


(bit  14  = 0) 


DSPSCAN 


OUTO  = OOOOOg 

Set  TIME4  to  cause  "T4RUPT"  in  20  milliseconds 

DSRUPTSW  = DSRUPTSW  + 256  + 8192 

Resume 


If  NOUT  = 0; 

OUTO  = OOOOOg 
Proceed  to  '»SyRCT4" 

NOUT  = NOUT  - 1 
TS  = -0 

Perform  "DSPSCAN" 

If  SENTCODE  = OJ  (no  display  to  be  changed) 

OUTO  = OOOOOg 
Proceed  to  "SYNCT4" 

Set  TIME4  to  cause  "T4RUPT"  in  20  milliseconds 
DSRUPTSW  = DSRUPTSW  - 8192  +256 


Resume 
If  bit  15  of  DSPTAB. 


DSPCNT 


= 1: 


(negative  to  flag  for  output) 


DSPTAB 


DSPCNT 


= DSPTAB 


DSPCNT 


OUTO  = bits  15-11  of  KtRELTABj^gp^^^  + bits  11-1  of  DSPTAB^gp^j^^ 

SENTCODE  = 1 

Return 


If  DSPCNT  > 0: 

DSPCNT  = DSPCNT  - 1 
Proceed  to  "DSPSCAN" 
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If  TS  = -0 ; 


(first  time  through  list) 


TS  = +0 
DSPCNT  = 10 
Proceed  to  "DSPSCAN" 

NOUT  = 0 
SENT CODE  = 0 
Return 

SYNCT4  TS  = 20 

DSRUPTSW  = DSRUPTSW  +256 
If  DSRUPTSW  < 0: 

TS  = TS  + 20 

Proceed  to  second  step  of  "SYNCT4" 

Set  TIME4  to  call  "T4RUPT"  in  TS  milliseconds 
Resume 
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Quantities  in  Con^jutations 


DSPCNT:  Single  precision  permanent  index,  scaled  B14  and  unitless. 

DSPCOUNT:  See  DSKY  section. 

DSPTAB^  (i  = 0-10):  See  DSKY  section. 

DSPTAB-,,  : Single  precision  flagword  whose  bits  designate  relays  to  be 
set  to  illuminate  lamps  on  the  DSKY.  Bit  9 lights  the  "program  alarm" 
(prog)  lamp  when  set;  bit  8 lights  the  "tracker  fail"  (TRACKER)  lamp 
when  set;  bit  6 lights  the  "gimbal  lock  warning"  (GIMBAL  LOOK)  lamp 
when  set;  bit  5 lights  the  "LR  altitude  fail"  lamp  when  set;  bit  4 
lights  the  "no  attitude"  (NO  ATT)  lamp  when  set;  and  bit  3 lights  the 
"LR  velocity  fail"  lamp  when  set. 

DSRUPTSW:  Single  precision  index  used  to  cycle  through  the  display  and 
monitor  functions  of  "T4RUPT”  scaled  B14  and  unitless. 

IMODES33:  Single  precision  flagword  whose  individual  bits  have  the 

following  significance:  (Bits  15,  10,  9,  and  4-2  have  no  significance.) 

Bit  14  (l)  Proceed  button  not  depressed  during  last  "T4RUPT"  cycle 

(O)  Proceed  button  just  pushed 

Bit  13  (1)  PIPA  good 

(0)  PIPA  fail 

Bit  12  (l)  Downlink  not  too  fast 

(O)  Downlink  too  fast 

Bit  11  (l)  Uplink  not  too  fast 

(O)  Uplink  too  fast 

Bit  8 (l)  Inertial  data  just  displayed 

(0)  Inertial  data  not  displayed 

Bit  7 (l)  Display  altitude 

(O)  Display  altitude  rate 

Bit  6 (1)  DAP  disable 

(0)  DAP  enabled 

Bit  5 (l)  ICDU  zeroing  (See  IMUC  section) 

(0)  ICDU  not  zeroing 

Bit  1 (l)  Lamp  test  in  progress 

(O)  Lamp  test  not  in  progress 
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KrRELTAB.  (i  = 0-10):  Table  of  twelve  single  precision  constants  containing 
the  routing  codes  for  OUTO  in  bits  15-12.  See  DSKY  section. 

NOUT:  Single  precision  count  of  the  number  of  DSPTAB  registers  (excluding 
DSPTAB^^)  to  be  output  as  soon  as  possible,  scaled  B14  and  unitless. 

OUTO:  Single  precision  output  register  which  routes  an  eleven-binary- 
bit  display  relay  code  (in  bits  11-1 ) according  to  the  routing  code  in 
bits  15-12.  OUTO  remains  set  for  only  twenty  milliseconds  before 
being  reset  to  OOOOOg.  (Equivalent  to  channel  10.) 

REQRET:  See  DSKY  section. 

SENTCODE:  Variable  quantity  introduced  as  a substitute  for  a variable 
return  address,  switched  to  1 if  a relay  code  is  inserted  in  OUTO 
and  switched  to  0 if  no  code  is  inserted  in  OUTO. 

TIME3:  Single  precision  counter  incremented  every  10  milliseconds 
(every  centisecond)  in  phase  with  the  computer  clock  (TIMENOW) . 

Set  under  program  control  (to  I6384  minus  the  required  time  delay 
in  centiseconds)  to  cause  program  interrupt  #3  (when  TIME3  over- 
flows) and  initiate  the  first  task  in  the  waitlist.  (A  task  is 
a routine  initiated  at  a specified  time  by  a "Call"  instruction.) 

TIME4:  Single  precision  counter  incremented  every  10  milliseconds 
(every  centisecond),  7.5  milliseconds  after  the  TIME3  increment. 

Set  under  program  control  (to  16384  minus  the  required  time  delay 
in  centiseconds)  to  cause  program  interrupt  #4. 

TIME5:  Single  precision  counter  incremented  every  10  milliseconds 

(every  centisecond)  in  phase  with  TIME3.  Set  under  program  control 
(to  16384  minus  the  required  time  delay  in  centiseconds)  to  cause 
program  interrupt  #2  (see  DAPA  section) . 

TIME6:  Single  precision  counter  decremented  every  0.625  millisecond 
when  bit  15  of  channel  13  is  set.  Set  under  program  control 
(to  required  delay  in  units  of  0.0625  centiseconds)  to  cause  program 
interrupt  #1  (see  DAPA  section). 

VERBREG:  See  DATA  section. 
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Mathematloal  Functions.  Executive.  Waitlist 


Sine,  Cosine 


The  routines  "COSINE"  and  "SINE"  are  those  normally  used  to 
calculate  the  cosine  or  sine  of  an  angle.  The  angle  is  input 
in  the  multiple  precision  accumulator  (MPAC)  in  one ' s con^^lement 
form,  scaled  BO  in  units  of  revolutions.  The  output  is  a cosine 
or  a sine  in  MPAC,  scaled  B1  and  unitless. 


COSINE 

SINE 


MPAC^p  = i - ImPAOJ 

If  iMPAC^pl 

MPAC^p  = i signMPAC^p  - MPAC^p 
If  iMPAC^pl  ^ i: 

MPAC^p  = i signMPAC^p  - MPAC^^ 


corresponds  to  90  degrees) 


X = MPAC 


dp 


(rescaled  to  B-l) 


TS  = Krsnl  x + K:sn3  x^  + K;sn5  x^  + K:sn7  x"^  + K;sn9  x^ 


MPAC^p  = TS  (rescaled  from  B3  to  Bl) 
Return 


Constant  Coefficients 


Stored  Value 

Scaled 

Equation  Value 

K:snl 

0.3926990796 

B4 

2rt 

(=  6.28318527) 

K:sn3 

-0.6459637111  . 

B6 

4 2^ 

0.166666570 

K:sn5 

0.318758717 

B8 

{2^ 

0.00833302539 

K:sn7 

-0.074780249 

BIO 

-{24^ 

0.000198074150 

K:sn9 

0.009694988 

B12 

(2^9 

0.00000260188699 

Single  Precision 

Cosine  and  Sine 

(cos  and 
sp 

The  routines  "SPCOS"  and  "SPSIN"  are  used  to  calculate  the  cosine 
or  the  sine  of  an  angle  when  only  single  precision  accuracy  is 
required.  They  make  use  of  the  trigonometric  identities  cos(x)  = 
sin(x  + jt/2)  and  ain(x)  = sin(n  - x)  and  of  the  Taylor  series 
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n 

sin(x)  = ^ 
i=0 


i+1 

li+iTT 


modified  for  maximum  accuracy  using  only  three  terms.  The  input 
to  both  of  the  routines  is  an  angle  scaled  B-1  in  units  of  revo- 
lutions. The  output  is  a cosine  or  sine  scaled  BO.  Input  and 
output  are  both  through  the  single  precision  accumulator,  denoted 
by  A.  Entry  to  the  routine  is  made  at  "SPCOS"  to  calculate  the 
cosine  and  at  "SPSIN"  to  calculate  the  sine. 

SPCOS  A = A + i 

SPSIN  X = A 

If  |x|  > i,  X = i signX  - X 

If  |x|  >i: 

X = ^ sign  X - X 
If  |X)  = i; 

A = K:posmaxsp  signX  (K;posmaxsp  = almost  1) 

Return 

TS  = Kisnlsp  X + K:sn3sp  X^  + K:sn5sp  X^ 

If  Its  I > 1,  TS  = Krposmaxsp  slgnTS 

A = TS 

Return 

Constant  Coefficients 


Stored  Value 

Scaled 

Equation  Value 

K:snlsp 

0.7853134 

B3 

2jt 

(=  6.2824) 

K:sn3sp 

-0.3216147 

B7 

-('2jr)^ 

0.16596 

K; sn5sp 

0.0363551 

Bll 

(2^)5 

0.0076032 
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Arcsine,  Arccoalne 

The  routines  "ARCSIN"  and  "ARCCOS"  are  those  used  to  calculate 
the  single  corresponding  to  a given  sine  or  cosine.  The  input 
to  the  routine  "ARCSIN"  is  a sine  in  MPAC,  scaled  Bl.  The 
output  from  "ARCSIN"  is  an  angle  between  and  that  corre- 
sponds to  the  sine.  The  input  to  the  routine  "ARCCOS"  is  a 
cosine  in  MPAC,  scaled  Bl.  The  output  from  "ARCCOS"  is  an 
angle  between  0 and  ^ that  corresponds  to  the  cosine.  The 
angle  output  is  in  MPAC  and  is  scaled  BO  in  units  of  revolutions 
(one's  con^lement  form).  (-^  in  units  of  revolutions  is  equiv- 
alent to  90  in  units  of  degrees,  etc.) 

ARCSIN  Perform  "ARCSUB" 

MPAC^  = i - TS 
dp 

Return 

ARCCOS  Perform  "ARCSUB" 

MPAC.  = TS 
dp 

Return 

ARCSUB  If  ImPAC.  I < 2"^'^: 

dp 

TS  = i 

Return 

If  MPACj  > 0,  PorM  = 0 
dp 

If  MPAC,  < 0,  PorM  = 1 
dp 

X = Impac,  I 

dp 

-12 

If  X ^ 1.000244  (1+2  ) , or  if  the  less  significant  half 

of  X is  negative  and  X '>  1.000122  (1  + 2 ^^): 

TSl.  = (LOG  , BANKSET  ) 
dp  'o’  o 

Perform  "ALARMl"  with  TS  = 01301g 
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If  X > 1: 


TS  = i PorM 
Return 

TS  = V (1  - X)  / 2' 

TS  = TS  (K:asO  + K:asl  X + Kas2  X^  + . . . + Kras?  x'^) 

If  PorM  =1,  TS  = i - TS 

Return 

Constant  Goefficients 


Stored  Value 

Scaled 

Equation  Value 

K:asO 

0.353553385 

BO 

1.570796302  / 

K:asl 

-0.0483017006  X 2 

B-1 

-0.214598801  / 

K:as2 

O.O2OO273O85  X 2^ 

B-2 

0.088978987  / /yT^: 

K:as3 

-0. 0112931863  X 2^ 

B-3 

-0.050174305  / a/?: 

K:as4 

0.00695311 612  X 2^ 

B-4 

0.030891881  / //T’: 

K:as5 

-0.00384617957  x 2^ 

B-5 

-0.017088126  / 

K;as6 

0.001501297736  X 2^ 

B-6 

0.006670090  / 

K:as7 

-0.000284160334  X 2^ 

B-7 

-0.001262491  / V~^: 

The  numbers  in  the  last  column  (excluding  the  factor  of  1 / a/  2 ' n ) 
agree  closely  with  published  Hastings  series  values. 

Square  Root 

The  "SORT"  routine  computes  the  double  precision  square  root 
of  a triple  precision  number  with  variable  scale  factor  i. 

The  input  is  a triple  precision  scalar  in  MPAC  with  scale  factor 
i.  The  output  is  a double  precision  scalar  in  MPAC  with  scale 
factor  i.  If  i is  an  odd  number,  the  output  will  have  to  be 
divided  by  the  square  root  of  2 to  reduce  its  scale  factor  to 
an  integer. 
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SQ.RT 


i = scale  factor  of  MPAC, 


tp 

X = MPAC^  / 2^ 
tp 

If  X ^ 0; 

If  X < -2"^,  proceed  to  "POODOOl"  with  TS  = 21302g 

and  TSl,  = (LOG  , BANKSET  ) 
dp  o ’ o 

Return  with  MPAC,  = 0 
dp 

If  X < repeat  the  indented  steps  until  X£^ 
i = i - 2 
X = 4 X 


(X  now  double  precision  and  between  and  1) 


TSgp  = more  significant  half  of  X 

If  X ^ BUP  = 0.5884  TS  + 0.4192 

sp  sp 

If  X < BUF  = 0.8324  TS  + 0.2974 

sp  sp 

BUF  = i BUF  + i TS  / BUF 
sp  sp  sp  sp 

TS , = i BUF  + i X / BUF 

dp  sp  sp 


If  TS^p  ^ 1,  TS^p  =1-2 
i = i i 

MPAC,  = 2^  TS^ 
dp  dp 

Return 


-28 


Natural  Logarithm  (complemented) 

The  routine  "LOGSUB"  is  used  to  calculate  the  natural  logarithm 
of  a scalar  using  the  Taylor  series  approximation 
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i.(x)  = 

i=l 

truncated  at  i = 7 and  modified  for  maximum  accuracy  in  the 
domain  £ x < 1,  The  input  to  the  routine  is  the  argument  of 
the  function,  scaled  BO  and  stored  in  MPAC  (double  precision) . 
The  output  is  the  complement  of  the  natural  logarithm  of  the 
input,  scaled  B5  and  stored  in  MPAC  (double  precision). 


LOGSUB 


i = 0 

X = MPAC , 
dp 

If  X < ■^,  repeat  the  indented  steps  untilAX^;>'^ 
i = i - 1 
X = 2 X 


(X  now  between  -g-  and  ,l) 
X = 1 - X - 2"^^ 


TS,  = K:lnO  + K:lnl  x + K:ln2  x + . 
dp 

MPAC,  = - TS^ 
dp  dp 

Return 


. + Kiln?  X + i K:cln2 


Constant  Coefficients 


Stored  Value 

Scaled 

Equation  Value 

KilnO 

0.0000000060 

B5 

0.0000001920 

K;lnl 

-0.0312514377 

B5 

-1.0000460064 

K:ln2 

-0.0155686771 

B5 

-0.4981976672 

K:ln3 

-0.0112502068 

B5 

-0.3600066176 

K:ln4 

-0.0018545108 

B5 

-0.0593443456 
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3tored  Value 

3caled 

Equation  Value 

K;ln5 

-0.0286607906 

B5 

-0.9171452992 

K:ln6 

0.0385598563 

B5 

1.2339154016 

K:ln7 

-0.0419361902 

B5 

-1.3419580864 

K: cln2 

0.0216608494 

B5 

0.6931471808 

Conversion  from  Two's  Complement  Form  to  One's  Complement  Form 

Conversion  from  two's  complement  form  into  one's  complement  form 
is  accomplished  using  the  "CDULOGIC"  routine.  The  input  is  a 
single  precision  angle  in  two's  complement  form,  stored  in  the 
multiple  precision  accumulator  MPAC  and  scaled  B-1  in  units  of 
revolutions.  The  output  is  a double  precision  angle  in  one's 

and  scaled  BO  in  units  of  revo- 

complement  binary  equivalent  to 
complement  binary) 

change  scaling  from  B-1  to  BO) 

complement  binary  equivalent  to 
complement  binary  minus  one  least 
MPAC^p  = MPAC^p  significant  bit) 

(shifted  right  one  to  change  scaling  from  B-1  to  BO; 

— 1 5 

minus  2 , the  value  of  one  least  significant  bit) 

Return 


complement  form,  stored  in  MPAC 
lutions . 

CDULOGIC  If  MPAC  > 0;  (one's 

two ' s 

MPAC , = MPAC 

dp  sp 

(shifted  right  one  to 

If  MPAC  < 0:  (one's 

two ' 3 


Conversion  from  One's  Complement  Form  to  Two's  Complement  Form 

Conversion  from  one's  complement  form  to  two's  complement  form 
is  accomplished  using  one  of  the  three  routines  "1ST02S",  "27131023" 
or  "7131023"  and  their  common  subroutine  "1T023UB",  depending  on 
whether  the  quantity  to  be  converted  has  one,  two  or  three  components. 
The  input  to  "1T02SUB"  is  a double  precision  angle  in  one's  comple- 
ment form,  stored  in  MPAC  and  scaled  BO  in  units  of  revolutions. 

The  output  from  "1T023UB"  is  a single  precision  angle  in  two's 
complement  form,  stored  in  MPAC  and  scaled  B-1  in  units  of  revolutions. 
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1ST02S  Perform  "1T02SUB" 

Return 

2V1ST02S  Perform  "1T02SUB"  with  MPAC.  = TS 

dp  X 

TS  = MPAC 
X sp 

Perform  "1T02SUB"  with  MPAC^  = TS 

dp  y 

TS  = MPAC 

y sp 

Change  interpretive  mode  to  double  precision  (two  single 
precision  components  stored  as  one  double  precision  scalar) 

Return 

V1ST02S  Perform  "1T02SUB"  with  MPAC,  = TS 
dp  X 

TS  = MPAC 
X sp 

Perform  "1T02SUB"  with  MPAC,  = TS 

dp  z 

TS  = MPAC 
z sp 

Perform  "1T02SUB"  with  MPAC^  = TS 

dp  y 

TS  = MPAC 
y sp 

Change  interpretive  mode  to  triple  precision  (three  single 
precision  components  stored  as  one  triple  precision  scalar) 

Return 

1T02SUB  If  MPAC,  > 0:  (two's  con^lement  binary  equivalent  to 

^ one's  complement  binary) 


MPAC  = MPAC, 
sp  dp 

(shifted  left  one  to  change  scaling  from  BO  to  B-l) 


If  MPAC,  = -0: 
dp 


MPAC  = +0 
sp 


(there  is  only  one  "zero"  in  two's  comple- 
ment form  and  it  is  equivalent  to  the  +0 
in  one ' s complement  form) 
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If  MPAC^  < 0: 
dp 


(two '3  con^jlement  binary  equivalent  to 
one ' s con^jlement  binary  plus'  one  least 
significant  bit) 


MPAC  = MPAC, 
sp  dp 

(shifted  left  one  to  change  scaling  from  BO  to  B-1; 
-15 

plus  2 , the  value  of  one  least  significant  bit  in 

single  precision  two's  conplement  form  scaled  B-l) 

If  overflow  (jMPAC^pl  > : 

MPAC  = MPAC  - 1 signMPAC 
sp  sp  ^ sp 

Return 


Single  Precision  Arcsine  Routine 


(arosin  ) 
sp 


The  routine  "SPARCSIN"  is  used  to  calculate  an  angle  from  a 
given  sine  of  the  angle  when  only  single  precision  accuracy 
is  geqoired.  The  input  to  the  routine  is  the  sine  of  an  angle 
(or  cosine  of  an  angle  if  the  conq)lement  of  the  angle  is 
desired),  scaled  B1  and  unitless.  The  output  is  the  angle 
scaled  B-l  in  units  of  revolutions.  Input  and  output  are  both 
through  the  single  precision  accumulator,  denoted  by  A. 


SPARCSIN  A = 2 A (rescales  to  BC) 

If  overflow  (i.e.  1a|  >1); 


A = signA  Ktposmaxsp 

A = K:DPL1  A / 2 + K;DPL3  A^  / 2 + K;DPL5  A^  / 2 
+ K:DPL7  / 2 + K:DPL9  A^  / 2 


Return  (A  contains  2 times  the  angle  in  revolutions 
i.e.,  scaled  B-l) 

Constant  Coefficients 


Stored  'Value 
K:DPL1  C.64C99121 
K:DPL3  C. 02636718 


Scaled  ^ Equation  Value 
BO  10502  X 

BO  432  X 2"^^ 
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Stored  Value 

Scaled 

Equation  Value 

K:DPL5 

0.44555664 

BO 

7300  X 

K:DPL7 

-0.72039794 

BO 

-11803  X 2"^^ 

K:DPL9 

0.51251221 

BO 

8397  X 2^^ 

DUMMY JB2  Release  interrupt  inhibit 

Switch  bit  2 of  channel  11  to  0 (COMP  ACT  off) 

ADVAN  If  NEWJOB  = -0:  (no  jobs;  do  self  test) 

SUPERBNK  = 4 

EBANK  = 2 (bits  3-1  of  BBANK) 

FBANK  = 33g  (bits  15-11  of  BBANK) 

Proceed  to  address  specified  in  SELFRET 

(return  to  self  test  routines  where  they  left  off) 

If  NEWJOB  >0:  (A  job  has  been  awakened  or  established 

with  job  core  set  other  than  zero. 
Before  the  next  step,  an  interrupt  may 
establish  or  awaken  a job  of  higher 
priority  with  job  core  zero;  in  that 
case,  NEWJOB  would  be  reset  to  +0  be- 
fore next  step.) 

Inhibit  interrupts 

If  NEWJOB  >0; 

Switch  bit  2 of  channel  11  to  1 (COMP  ACT  on) 


TSq  = LOCq 


TS^  = BANKSETq 


Proceed  to  "CHANJ0B4" 
Release  interrupt  inhibit 
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(otherwise,  NEWJOB  = +0) 

Switch  bit  2 of  channel  11  to  1 
SUPERBNK  = bits  7-5  of  BANKSETq 
EBANK  = bits  3-1  of  BANKSETq  . (via  BBANK) 

FBANK  = bits  15-11  of  BANKSETq  (via  BBANK) 

Proceed  to  address  specified  in  LOC^ 

FINDVAC  (Entered  to  "Establish”  a job  that  requires  working  storage) 
Inhibit  interrupts 

NEWPRIO  = A (priority,  octal,  in  bits  14-10  of  accumulator) 

NEWLOC,  = contents  of  double  precision  cell  specified  in  Q- 
^ register 

(stored  in  fixed  memory  after  a "TO  FINDVAC") 

EXECTEMl  = FBANK 

FBANK  = 1 (note:  SUPERBNK  setting  does  not  affect 

FBANK  #1) 

FINDVAC2  Scan  VACiUSE  for  i = 1-5  for  an  available  VAC  area 

(if  available,  VACiUSE  = its  own  address;  if  not,  it  = +0) 

If  none  available,  proceed  to  "BAILOUTl"  with  TS  =31201^ 
and  TSl^p  = (Q-register,  EXECTEMl) 

NEWPRIO  = NEWPRIO  + VACiUSE  + 1 

(priority  in  bits  14-10;  address  of  "1  + VACiUSE"  in  bits  9-1) 

VACiUSE  = +0 

Proceed  to  "N0VAC2" 

SPVAC  (Entered  with  interrupts  inhibited  and  priority  in  NEWPRIO  to 
"Establish"  a job  that  requires  a working  storage) 

Q-reglster  = Q-register  - 2 
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NOVAC 


N0VAC2 


N0VAC3 


CORFOUND 


NEWLOC,  = (A,L) 

dp 

EXECTEMl  = FBANK 
FBANK  = 1 

Proceed  to  "FINDVAC2" 


(job  starting  address  in  accumulator 
instead  of  in  fixed  memory) 


(Entered  to  "Establish"  a job  that  requires  no  working 

storage) 


Inhibit  interrupts 

NEWPRIO  = A + "MPAC,"  - "QPRET" 


NEWLOC,  = contents  of  double  precision  cell  specified  in 
^ Q-register 


EXECTEMl  = FBANK 
FBANK  = 1 
LOCCTR  = 0 


EXECTEM2  = 7 

If  PRIORITY^qPP^j^  = -0,  proceed  to  "CORFOUND" 
LOCCTR  = LOCCTR  + 12 
If  EXECTEM2  > 0: 

EXECTEM2  = EXECTEM2  - 1 


Proceed  to  "N0VAC3" 

Proceed  to  "BAILOUTl"  with  TS  = 3T202g  and  TSl  = 
(Q-register,  EXECTEMl)  (No  available  ^job  cores) 


PRIORITYj^q^.^^  = NEWPRIO 
PUSHLOC^q^^^  = bits  9-1  of  NEWPRIO 
If  LOCCTR > 0,  proceed  to  "SETLOC" 
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OVFIND  = 0 


FIXLOC  = PUSHLOCq 

SPECTEST  If  NEWJOB  is  negative  non-zero  or  +0,  proceed  to  "CCSHOLE" 

If  NEWJOB  > 0,  proceed  to  "SETLOC"  (new  job  just 
established  with  job  core  aero,  but  job  of  higher  priority 
awakened  during  same  interrupt  with  job  core  other  than  zero) 

NEWJOB  = +0 

LOCq  = more  significant  half  of  NEWLOC 
BANKSETq  = less  significant  half  of  NEWLOC 
FBANK  = EXECTEKL 

Return  to  2 + address  in  Q-register 

SETLOC  LOC. = more  significant  half  of  NEWLOC 
LUUUiK 

BANKSETj^qi^q^j^  = less  significant  half  of  NEWLOC 
TS  = PRIORITY^^jOB 

If  TS  < NEWPRIO,  NEWJOB  = LOCCTR  (this  job  will  be  started 
at  the  next  entry  to  "CHANJ0B4"  if  NEWJOB  is  set  here) 

FBANK  = EXECTEMl 


Return  to  2 + address  in  Q-register 

CHANd  (Entered  from  jobs  programmed  in  "basic"  language  to  check 
for  jobs  of  higher  priority) 

TSq  = Q-register 

TS^  = FBANK  + EBANK  (FBANK  in  bits  15-11;  EBANK  in  bits  3-1) 
EBANK  = 2 (bits  3-1  of  BBANK) 


FBANK  = 1 


(bits  15-11  of  BBANK) 


Inhibit  Interrupts 
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(SUPERBNK  in  bits  7-5) 


TS^  = TS^  + SUPERBNK 

Proceed  to  "CHANJ0B4" 

CHANG2  (Entered  after  the  completion  of  a line  of  interpretive 
instructions  to  check  for  a job  of  higher  priority) 

TS^  = - L0C„ 

0 0 

EBANK  = 2 (bits  3-1  of  BBANK) 

FBANK  = 1 (bits  15-11  of  BBANK) 

Inhibit  interrupts 


TS^  = BANKSETq  + SUPERBNK 


CHANJ0B4  LOCq  = (no  change  if  NEWJOB  = +0) 

BANKSET^  = BANKSET,. 


NEWJOB 


^^NEWJOB  "^^0 


SUPERBNK  = bits  7-5  of  BANKSET^ 

Exchange  MPAC.  of  this  job  with  MPAC.  of  new  job  for  i = 0-7 
^ ^ (MPAC„  = MODE) 

If  OVFIND  0,  PUSHLOCq  = - PUSHLOCq  ' 

OVFIND  = 0 


Exchange  PUSHLOC^  With  PUSHLOC,™.-™ 

^ 0 NEWJOB 

Exchange  PRIORITY^  with  PRIORITY,^, 

0 NEWJOB 

FIXLOC  = bits  9-1  of  PRIORITY^ 

If  PUSHLOCq  < 0: 

PUSHLOCq  = - PUSHLOCq 
OVFIND  = 1 
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NEWJOB  = +0 


ENDPRCHG 


PRIOCHNG 


JOBSLEEP 


Release  interrupt  inhibit 

If  LOCq  < 0: 

LOC^  = - L0C„  + 1 
0 0 

EBANK  = bits  3-1  of  BANKSET^  (via  BBANK) 

FBANK  = bits  15-11  of  BANKSET^  (via  BBANK) 

Proceed  to  interpretive  decoder 

EBANK  = bits  3-1  of  BANKSET^  (via  BBANK) 

FBANK  = bits  15-11  of  BANKSET^  (via  BBANK) 

Proceed  to  job  whose  address  is  specified  in  LOC^ 

Inhibit  Interrupts  (Entered  to  "Change  priority"  of  a job) 

NEWPRIO  = A (Priority  in  bits  14-10  of  accumulator) 

BANKSET^  = FBANK  + EBANK  (FBANK  in  bits  15-11;  EBANK  in  bits 
° 3-1) 

EBANK  = 2 

FBANK  = 1 

LOCq  = Q-register 

BUFq  = +0 

PRIORITY  = NEWPRIO  + bits  9-1  of  PRIORITY^ 

(changing  priority  in  bits  14-10  but  leaving  VAC 
address  unchanged) 

BUF^  = - PRIORITY^ 

Proceed  to  "EJSCAN" 

(Entered  with  "address  at  which  sleeping  job  is  to  begin 
when  awakened"  in  accumulator) 
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LOCq  = A 
FBANK  = 1 


Inhibit  interrupts 

PRIORITY^  = -'PRIOEIXYq  (to  indicate  that  job  is  asleep) 
BANKSETq  = SUPERBNK  + EBANK 
BUP^  = -0 

Proceed  to  "EJSCAN" 

ENDOFJOB  FBANK  = 1 (Entered  to  "End  job") 

Inhibit  interrupts 
BUF^  = -0 

TS  = bits  9-1  of  PRIORITY^  (l  + address  of  VAC  area  if  any) 
PRIORITY^  = -0 

If  TS  > "MPAC  ''  - "QPRET":  (VAC  area  to  be  released) 

6 

VACiUSE  = TS  - 1 (using  VACiUSE  +1  address  in  TS) 
EJSCAN  i = 12 

If  PRIORITY^ > 0: 

If  PRIORITY^  - 1 > -BUF^:  (the  "1"  is  insignificant) 

BUF^  = - PRIORITY.  + 1 ("1"  does  not  change  priority 

information  in  bits  14-10) 

BUFq  = i (effectively) 

If  PRIORITY^  = +0,  proceed  to  "CCSHOLE" 

If  i < 84: 

i = i + 12 

Proceed  to  second  step  of  "EJSCAN" 
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If  BUF^»  40,  proceed  to  "CCSHOLE" 

If  BUF^  = -0:  (all  jobs  completed) 

NEWJOB  = -0 
Proceed  to  "DI]MMZJB2" 

If  BUFq  = +0;  ("PRIOCHNG") 

NEWJOB  = +0 
Proceed  to  "ENDPRCHG" 

NEWJOB  = BUFq 

TSq  = LOCq  (contents  meaningless  if  end  of  job) 

Inhibit  interrupts 

TS^  = BANKSETq  + SUPERBNK 

Proceed  to  "CHANJ0B4" 


JOBWAKE  Inhibit  interrupts 

TS  = A (starting  address  of  job  when  awakened) 
Q-register  = Q-register  - 2 


EXECTEMl  = FBANK 
FBANK  = 1 
LOCCTR  = 0 
EXECTEM2  = 7 


J0BWAKE4  If  PRIORITY^q(.^j^ 


< 0 and  TS  = LOG 


'LOCCTR* 


NEWPRIO  = - PRIORITY. 

pRioRitYlocctr 


LOCCTR 
= NEWPRIO 


NEWLOC  = 2000.  f bits  10-1  of  TS 
ms  8 


(correct  sleeper) 
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ttf  PRIORITYj^^^^^  < 0 and  IS  = L0C^,ccTR=  ’ 

NEWLOC,  = bits  13-11  of  TS  + BANKSET, 

Is  LOCiLiiK 

If  LOCCTR  > 0,  proceed  to  "SETLOG" 

Proceed  to  "SPECTEST" 

LOCCTR  = LOCCTR  + 12 
If  EXECTEM2  > 0: 

EXECTEM2  = EXECTEM2  - I 
Proceed  to  "J0BWAKE4" 

LOCCTR  = -I  (indicating  that  no  such  sleeper  was  found) 
FBANK  = EXECTEMl 

Return  to  2 + address  in  Q-register 
DELAY JOB  Inhibit  interrupts 
TSt  = A 
RUPTREd  = 2 

mLmi  If  DELAYLOCj^^j^^  ^ 0: 

If  RUPTREGl  = 0,  proceed  to  "BAILOUTI"  with  TS  = 31104g 

and  TSl,  = (BUF2  , BUF2J 
dp  o’  1'^ 

RUPTREGl  = RUPTREGl  - 1 
Proceed  to  "DELLOOP" 

WAITEXIT  = "TCGETGAD"  - 2 
L = FBANK  + RUPTREGl  (FBANK  = 0) 

WAITADR  = "WAKER" 

Proceed  to  "DLY2"  ("returns"  to  "TCCffiTCAD") 


MATX  - 18 


TGGETGAD 


WAKER 


WAITLIST 


TWIDDLE 


DELAYLOCj^^j^^  = bits  10-1  of  BTJF2q  + BUF2^ 


Proceed  to  "JOBSLEEP"  with  A = DELAYLOC 


RUPTREGl 


(Must  be  in  FBANK 

i = FBANK  + EBANK  (=  RUPTREGl  of  above) 
A = DELAYLOC, 


DELAYLOC^  = 0 


Perform  "JOBWAKE" 
Proceed  to  "TASKOVER" 


(Entered  to  "Call"  a task  with  "delta-time  to  interrupt" 
in  accumulator) 


Inhibit  interrupts 
WAITDELT  = A 


WAITEXIT  = Q-register 


("Calling  address"  + l) 


TS,  = contents  of  double  precision  register  specified  in 
WAITEXIT 


L = less  significant  half  of  TS 
WAITADR  = more  significant  half  of  TS 
Proceed  to  "DLY2" 

(Entered  to  "Call"  a task  with  the  same  FBANK,  SUPERBNK  and 
EBANK  as  the  caller.) 

Inhibit  interrupts 

Q-register  = Q-register  - 1 


L = FBANK  + SUPERBNK  + EBANK 


Inhibit  Interrupts 
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WAITDELT  = A 


DLY2 

I 


WAITEXIT  = Q-register 
TSadr  = Q-register  +1 

WAITADR  = contents  of  single  precision  register  specified  in  TSadr 
WAITBANK  = FBANK  + EBANK  (FBANK  in  bits  15-11;  EBANK  in  bits  3-1) 
EBANK  = 3 
FBANK  = 1 

If  WAITDELT  < 0,  proceed  to  "POODOOl"  with  TS  = 212Q4g  and 
TSl^p  = (WAITEXIT,  WAITBANK) 

If  TIME3  > 128,  T1  = 16384  - TIME3  (delta-t  to  first  task 

in  list) 

If  TIME3  = 128,  T1  = 1 (improper  performance;  unexpected) 

If  TIME3  < 128,  T1  = - TIME3  (interrupt  has  occurred  and 
is  waiting  to  be  processed;  TIME3  continues  to  count  (every 
centisecond)  until  it  is  reset) 

TSdt  = T1 

If  WAITDELT > TSdt  - 1:  (Call  time  greater  than  or  equal  to 

time  to  earliest  task,  task  zero) 

i = 0 

Proceed  to  "WTLST5" 

TSt  = (8192  - WAITDELT)  + 8192  modulo  2^ 

Exchange  TIME3  and  TSt  (Switch  contents  of  one  to  the  other) 
LSTl^  = LST1^_^  for  i = 7 thru  1 in  that  order 
LSTIq  = 1 - (16384  - TSt  - WAITDELT) 

TS  = more  significant  half  of  LST2^£^ 

LST22^  = LST22^_2  for  i = 8 thru  0 in  that  order 
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WTLST5 


I 


LST2q  = {WAITADR  , (double  precision) 

If  TS  / "SVCT3",  proceed  to  "BAILOUTl"  with  TS  = 3.1203- 
and  TSl^p  = (WAITEXIT,  WAITBANK) 

EBANK  = bits  3-1  of  WAITBANK  (via  BBANK) 

FBANK  = bits  15-11  of  WAITBANK  (via  BBANK) 

TSadr  = 2 + WAITEXIT 

Proceed  to  address  specified  in  TSadr  (return  to  caller) 

TSdt  = TSdt  - LSTl.  + 1 (LSTlj^  = 1 - delta  time  between 

tasks  i and  i + 1 where  time  to 
task  zero  is  counting  down  now) 

If  WAITDELT>  TSdt  - 1: 
i = i + 1 

If  i = 8,  proceed  to  "BAILOUTl"  with  TS  = 31203g 
and  TSl^p  = (WAITEXIT,  WAITBANK) 

?:  Proceed  to  TWTLST5" 

WAITTEMP  = TSdt  - WAITDELT  - 1 

LSTl.  = LSTl.  + WAITTEMP  +1  (=  1 - "delta  time  from  task  i 

^ to  new  task") 

/ 

LSTl.  = LSTl.  T for  j = 7 thru  i+2  in  that  order  for  i 6. 

J J-1 

LSTl.  , = - WAITTEIHP  for  i 7 (=  1 - "delta  time  from  new  task  to 
^ task  which  was  number  i+1  but  has  been  displaced" ) 

TS  = more  significant  half  of  LST2^^ 

LST22j  = LST22j  2 j = ® thru  1+2  in  that  order  for  i 7 

LST22i^2  ~ (WAITADR  , L)  (double  precision) 

If  TS  / "SVCT3",  proceed  to  "BAILOUTl"  with  TS  = 312033 
and  TSl^p  = (WAITEXIT,  WAITBANK) 
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EBANK  = bits  3-1  of  WAITBANK  (via  BBANK) 

FBANK  = bits  15-11  of  WAITBANK  (via  BBANK) 

TSadr  = 2 + WAITEXIT 

Proceed  to  address  specified  in  TSadr  (return  to  caller) 
T3RUPT  BANKRUPT  = FBANK  + SUPERBNK  + EBANK 
QRUPT  = Q-register 
TS  = LSTIq 

LSTl . = LSTl . , , for  i = 0 thru  6 in  that  order 
LSTl^  = 1 - 8193 
RUPTAC2J  = -0 

i • 

TIME3  =(16383  + TS  + TIME3 )modulo  16384 

If  overflow,  RUPTAGN  = 1 (two  simultaneous  tasks  or  tardy 

"T3RUPT") 

TSadr  = more  significant  half  of  LST2q 

TSbanks  = less  significant  half  of _JiST2Q 

LST2  = LST2  , „ for  1=0  thru  7 in  that  order 

2i  2i+2 

LST2i6  = "SVCT3"  (less  significant  half  insignificant) 

SUPERBNK  = bits  7-5  of  TSbanks 

FBANK  = bits  15-11  of  TSbanks  (via  BBANK) 

EBANK  = bits  3-1  of  TSbanks  (via  BBANK) 

Proceed  to  address  specified  in  TSadr 
TASKOVER  If  RUPTACai  > 0: 

EBANK  = 3 
FBANK  = 1 

Proceed  to  third  step  of  "T3RUPT" 
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LONCXaLL 


LONGCYCL 


^Jtheriitaer , RUPTAQI  = -0) 

SUPERBNK  = bits  7-5  of  BANKRUPT 
Q-register  = QRUPT 

EBANK  = bits  3-1  of  BANKRUPT  (via  BBANK) 
FBANK  = bits  15-11  of  BANKRUPT  (via  BBANK) 
A = ARUPT 
L = LRUPT 

Release  any  interrupt  inhibits 
Resume 


LONGTIME^p  = (A  , L) 

LONGCADR  = contents  of  double  precision  register  specified  in 

Q-reglster  (stored  in  fixed  at  "calling  address"  + l) 

LONGEXIT^  = FBANK  + EBANK 

EBANK  = 3 

FBANK  = 1 


L0N(2:XITq  = Q-reglster  + 2 

If  LONGTIME  > 0,  proceed  to  "LONGCYCL" 
ms  ’ ^ 

If  LONGTIMEj^g  = 0 and  LONGTIME^g  < 0 or  if  LONGTIMEj^^  < 0, 

prodeeh  to  "p86fi6oi"  t/ith  TS  = 21204^ 'and  TSl,  = (LONGEXIT 
LONGEXIT^)  ® 

LONGTIME  = LONGTIME  - 8192 

If  LONGTIME,  > 0: 
dp 

Call  "LONGCYCL"  in  81^2 1 eecsonds 


o 


> 
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GETGADR 


FIXDELAY 


VARDEUY 


If  LONGTIME,  ^0: 
dp 

TSt  = LONGTIME^g  + 8192 
Call  "GETGADR"  in  TSt  centlseconds 
EBANK  = bits  3-1  of  LONGEXIT^ 

FBANK  = bits  15-11  of  LONGEXIT^ 

TSadr  = LONGEXIT^ 

LONGEXITq  = "TASKOVER" 

Proceed  to  address  specified  in  TSadr  (return  or  "End  task") 

TSbanks  = less  significant  half  of  LONGGADR 

'TSadr  = more  significant  half  of  LONGGADR 

EBANK  = bits  3-1  of  TSbanks 

FBANK  = bits  15-11  of  TSbanks 

Proceed  to  address  specified  in  TSadr 

(Entered  to  "delay"  during  a task) 

A = contents  of  single  precision  cell  specified  in  Q-register 

Q-register  = Q-register  + 1 

WAITDELT  = A 

WAITADR  = Q-register 

L = FBANK  + SUPERBNK  + EBANK 

WAITEXIT  = "TASKOVER"  - 2 

Proceed  to  "DLY2" 
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Routines  used  for  inter-bank  communication 
(not  a complete  list;  included  for  example  only)  ■ 


BANKCALL 


SWGALL 


SWRETURN 


POST JUMP 


BANK JUMP 


BUr2Q  = A 
BUF2^  = L 

A = contents  of  single  precision  cell  specified  in  Q-register 
Q-reglster  = Q-register  + 1 
FCADR  = A 
TS  = FBANK 

FRANK  = bits  15-11  of  FCADR 
TSadr  = 02000g  + bits  10-1  of  FCADR 
A = BUF2q 

(to  preserve  their  contents  during  a "BANKCALL") 

L = BUF2^ 

BUF2q  = Q-register 
BUF2^  = TS 

Proceed  to  address  specified  in  TSadr 

"BBANK  = BUF2^  (without  disturbing  contents  of  A or  L) 

Proceed  to  address  specified  in  BUF2q 
TS  = A 

A = contents  of  single  precision  cell  specified  in  Q-register 
FBANK  = bits  15-11  of  A 
TSadr  = 02000g  + bits  10-1  of  A 
A = TS 

Proceed  to  address  specified  in  TSadr 
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MAKECADR  FCADR  = BUF2^  + bits  10-1  of  BUF2q 


Return 

SUFDAGAL  TSmp  = FBANK  + SUPERBNK 

FBANK  = bits  15-11  of  FCADR 
TSadr  = 02000^  + bits  10-1  of  FCADR 
Inhibit  interrupts 
SUPERBNK  = bits  7-5  of  L 

A = contents  of  cell  whose  address  is  specified  in  TSadr 

SUPERBNK  = bits  7-5  of  TSmp 

Release  interrupt  inhibit 

FBANK  = bits  15-11  of  TSmp 

Return 
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Quantities  in  Con^iutations 


A:  Single  precision  accumulator  with  overflow  bit  in  addition  to  the 
usual  sign  bit  and  fourteen  magnitude  bits.  (Stored  in  ARUPT  during 
an  interrupt . ) 

BANKRUPT:  Single  precision  storage  for  current  bank  settings  when  a job 
is  interrupted  and  the  banks  are  reset  to  process  the  interrupt. 

BANKSETi  (i  = 0,  12,  24,  36,  48,  60,  72,  84):  Single  precision  storage 
for  the  FBANK,  SUPERBNK,  and  EBANK  settings  required  by  each  job; 
part  of  the  job  core  assigned  to  each  active  job.  (FBANK  in  bits 
15-11;  SUPERBNK  in  bits  7-5;  EBANK  in  bits  3-1.) 

BUT  (1  = 0,1) : Single  precision  working  storage  cells  used  in  "EJSCAN" 
to  determine  the  job  of  highest  priority  if  any  are  active. 

BUF2j^  (i  = 0,1):  Single  precision  storage  for  the  return  address  and 
FBANK  setting  during  a temporary  trafiefer  to  anbther-SBKNK. 

DELAYLOCi  (i  = 0,1,2):  Single  precision  address  of  one  of  three  jobs 
being  "delayed" . 

EBANK:  Single  precision  register  which  controls  erasable  memory  access; 
scaled  B6  and  e^qjressed  as  an  octal  quantity  between  0 and  7.  Gated 
directly  to  bits  3-1  of  BBANK. 

EXECTEMl,  EXECTEM2:  Single  precision  tenporary  storage  cells. 

FBANK:  Single  precision  register  which  controls  fixed  memory  access  in 
conjunction  with  the  SUPERBNK  register;  scaled  B4  and  expressed  as  an 
octal  quantity  between  0 and  37-,.  Gated  directly  to  bits  15-11  of 
BBANK.  “ 

FCADR:  Single  precision  address  with  FBANK  setting  used  for  inter-bank 
communication  with  no  change  in  the  SUPERBNK  setting.  Bits  15-11 
contain  the  FBANK  setting  and  bits  10-1  contain  the  address. 

FIXLOC:  Single  precision  address  of  the  VAC  area  (or  job  core  accumu- 
lator, MPAC^  - 42g)  of  the  job  being  executed. 

L:  Single  precision  "less  significant"  half  of  the  accumulator  when  it 
contains  a double  precision  number.  (Stored  in  LRUPT  during  an 
interrupt . ) 
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LOCi  (i  = 0,  12,  24,  36,  48,  60,  72,  84).:  t^Single  preoision  storage  for  the 
S-register  portion  of  the  starting  address  of  a job;  part  of  the  job 
core  assigned  to  each  active  job.  If  an  interrupted  job  is  using 
the  interpreter  language,  LOG  is  complemented. 


LOCCTR:  Single  precision  job  core  index,  scaled  B14  and  unitless. 

LONGCADR:  Double  precision  storage  for  starting  address  and  bank 
settings  for  a task  in  "LONGCALL". 


LONGEXITj^  (i=0,l);  Single  precision  storage  for  address  and  bank  settings 
of  routine  that  is  "calling"  a task  via  "LONGCALL". 

LONGTIME:  Double  precision  time  interval  from  "now"  to  the  time  of 
initiation  of  a task  in  "LONGCALL";  scaled  B28  in  units  of  centi- 
seconds. 


LSTl.  (i=0-7):  Single  precision  storage  for  "one  minus  the  delta-time 
between  tasks  i and  i+1,"  where  task  i=0  is  the  one  for  which  TIME3 

is  counting  down;  scaled  B14  in  units  of  centiseoonds. 

/ 


LST2^  (i=0,  2,  4,  6,  8,  10,  12,  14,  16):  Double  precision  storage  for 
address  and  bank  settings  for  each  task  in  the  waitlist.  Set  equal 
to  the  address  of  "SVCT3"  when  not  in  use  (to  cause  "SVCT3"  to  be 
executed  every  81.93  seconds). 


MPACj^  (i=0-7):  Multiple  precision  accumulator  used  automatically  by  jobs 
coded  in  the  interpretive  language  (via  the  interpretive  decoder)  and 
sometimes  by  jobs  coded  in  basic  language.  A set  of  eight  single 
precision  cells  associated  with  a particular  job  and  used  exclusively 
by  that  job.  When  a job  is  put  to  sleep  or  is  interrupted  by  a job 
of  higher  priority,  MPACo_7  are  saved  as  part  of  the  "job  core" 
reserved  for  that  job,  and  they  are  reset  exactly  as  they  were  when 
the  interrupted  job  is  re-established. 


NEWJOB:  Single  precision  index  of  the  job  core  of  the  active  job  of 
highest  priority,  scaled  B14  and  unitless;  set  to  -0  when  no  jobs  are 
active . 


NEWLOC:  Double  precision  temporary  storage  for  the  LOG  and  BANKSET  of  a 
job  being  established. 

NEWPRIO:  Single  precision  temporary  storage  for  the  priority  and  VAC 
area  address  for  a job  being  established. 
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OVFIND:  Single  precision  overflow  indicator  associated  with  the  job 
being  executed. 

PRIORirii  (i=0,  12,  24,  36,  48.  60,  72,  84);  Single  precision  storage 
for  the  priority  (bits  14-10)  and  VAC  area  address  assigned  to  each 
active  job;  if  a job  is  "sleeping",  PRIORITY  is  negative;  if  the  job 
core  of  which  a particular  PRIORITYi  is  a part  is  available,  PRIORITY 
is  equal  to  -0.  (Adjusted  for  a NOVAC  job  so  that  QPRET  will  equal 
MPAC^.) 

PUSHLOCi  (1=0,  12,  24,  36,  48,  60,  72,  84);  Single  precision  address  of 
the  next  available  position  in  the  VAC  area  of  a particular  job, 

. set  equal  to  the  first  position  in  the  list  when  a job  is  established. 
If  a job  is  interrupted  while  the  overflow  indicator  is  set,  PUSHLOC 
is  complemented. 

Q-register:  Single  precision  return  address  register  automatically  set 
by  a TC  instruction  (basic)  equal  to  "calling  address"  + 1 (address 
of  instruction  immediately  following  the  TC  instruction) . 

QPRET;  Single  precision  octal  return  address  storage  cell  loaded  by 
interpretive  transfer  instructions  (equals  VAC^  or  MPAC^) . 

QRUPT;  Single  precision  storage  for  current  value  of  Q-register  when  a 
job  is  interrupted,  for  reloading  the  Q-register  when  the  interrupt  is 
completed. 

RUPTAC2^;  Single  precision  cell  used  in  "T3RUPT"  to  determine  if  more  than 
one  task  must  be  processed  at  a single  interrupt. 

RUPTREd:  Single  precision  temporary  storage  cell. 

SELFRET:  See  TEST  section. 

SUPERBNK;  Single  precision  LGC  channel  which  controls  fixed  memory  access 
in  conjunction  with  the  FRANK  register;  scaled  BIO  and  expressed  as 
an  octal  quantity  between  0 and  4* 

TIME3:  See  INTR  section. 

VACiUSE  (i=l,  2,  3,  4,  5):  Single  precision  register  at  the  head  of  each 
of  the  five  working  storage  areas  (VAC  areas)  that  may  be  assigned  to 
jobs.  Each  VAC  area  contains  43  single  precision  cells  plus  VACiUSE. 
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WAITADR:  Single  precision  "S-register"  portion  of  the  address  of  a 
task  being  inserted  in  the  waitlist. 

WAITBANK;  Single  precision  storage  for  current  EBANK  and  FBANK  while 
these  banks  are  switched  to  enter  a task  in  the  waitlist. 

WAITDELT:  Single  precision  time  inte27val  between  "now"  and  time  at 
which  a task  is  to  start,  scaled  B14  in  units  of  centiseconds . 

WAITEXIT;  Single  precision  return  address  to  routine  that  is  "calling" 
a task;  used  to  locate  the  task  address  when  it  is  stored  in  fixed 
memory  at  the  calling  address  +1  and  2. 

WAITTEMP:  Single  precision  delta-time  between  time-from-now  at  which 
task  1+1  will  be  executed  (time  to  task  zero  is  counting  down  "now") 
and  time-from-now  at  which  new  task  is  to  be  executed. 
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Orbital  Integration 


STATEINT 


STATINTl 


Establish  "STATINTl" 

End  task 

If  ELAGWRD9  bit  5 (QUITFLAG)  = 1: 

Switch  FLAGWRD9  bit  5 (QUITFLAG)  to  0 
End  job 

TDECl  = TIMENOW 

Perform  "INTSTALL"  (wait  until  orbital  Integration  free) 
Switch  FLAGWRD2  bit  1 (NODOFLAG)  to  1 

Perform  "SETIFLGS"  (Set  up  for  Encke  without  W-matrlx) 

Switch  FLAGWRD3  bits  15  (POOHFLAG)  and  3 (VINTFLAG)  to  1 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1 and  FLAGWRD5  bit  1 
(RENDWFLG)  = 1: 

Switch  FLAGWRD3  bit  1 (DIMOFLAG)  to  1 (6x6) 

Switch  FLAGWRD3  bit  8 (PRECIFLG)  to  0 
Perform  "INTEOIV" 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1; 

Switch  FLAGWRD2  bit  1 (NODOFLAG)  to  0 
Proceed  to  "ENDINT" 

TDECl  = TETGSM 
Perform  " INTSTALL" 

Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  0 
Perform  "SETIFLGS" 


(pr05) 
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SETIFLGS 


ENDINT 


CSMPREC 


LEMFREC 


If  FLAGWRD5  bit  1 (RENDWFLG)  = 1: 

Switch  FLAGWRD3  bits  1 (DIMOFLAG)  and  2 (d60R9FLG) 
to  1 

Switch  FLAGWRD3  bit  8 (PRECIFLG)  to  1 
Perform  " INTEGRV" 

Switch  FLAGWRD2  bit  1 (NODOFLAG)  to  0 
Proceed  to  "ENDINT" 

Switch  FLAGWRD3  bit  5 (STATEFLG)  to  1 (store  integrated 

state  vector) 

Switch  FLAGWRD3  bit  4 (INTYPFLG)  to  0 (Specify  Encke) 
Switch  FLAGWRD3  bits  1 (DIMOFLAG)  and  2 (d60R9FLG)  to  0 
Return 

Switch  FLAGWRD3  bit  5 (STATEFLG)  to  0 
Call  "STATEINT"  in  600  seconds 
End  job 

Perform  "INTSTALL" 

IRETURN  = return  address  to  caller  of  "CSMPREC" 

Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  1 

Switch  FLAGWRD3  bit  8 (PRECIFLG)  to  1 

Switch  FLAGWRD3  bits  1 (DIMOFLAG)  and  4 (INTYPFLG)  to  0 

Proceed  to  second  step  of  "INTEGRV" 

Perform  "INTSTALL" 

IRETURN  = return  address  to  caller  of  "LEMPREC" 

Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  0 


(9x9) 
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CSMCONIC 


LEMCONIC 


INTEGRV 


Switch  FLAGWRD3  bit  8 (PRECIPLG)  to  1 

Switch  FLAGWRD3  bits  1 (DIMOFLAG)  and  4 (INTYPFLG)  to  0 

Proceed  to  second  step  of  "INTECSIV" 

Perform  "INTSTALL" 

IRETURN  = return  address  to  caller  of  "CSMCONIC" 

Switch  FLAGWRD3  bits  3 (VINTFLAG)  and  4 (INTIPFLG)  to  1 
Switch  FLAGWRD3  bit  1 (DIMOFLAG)  to  0 
Proceed  to  second  step  of  "INTE(31V" 

Perform  "INTSTALL" 

IRETURN  = return  address  to  caller  of  "LEMCONIC" 

Switch  FLAGWRD3  bits  3 (VINTFLAG)  and  1 (DIMOFLAG)  to  0 
Switch  FUGWED3  bit  4 (INTYPFLG)  to  1 
Proceed  to  second  step  of  "INTEGRV" 

IRETURN  = return  address  (to  caller  of  "INTECRV") 

Switch  FLAGWRD8  bits  15  (RPQFLAG)  and  13  (NEWIFLG)  to  1 
If  FLAGWRD3  bit  3 (VINTFLAG)  = 1: 

Perform  "MOVEPCSM" 

Set  FLAGWRDO  bit  12  (MOONFLAG)  = FLAGWRD8  bit  12  (CMOONFLG) 
If  FLAGWRD3  bit  3 (VINTFLAG)  =0; 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1,  proceed  to  "USEPIOS" 
Perform  "MOVEPLEM" 

Set  FLAGWRDO  bit  12  (MOONFLAG)  = FLAGWRD8  bit  11  (LMOONFLG) 
PBODY  = 0 
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INTEGRVS 


ALOADED 


RVCON 


RECTOUT 


If  FLAGWRDO  bit  12  (MOONFLAG)  = 1,  PBODY  = 2 
Proceed  to  "ALOADED" 

IRETURN  = return  address 

Switch  FLAGWRD3  bit  8 (PRECIFLG)  to  1 

PBODY  = 0 

If  FLAGWRDO  bit  12  (MOONFLAG)  = 1,  PBODY  = 2 
TDELTAV  = 0 

raw  = 0 

Perform  "RECTIFY" 

Switch  FLAGWRD3  bit  1 (DIMOFLAG)  to  0 

Switch  FLAGWRD8  bits  15  (RPQFLAG)  and  13  (NEWIFLG)  to  1 

TDEC  = TDECl 

If  FLAGWRD3  bit  4 (INTYPFLG)  = 0,  proceed  to  "TESTLOOP" 
TAU  = TDEC  - TET 
Perform  "RECTIFY" 

Perform  "KEPPREP" 

TET  = TET  + TO 
Perform  "RECTIFY" 

MTT  = PECT 
VATT  = PECT 
TAT  = TET 
TSmu  = K;MUpgQpY 

MUDEX  = 0 (-2  In  index  register  1,  Xl) 
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INTEXIT 


RECTIFY 


TESTLOOP 


If  FLAGWRDO  bit  12  tMOONFLAG)  = 1,  MJDEX  = 8 
(-10  in  index  register  1 , XI  ) 

Switch  FLAGWRD9  bit  1 

Switch  FLAGWRD3  bit  8 

Switch  FLAGWRD3  bit  5 

Perform  "INTWAKE" 

Return  via  IRETURN 

PECT  = RCV  + TOELTAV 

RCV  = PECT 

VRECT  = VCV  + TNUV 

VCV  = VRECT 

TOELTAV  = 0 

puv  = 0 

TC  = 0 
XPREV  = 0 
Return 

If  FLAGWRD9  bit  5 (QUITFLAG)  = 1; 

Switch  FLAGWRD3  bit  5 (STATEFLG)  to  0 
Proceed  to  "INTEXIT" 
i = PBODY 

Switch  FLAGWRDO  bit  13  (MIDFLAG)  to  0 (MIDFLAG  should 

remain  zero  in 
LUMINARY ) 

If  |eCv|  > K:RMi; 

Switch  FLAGWRDO  bit  13  (MIDFLAG)  to  1 


(AVEMIDSW)  to  0 
(PREGIFLG)  to  0 
(STATEFLG)  to  0 

(awaken  any  jobs  waiting  to  integrate) 
(with  PBODY  in  index  register  2,  X2) 
(Scaling 
controlled 
by  PBODY) 
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TIMESTEP 


TSstep  = K;p3D  /J  |RCVj  ^ / RrMU^  (truncated  to 

_ T-T  multiple  of 

TSstep  = 2'  integral  part  of  (TSstep  / 2'J  128  centiseconds) 

If  overflow  or  if  TSstep  > 2 K:DTd2MAX,  TSstep  = 2 K:DTd2MAX 

DTd2  = ^ (TDEC  - TET) 

If  overflow  or  if  |DTd2j  i TSstep,  DTd2  = ^ TSstep  signDTd2 

If  |DTd2j  < K:DTd2MIN,  proceed  to  "A-PCHK"  (convergence) 

If  FLAGWRD3  bit  15  (POOHFLAG)  = 1 and  bit  8 ( PRECIFLG ) =0 : ("STATEINI 

If  DTd2  < ^ TSstep,  proceed  to  "A-PCHK"  (don't  integrate 

past  even  timestep) 

If  FLAGWRD8  bit  13  (NEWIFLG)  = 1; 

Switch  FLAGWRDS  bit  13  (NEWIFLG)  to  0 

If  TET  >TDEC,  proceed  to  "INTEXIT" 

(don't  Integrate  backwards) 

If  (TDEC  - TET)  < 8 DTd2,  proceed  to  "INTEXIT" 

(don't  integrate  unless  more  than  4 timesteps  behind) 

If  FLAGWRDO  bit  13  (MIDFLAG)  = 0,  proceed  to  "RECTEST" 

(MIDFLAG  should  remain  zero  in  LUMINaJ?^) 

If  DTd2  |rCV  • VC^  < 0,  proceed  to  "RECTEST" 

If  FLAGWRDO  bit  12  (MOONFLAG)  = 1,  proceed  to  "LUNSPH" 

If  FLAGWRDS  bit  15  (RPQFLAG)  = 1: 

TSt  = TET 

Perform  "LSPOS" 

RPQV  = TSsun 

i = PBODY 

If  |RCV  - OTQvJ  < K;RSPHERE; 

Perform  "ORIGCHNG" 
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(If  |RCV  - RPQVI  < K:RSPHERE;) 

Proceed  to  "INTGRA.TE" 

Proceed  to  "RECTEST" 

LUNSPH  If  |RCV|  < K:RSPHERE,  proceed  to  "RECTEST" 

If  FLAGWRD8  bit  15  (RPQFLAG)  = 1: 

TSt  = TET 
Perforin  "LSPOS" 

RPQV  - -TSsun 
Perform  "ORIGCHNG" 

Proceed  to  "INTGRATE" 

ORIGCHNG  Perform  "RECTIPT" 

^CT  = RCV  - ^QV 
RCV  = PECT 

If  FLAGWRDO  bit  12  (MOONFLAG)  = 1: 

TSyyy  = • (iiote  that  TSyy^.  is  riot  defined) 

VRECT  = VCV  - TSyyy 
VCV  = VRECT 

If  FLAGWRDO  bit  12  (MOONFLAG)  = 1: 

PBODY  = 0 

Convert  KV,  pECT,  VCV  and  VRECT  to  earth  scaling 
If  FLAGWRDO  bit  12  (MOONFLAG)  = 0: 

PBODY  = 2 
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(If  FLAGWRDO  bit  12  (MOONFLAG)  = 0;) 


Convert  RCV,  REIECT,  VCV  and  VRECT  to  moon  scaling 
Invert  FLAGWRDO  bit  12  (MOONFLAG) 

Return 

RECTEST  If  ItDELTAvI  ^ Ktrectr,  if  ijDELTAvl  / jRCvl  > K:RECRATIO, 
if  |TNUV|  > Kirectv; 

Perform  "RECTIFY" 

INT  GRATE  OT  = TOW 

YV  = TDELTAV 

Switch  FLAGWRDO  bit  14  (JSWITCH)  to  0 
DIFEQCNT  = 0 
ALPHAV  = YV 
H = 0 

If  FLAGWRDO  bit  14  ( JSWITCH)  = 1: 

Proceed  to  "DOW.." 

ACCOMP  i = PBODY 
ly  = 0 

BETAV  = ALPHAV  + RCV 
If  FLAGWRD3  bit  1 (DIMOFLAG)  = 1; 
j = - DIFEQCNT 
pCTABj.  = ffiTAV 
ALPHAM  = I^PHAVI 
Perform  " GAMCOMP" 

ALPHAV  = pTAV 
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ALPHAM  = BETAM 


If  FLAGWRDO  bit  13  (MIDFLAG)  = 0:  (MIDFLAG  should  remain 

zero  in  LUMINARY) 

Perform  "OBLATE" 

Proceed  to  "NBRANQH" 

TSt  = TET 
Perform  "LSPOS" 

i = 2 (index  MU  of  secondary  body) 

If  FLAGWRDO  bit  12  (MOONFLAG)  =1: 

TSsun  = - TSsun 
i = 0 

BETAV  = TSsun 
RPQV  = BETAV 

^SV  = TSxxx  (note  that  TSxxx  is  not  defined) 

If  MODREG  = 23  or  if  FLAGWRD3  bit  1 (DIMOFLAG)  = 1: 
j = 6 - DIFEQCNT 
VECTABj  = ;^PHAV  - BETAV 
RQW  = pCTABj 

Switch  FLAGWRD8  bit  15  (RPQFLAG)  to  0 

If  FLAGWRDO  bit  12  (MOONFUG)  = 1,  RPSV  = RPSV  + RPQV 

Perform  "GAMCOMP"  (BETAV  = RPQV) 

BETAV  = RPSV 

i = 4 (to  index  MU  of  the  sun) 

Perform  "GAMCOMP" 
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Perform  "OBLATE" 

Proceed  to  "NBRANCH" 

GAMCOMP  BETAM  = |BETAV| 

RHO  = ALPHAM  / BETAM 

q = RHO  ( RHO  - 2 unit^PHAV  • unitBETAV  ) 
DdBETA  = VT  + q^ 


3 + 3 q + q' 


Fq  = q 


1 + (1+q) 


TSgam  = - K:MU^ 


3/2 

RHO  (unitALPHAV  + unitBETAV  Fq  / RHO) 


BETA24^ 


DdBETA' 


F V = F V + TSgam 

If  overflow,  proceed  to  "GOBAQUE" 

Return 

OBLATE  i = PBODY 

If  ALPHAM  > K:RD.,  return 
If  FLAGWRDO  bit  12  (MOONFLAG)  =0; 

COS0  = Z component  of  unit^PHAV 
UZ  = K:UNITZ 

If  FLAGWRDO  bit  12  (MOONFLAG)  = 1 ; 

TSt  = TET 
Perform  "MOONMX" 

URPV  = [mOONMAT]  (unitALPHAV  - ( [MOONMAT]"^  m504)  * 
COSjZ!  = Z component  of  URPV  unitALPHAV) 

TS  = [MOONMAT (KtUNITZ  - (K:UWITZ  » ]y^504) ) 

UX  = LMOONMAT]^  (K:UNITX  - (K:UWITX  * LM504) ) 

UZ  ^ TS 


ORBI  - 10 


P2  ' = 3 COS0 

P3  ' = ^ (15  COS02  _ 3) 

P4'  =(l/3)(7  Pji  COS0  - 4 P2  ') 
P5"  =i  (9  P4  ' COS0  - 5 P3-’) 


TS  = 


P,.  + SiiMt 
3 ALPHAM 


TS  = TS  - 


+ 


I 4 ALPHAM  5 I 

/P31 

LPHAM  y ^ 


unitALPHAV 


ALPHAM 


UZ 


T^S  - TS  K;  j2i/ALPHAM^  (computed  quasi  floating  point) 
FV  = FV  + TS 


If  overflow,  proceed  to  "GOBAQUE" 

If  FLAGWRDO  bit  12  (MOONFLAG)  = 0,  return 

TSl  = 5(UKPVy2  - URPVx^)  unitALPHAV  + 2 UBPVx  UX  + 2 URPVy  (UX  » UZ) 

TS  = 5 URFVx  (1-7  COS02)  unitM^PHAV  + (5  CO302  _ i)  IK  + (lO  URPVx 
URPVj.)  UZ 

TS2  = (E32C31RM/ALPHAM)  TS  + E3J22R2M  TSl 
^S  = TS2/ALPHAM^ 

FV  = FV  + TS 


If  overflow,  proceed  to  "GOBAQUE" 


i = PBODY 
Return 
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GOBAQUE  If 


TDELTAV 


= 0,  proceed  to  "POODOO" 
with  TS  = 204308 


TAU  = TO  - H 
TET  = TET  - H 
Perform  "KEPPREP" 

Perform  "RECTIFY" 

Switch  FLAGWRD8  bit  15  (RPQFLAG)  to  1 
Proceed  to  "TESTLOOP" 

NBRANCH  If  DIFEQCNT  = -24,  .proceed  to  "DIFEQ+2" 

If  DIFEQCNT  = -12: 

PSIV  = PHIV  + 4 F 
raiV  = PHIV  + 2 F 
If  DIFEQCNT  = 0: 

PHIV  = F 
H = H + DTd2 

DIFEQCNT  = DIFEQCNT  - 12 
ALPHAV  = F + H (F  + i H F) 

If  FLAGWRDO  bit  14  (JSWITCH)  = 1,  proceed  to  "DOW.." 

TAU  = TC  + DTd2 

(DTd2  rounded  to  nearest  centisecond  if 
TET  = TET  + DTd2  DIFEQCNT  = -24) 

Perform  "KEPPREP" 

Proceed  to  "ACCOMP" 

DIFEQ.+2  F = F + H (F  + PHIV  H / 6) 

F = F + (PSPV  + F)  H / 6 

If  FLAGWRDO  bit  14  (JSWITCH)  = 0,  proceed  to  "ENDSTATE" 
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ENDSTATE 


(W,.  , , W^J  = 


4n 


6n' 


(“in  ’ “an  ’ “3n’  = ^ 

If  overflow,  proceed  to  "WMATEND" 

If  n < 1; 

TDECl  = TDEC 


Proceed  to  third  step  of  "INTEGIV" 
n = n - 1 

Proceed  to  "NEXTCOL" 

If  overflow,  proceed  to  "GOBAQUE" 

TNUV  = ZV 
TDELTAV  = jy 

If  FLAGWRD9  bit  2 (MIDAVFLG)  = 1,  proceed  to  "CKMID2" 

If  FLAGWRD3  bit  1 (DIMOFLAG)  = 0,  proceed  to  "TESTLOOP" 

Switch  FLGWRDIO  bit  7 (REINTFLG)  to  1 

(integration  routine  to  be  restarted) 

If  FLAGWRD3  bit  3 (VINTFLAG)  = 1: 

Perform  "MOVEACSM" 

Switch  FLAGWRDS  bit  12  (CMOONFLG)  to  1 
Perform  "SVDWNl" 

Set  FLAGWRDS  bit  12  (CMOONFLG)  = FUGWRDO  bit  12  (MOONFLAG) 
If  FLAGWRD3  bit  3 (VINTFLAG)  =0; 

Perform  "MOVEALEM" 

Switch  FLAGWRDS  bit  11  (LMOONFLG)  to  1 
Perform  "SVrWN2" 
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(If  FLAGMRD3  bit  3 (VINTFLAG)  =0:) 

Set  FLAGWRD8  bit  11  (LMOONFLG)  = FLAGWRDO  bit  12 

(MOONFLAG) 

Switch  FLAGWRDO  bit  U (JSWITCH)  to  1 
n = 6 

If  FUGWRD3  bit  2 (d60R9FLG)  = 1,  n = 9 
NEXTCOL  TJ  = (W^^, 

^ ^6n) 

j = 0 

DIFEQCNT  = 0 
ALPHAV  = YV 
H = 0 

If  FLAGWRDO  bit  14  ( JSWITCH)  = 0,  proceed  to  "ACCOMP" 

DOW..  i = PBODY 

j = - DIFEQCNT 

BETAM  = K:MU. 

1 

TS  = 3 (ALPHAV  * unitVECTAB .. ) unitVECTAB.  - ALPHAV 
” ” - J - J - 

ly  = TS  BETAM/  IVECTABjl  ^ 

If  FLAGWRDO  bit  13  (MIDFLAG)  = 0,  proceed  to  "NBRANCH" 
(midflag  should  remain  zero  in  LUl'IINARY) 

j = 6 - DIFEQCNT 

i = 2-PBODY  (earth  or  moon) 

BETAM  = K;MU^ 

TS  = 3 (^PHAV  • unitVECTAB.)  unitVECTAB.  - ALPHAV 

J J 

TS  = TS  BETAM  / |VECTAB^J  ^ 
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KEPPREP 


WMATEND 


USEPIOS 


If  FLAGWHDO  bit  12  (MOONFLAG);  = 0: 

Shift  TS  right  6 places  for  scaling 
ly  = FV  + TS 
Proceed  to  "NBRANCH" 

KEPRTN  = return  address 
i = PBODY 
ROOTMU  = K;MU^  ' 

A5  = i unitRCT  * VCV 
Q = (TAU  - TC)  / |RCV| 

TS  = I (K:MU^  - |yCVl  ^ 1rCV|  ) / 1RCV|  (=  - | (i  - J) 

XKEPNEW  = XPREV  + ROOTMU  Q (l  - A5  Q + 2 A5^  + TS) 

MUDEX  =0  (-2  in  index  register  1,  Xl) 

If  FLAGWRDO  bit  12  (MOONFLAG)  = 1,  MUDEX  = 8 (-10  in  index 

register  1,  Xl) 

Proceed  to  "KEPLERN"  (return  directly  to  calling  program 

from  "KEPLERN") 

Switch  FLAGWRD3  bits  1 (DIMOFLAG)  and  6 (ORBWFLAG)  to  0 
Switch  FLAGWRD5  bit  1 (RENDWFLG)  to  0 
Switch  FLAGWRD3  bit  5 (STATEFLG)  to  1 
Perform  "ALARM"  with  TS  = 00421g 
Proceed  to  "TESTLOOP" 

TSt  = TDECl 
TET  = TDECl 
Perform  "MOONMX" 
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A-PCHK 


MOVEPCSM 


RCV  = [mOONM'^'^  (RLS  + 1M501  * ^) 

Switch  FLAGWRDO  bit  12  (MOONFLAG)  to  1 
Perform  "MOONMX" 

TS  = [mOONMA'^'^  (KrDNITZ  + m504  * KtUNITZ) 

VCV  = KrOMEOylOON  TS  * RCV 

TDELTAV  = 0 

PBODY  = 2 

TNUV  = 0 


If  FLAGWRD3  bit  5 (STATEFLG.)  = 0,  proceed  to  "RECTOUT" 

Switch  FLGWRDIO  bit  7 (REINTFLG)  to  1 
If  FLAGWRD3  bit  3 (VINTFLAG)  = 1: 

Perform  "MOVEACSM" 

Switch  FUGWRD8  bit  12  (CMOONFLG)  to  1 
Perform  "SVDWNl" 

Set  FLAGWRD8  bit  12  (CMOONFLG)  = FLAGWRDO  bit  12  (MOONFLAG) 
If  FLAGWRD3  bit  3 (VINTFLAG)  = 0; 

Perform  "MOVEALEM" 

Switch  FLAGWRD8  bit  11  (LMOONFLG)  to  1 
Perform  "SVDWN2'' 

Set  FLAGWRD8  bit  11  (LMOONFLG)  = FLAGWRDO  bit  12  (MOONFLAG) 
Proceed  to  "RECTOUT" 

XPREV  = XKEPCSM 
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TC  = TCCSM 


MOVEPLEM 


MOVEACSM 


VCV  =VCVCSM 
RCV  = ROTCSM 
TNUV  = NUVCSM 
TDELTAV  = DELTACSM 
TET  = TETCSM 
VRECT  = VRECTCSM 
^CT  = PECTCSM 
Return, 

XPREV  = XKEPLEM 
TC  = TCLEM 
VCV  = VCVLEM 
RCV  = RCVLEM 
TNUV  = NUVLEM 
TDELTAV  = DELTALEM 
TET  = TETLEM 
VRECT  = VRECTLEM 
PECT  = PECTLEM 
Return 

XKEPCSM  = XPREV 
TCCSM  = TC 
VCVCSM  = VCV 
RCVCSM  = RCV 
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NUVCSM  = pW 
DELTACSM  = TOELTAV 
TETCSM  = TET 
TOECTCSM  = VRECT 
PECTCSM  = PECT 
Return 

MOVEALEM  XKEPLEM  = XPREV 
TCLEM  = TC 
VCVLEM  = VCV 
RCVLEM  = RCV 
NUVLEM  = pUV 
DELTALEM  = TOELSiS 
TETLEM  = TET 
VRECTLEM  = TOECT 
PECTLEM  = pECT 
Return 

AVETOMID  E(21ESS  = return  address 

If  FLAGWRD5  bit  1 (RENDWFLG)  or  FUGWRD3  bit  6 (ORBWFLAG)  = 1 
(Integrate  W-matrix  through  burn) 

Perform  "IKTSTALL" 

Switch  FLAGWRD3  bits  1 (DIMOFLAG)  and  2 (d60R9FLG)  to  1 
Switch  FLAGMRD9  bit  1 (AVEMIDSW)  to  1 
Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  0 
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MIDTOAVl 


(If  FLAGWRD5  bit  1 (RENDWFLG)  or  FLAGWRD3  bit  6 (ORBWFLAG)  = 1 
TDEGl  = PIPTIME 
Perform  "INTEGRV" 

Perform  "INTSPMLE" 

Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  1 
Perform  "SETIFLGS" 

TDECl  = PIPTIME 
Perform  " INTECKV" 

Perform  "INTSTALL" 

ERECT  = ^ (scaling  controlled  by  liMOONFLG), 

RCV  = p 

TET  = PIPTIME 

VRECT  = p 

VCV  = TO 

TDELTAV  = 0 

TNUV  = 0 

TO  = 0 

XPREV  = 0 

Perform  "MOVEAIBB" 

TRKMKCNT  = 0 
Perform  "INTWAKE" 

Return  via  EOIESS 
IRETURNl  = return  address 
TSerror  = 0 
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MIDT0AV2 


Switch  FLAGWRD9  bit  3 (MIDIFIAG)  to  1 
If  TDECl  < TIMENOW  + KtTIMEDELT: 

Switch  FLAGWRD9  bit  3 (MIDIFLAG)  to  0 
TSerror  = 1 

Perform  "ALARM"  with  TS  = 01703g 
TDECl  = TIMENOW  + K:TIMEDELT 
Skip  next  three  steps 
IRETURNl  = return  address 
Switch  FLAGWRD9  bit  3 (MIDIFLAG)  to  0 
TDECl  = TIMENOW  + KrTIMEDELT 
Perform  "INTSTALL" 

Switch  FLAGWRD3  bits  1 (DIMOFLAG),  3 (VINTFLAG)  and  4 

(INTYPFLG)  to  0 

Switch  FLAGWRD9  bit  2 (MIDAVFLG)  to  1 
Perform  "INTEC2W" 

Switch  FLAGWRD9  bit  2 (MIDAVFLG)  to  0 
pi  = MTT 
pi  = VATT 
PIPTIMEl  = TAT 

RTX2  = X2  (0  for  earth,  2 for  moon) 

RTXl  = XI  (-2  for  earth,  -10  for  moon) 

Inhibit  Interrupts 
TSt  = PIPTIMEl  - TIMENOW 

I 

Force  sign  agreement  between  the  two  halves  of  TSt 
Return  via  IRETURNl 
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CKMID2 


If  FLAGWRD9  bit  3 (MIDIFLAG)  = 1: 


INTSTALL 


INTWAKE 


If  TDEC  > TIMENOW  + K:TIMEDELT,  proceed  to  "TESTLOOP" 
Switch  FLAGWRD9  bit  3 (MIDIFLAG)  to  0 
TSerror  = 1 

Perform  "ALARM"  with  TS  = 017038 
TDEC  = TIMENOW  + K;TIMEDELT 
Proceed  to  "TESTLOOP" 

If  ITDEC  - TET|  < K:3CSECS,  proceed  to  "A-PCHK" 

TDEC  = TIMENOW  + K:TIMEDELT 
Proceed  to  "TESTLOOP" 

QPRET  = return  address 

If  FLGWRDIO  bit  14  (INTFLAG)  or  7 (REINTFLG)  = 1: 

Put  present  job  to  sleep 

When  awakened,  job  will  resume  at  second  step  of  "INTSTALL" 
when  jobs  of  higher  priority  have  been  completed 

Switch  FLGWRDIO  bit  14  (INTFLAG)  to  1 

Return  via  QPRET 

If  FLGWRDIO  bit  7 (REINTFLG)  = 1:  (means  restarted) 

TBASE2  = QPRET  of  present  job 

Set  restart  group  2 to  resume  computations  at 
next  step 

QPRET  (of  present  job)  = TBASE2 

If  FLGWRDIO  bit  7 (REINTFLG)  = 0;  (i.e.  if  got  a restart) 

Return  via  QPRET  (of  present  job) 
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INTWAKEl  Awaken  job  or  jobs  put  to  sleep  in  "INTSTALL" 


Switch  FLaffiDlO  bits  14  (INTFLAG)  and  7 (REINTFLG)  to  0 

Return  via  QPRET  (of  present  job) 

IMTWAKEU  Release  interrupt  inhibit 

If  UPSVFLAG  = 0:  (UPSVFLAG  is  the  third  component  of 

of  a state  vector  update) 

Perform  "INTWAKEl" 

Return 
RCV  = PECT 
VCV  = VRECT 
TDELTAV  = 0 
TNUV  = 0 
TO  = 0 
XPREV  = 0 
i = 0 

Switch  FLAGWRDO  bit  12  (MOONFLAG)  to  0 
If  I UPSVFLAG  I = 2: 
i = 2 

Switch  FLAGWRDO  bit  12  (MOONFLAG)  to  1 
If  UPSVFLAG>0: 

Perform  "MOVEACSM" 

Switch  FLAGWRD8  bit  12  (CMOONFLG)  to  1 
Perform  "SVDWNl" 
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(If  IIPSVFLAG>0;) 

Set  FLAGWRD8  bit  12  (CMOONFLG)  = FLAGWRDO  bit  12 

(MOONFLAG) 

Switch  FLAGWRD3  bit  6 (ORBWFLAG)  to  0 
If  UPSVFLAG<0: 

Perform  "MOVEALEM" 

Switch  FLAGWRD8  bit  11  (LMOONFLG)  to  1 


Perform  "SVDWN2" 

Set  FLAGWRD8  bit  11  (LMOONFLG)  = FLAGWRDO  bit  12 

(MOONFLAG) 

Switch  ■FLAGWRD5  bit  1 (RENDWFLG)  to  0 
UPSVFLAG  = 0 


Perform  "INTWAKEl" 


Return 

Switch  FLAGWRDl  bit  5 (TRACKFLG)  to  1 


DELVOV  = DELVLVC 

Proceed  to  "GOFLASH"  with  TS  = K:V06N33  (TIG) 

([f  terminate,  proceed  to  "ENDP76"J  if  proceed,  continue 
at  next  step;  if  other  response,  repeat  this  step.) 

Proceed  to  "GOFLASH"  with  TS  = K:V06n84  ( DELVOV) 

(if  terminate,  proceed  to  "ENDP76"5  if  proceed,  continue 
at  next  step;  if  other  response,  repeat  this  step.) 

Switch  FLAGWRU2  bit  1 (NUDUFLaG;  to  1 


TDECl  = TIG 
Perform  "CSMPREC" 


TSv  = 


unit  (unit  RATT  * VATT)  * unit^T 
unit  (V ATT  * unitMTT) 

- unitMTT 


T 


MLVOV  + VATT 


Perform  "INTSTALL" 
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Set  FLAGWRDO  bit  12  (MOONFLAG)  = FLAGWRDS  bit  12  (CMOONFLG) 
VCV  = TSv  (scaling  controlled  by  MOONFLAG) 

RCV  = MTT 
TET  = TIG 

Switch  FLAGWRD3  bit  4 (INTYPFLG)  to  0 
TDECl  = TETLEM 
Perform  "INTEGRVS" 

Perform  "INTSTALL" 

^CT  = MTT 
RCV  = RATT 
TET  = tat 
VRECT  = VATT 
VCV  = VATT 
TDELTAV  = 0 
TNUV  = 0 
TO  = 0 
XPREV  = 0 

Switch  FLGWRDIO  bit  7 (REINTFLG)  to  1 
Perform  "MOVEACSM" 

Switch  FLAGWRD8  bit  12  (CMOONFLG)  to  1 
Perform  "SVDWNl" 

Set  FLAGWRDS  bit  12  (CMOONFLG)  = FLAGWRDO  bit  12  (MOONFLAG) 
Perform  "INTWAKEl" 

Switch  FLAGWRD2  bit  1 (NODOFLAG)  to  0 


ORBI  - 24 


ENDP76  TRKMKCNT  = 0 


Proceed  to  "GOTOPOOH" 
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Quantities  In  Computations 


A5:  Double  precision  intermediate  quantity  used  in  calculation  of 
XKEPNEW,  scaled  B7  (earth)  or  B5  (moon)  in  units  of  meters  per 
centlsecond. 

ALPHAM:  Double  precision  magnitude  of  A^HAV,  with  identical  scaling 
and  units. 

ALPHAV:  Working  storage  for  double  precision  position  deviation  vector, 
scaled  B22  (earth)  or  B18  (moon)  in  units  of  meters,  or  for  total 
position  vector,  scaled  B29  (earth)  or  B27  (moon)  in  units  of  meters. 
Actually,  ^PHAV  is  changed  to  a unit  vector,  but  this  was  hot  shown 
for  ease  in  presentation. 

BETAM:  Double  precision  magnitude  of  BETAV  or  magnitude  of  with 

variable  scaling  and  units. 

BETAV:  Double  precision  total  position  vector  of  the  spacecraft  in 

relation  to  the  earth,  moon  or  sun,  expressed  in  reference  coordinates 
with  variable  scaling  in  units  of  meters. 

GOS0:  Double  precision  argument  for  "OBLATE"  equations,  scaled  B1  and 
unitless.  Equivalent  to  the  cosine  of  the  angle  between  the  unit 
polar  vector  (earth  or  moon)  and  the  total  position  vector  (earth  or 
moon  centered  coordinates). 

DdBETA:  Double  precision  ratio  of  D divided  by  BETAM  where  D is  the 
magnitude  of  the  vector  D = B^ETAV  - ^PHAV;  scaled  B1  and  unitless. 

DELVLVC:  Double  precision  value  of  velocity  increment  in  local  vertical 
coordinates,  scale  factor  B7,  units  meters  per  centlsecond. 

DELVOV:  Double  precision,  instantaneous  delta-velocity  vector  to  be 
added  (at  time  specified  in  TIG)  to  the  permanent  GSM  state  vector 
maintained  in  the  LGC  to  reflect  a burn  performed  by  the  GSM;  scaled 
B7  in  units  of  meters  per  centlsecond  and  expressed  in  local  vertical 
coordinates  of  the  GSM  at  TIG. 

DIFEQCNT:  Single  precision  cell  used  for  program  control  purposes,  having 
values  of  0,  -12  and  -24  at  the  beginning,  middle  and  end  of  each 
integration  step,  scaled  B14  and  unitless. 

DTd2:  Double  precision  time  increment  for  precision  integration  corres- 
ponding to  half  of  one  integration  time-step,  scaled  B19  in  units  of 
centiseconds. 

E32B33RMt  Aj  tiigipr  f»geg.i  ari  on.':  earasBiblBf'memdidTsrr-  Egn8tan,t^.  seal®,  factor  B80, 
giving  information  on  the  term  for  the  liinar  gravity  model.  The 

cell  contains  x 1.5  x r„  x mu  . The  value  corresponds  to 

^ in  q ftn 

C,,  X 1.5  X (1.73809  x 10°)^  x 0.4902778  x 10^  x 2"°"". 

31  O^HT  - -.1. 
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E3J22R2M;  Single  precision  erasable  memory  constant,  scale  factor  B58, 
giving  information  on  the  "term  for  the  lunar  gravity  model.  The 

cell  contains  x 3 x r,,^  x mu  . The  value  corresponds  to 
22  ^ . M m Q 

J22  X 3 X (1.73809  X 10  ) x 0.4902778  x 10^  x 2"^°. 

EGRESS:  Single  precision  octal  return  address  storage  cell. 

Fq:  Special  function  used  in  Encke's  method  of  integration  to  achieve 
greater  accuracy,  double  precision,  scaled  B1 . See  pages  11  and  190 
in  Astronautical  Guidance  by  R.  H.  Battin  (McGraw-Hill,  1964). 

PV:  Double  precision  distiorblng  acceleration  vector,  scaled  B-I6  (earth) 
or  B-20  (moon)  in  tmits  of  meters  per  centisecond  squared.  See  pages 
189-191  of  Astronautical  Guidance  by  R.  H.  Battin  (McGraw-Hill,  1964) 

H:  Double  precision  time  since  beginning  of  Integration  step,  scaled 
BI9  in  units  of  centiseconds . 

i:  Single  precision  index  scaled  BI4. 

IRETURN,  IRE TURN 1 r Single  precision  octal  return  address  storage  cells, 
j:  Single  precision  index  scaled  BI4. 

KEPRTNr  See  CONG  section. 

-28 

K;3CSECS;  Double  precision  constant  stored  as  3 x 2"'  , scaled  B28  in 

units  of  centiseconds.  Equation  value:  3. 


-20 


scaled 


K:DTd2MAX:  Double  precision  constant  stored  as  4 x lO'^  x 2' 

BI9  in  units  of  centiseconds.  Equation  value:  200,000. 

-20 

K:DTd2MIN:  Double  precision  constant  stored  as  3 x 2 , scaled  B19 

in  units  of  centiseconds.  Equation  value:  1.5. 

21  -72 

K:j2Q:  Double  precision  constant  stored  as  1.75501139  x 10  ^ x 2 , 

program  notation  "J2REQSQ",  scaled  B72  in  units  of2l[ieters^/centi- 
seconds  squared .. Equation  value:  1.35501139  x 10  . 2(Equivalent 

to  3.986032  X 10  X (6.378165  x 10  ) x 0.10823  x 10  .) 

1 n —An 

K:j22:  Double  precision  constant  stored  as  3.067493316  x 10  x 2 , 

program  notation  ’'J2REQSQ-2"  , scaled  B60  in  unit^  of  meters^/centl- 
second  squared.  Equation  value:  3.063493316  x 10  . (Equivalent 

to  0.4902778  X 10^  X (1.738090  X 10°)  x 0.207108  x 10"-^.) 

L,  —27 

K:j3j2Q:  Double  precision  constant  stored  as  -1.355426363  x 10^  x 2 , 

pro^am  notation  ’'2J3RE/J2",  scaled  B27  in  units  of  meters.  Equation 
value:  -1.355426363  x 10^.  (Equivalent  to  -0.23  x 10  x 6.378165  x 
lOVO.  10823  X 10  .) 
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5 -25 

Double  precision  constant  stored  as  -1.7623602  x 10  x 2 
, program' notation  *’2J3RE/J2-2?  , scaledeB25' in  units  of  meters. 
Equation'' -^lue i -1  ;76236Q2y5X'10^.  _■  .■  (Equivalent  to 
(■-2,q.'i5«!Jie5yo.207108’x  73809  X 10--) 

K:j4j3o;  Double  precision  constant  stored  as  4.991607391  x 10  2 , 

program  notation  "J4REQ/J3,"  scaled  B26  in  units  of  meters. 

Equation  value;  4.991607391  x 10°.  (Equivalent  to  -0.18  x 10“^  x 
6.378165  X lOV-0.23  x 10-5.) 

K:j4j32!  Double  precision  constant  stored  as  0,  program  notation 
" J4REQ/J3-2 ."  Equation  value;  0. 

K;MUq;  Double  precision  constant  stored  as  3.986032  x 10^*^  2~'^^ , 
program  notation  "MUEARTH",  scaled  B36  in  units  of  meters  cubed/ 
centlsecond  squared.  Equation  value;  3.986032  x 10^*^. 

KrMU2:  Double  precision  constant  stored  as  4.9027780  x 10^  , 

program  notation  "MUM",  scaled  B30  in  units  of  meters  cubed/centl- 
second  squared.  Equation  value;  4.9027780  x 10°. 

— 5i^ 

K;MU, ; Double  precision  constant  stored  as  1.32715445  x 10  2 , 

program  notation  "MUEARTH-4,"  scaled  B54  in  units  of  meters  cubed/ 
centlsecond  squared.  Equation  value;  1.32715445  x lO-*-®. 

—8  23 

K;0MEO400N;  Double  precision  constant  stored  as  2.66169947  x 10  2 , 

scaled  B-23  in  units  of  radians  per  centlsecond.  Equation  value; 
2.66169947  x 10"^. 

-2 

K;p3D;  Double  precision  constant  stored  as  0.3  x 2 , scaled  B2  and 

unltless.  Equation  value;  0.3. 

—29 

K;RDq:  Double  precision  constant  stored  as  80,467,200  x 2 , program 

notation  "RDE,"  scaled  B29  in  units  of  meters.  Equation  value; 
80,467,200. 

-27 

K;RD2;  Double  precision  constant  stored  as  16,093,440  x 2 , program 

notation  "RDM,"  scaled  B27  in  units  of  meters.  Equation  value; 
16,093,440. 

K;RECRATI0;  Double  precision  constant  stored  as  0.01,  scaled  BO  and 
unltless.  Equation  value;  0.01. 

Krrectr;  Double  precision  constant  stored  as  0.75,  program  notation 

"3/4,"  scaled  B22  (earth)  or  B18  (moon)  in  units  of  meters.  Equation 
value;  3,145,728  (earth)  or  196,608  (moon). 
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K:rectv;  Double  precision  constant  stored  as  0.75,  program  notation 
"3/4,"  scaled  B3  (earth)  or  B-1  (moon)  in  units  of  meters  per  centi- 
second.  Equation  value;  6 (earth)  or  0.375  (moon). 

—28 

KiRMq:  Double  precision  constant  stored  as  1 - 2~  , program  notation 

"RME,"  scaled  B29  in  units  of  meters.  Equation  value;  536,870,910. 

K;RM2;  Double  precision  constant  stored  as  1 - 2“^^,  program  notation 
"RMM, " scaled  B27  in  units  of  meters.  Equation  value;  134,217,727.5. 

-29 

K;RSPHERE;  Double  precision  constant  stored  as  64,373,760  x 2 , scaled 

B29  in  units  of  meters.  Equation  value;  64,373,760. 

—28 

K;TIMEDELT;  Double  precision  constant  stored  as  2000  x 2 , scaled  B28 

in  units  of  centiseconds.  Equation  value;  2000>.. 

I K;UEITX,  K;OTITZ;  See  SEW  section. 


M504:  Double  precision  libration  vector  of  the  moon,  scaled  BO  in 
units  of  radians,  and  expressed  in  moon-centered,  moon-fixed  coordi- 
nates. 


MODREG;  Program  number  from  DSKY;  see  DATA  section. 

I^MOONMA"^  ; See  COOR  section. 

MUDEX;  See  CONG  section. 

n;  Single  precision  index  scaled  B14  and  used  to  indicate  the  column 
of  the  W-matrix  that  is  being  integrated. 

P2',  P3',  P4',  P5':  Double  precision  Legendre  polynomial,  derivatives , 
scaled  B6,  B5,  B7  and  BIO,  respectively. 

PBODY;  Single  precision  index  used  to  distinguish  between  constants 
pertaining  to  the  earth  (O)  and  the  moon  (2)*  scaled  B14. 


PHIV;  Double  precision  intermediate  storage  for  the  disturbing  accelera- 
tion vector,  scaled  B-13  (earth)  or  B-17  (moon)  in  units  of  meters 
per  centisecond  squared.  Used  to  implement  the  second-order  difference 
equation, 

^t+h  = St  + h + I (2  a^^^  + a^^ 

which  is  valid  to  the  fourth  degree.  (St+h  position  deviation 

vector  at  time  t + h,  etc.) 
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PIPTIME,  PIPTIMEl:  See  SERV  section. 

PSIV;  Double  precision  vector  storage  for  intermediate  values  of  dis- 
turbing acceleration,  scaled  B-13  (earth)  or  B-17  (moon)  in  units 
of  meters  per  centisecond  squared.  Used  to  implement  the  first-order 
difference  equation, 

^+h  = + I (St+h  + * + -at' 

which  is  valid  to  the  fourth  degree,  (a^^^  is  the  second  derivative 
of  the  position  deviation  at  time  t + •^,  etc.) 

q:  Double  precision  argument  for  Fq,  scaled  B2  and  unitless. 

Q:  Double  precision  intermediate  quantity  used  in  calculating  an  initial 
guess  for  the  universal  conic  variable;  scaling  varies  downward  from 
BO  (earth)  and  B2  (moon);  units  of  centiseconds  per  meter. 

QPRET:  Single  precision  octal  return  address  associated  with  a particular 
job,  saved  when  a job  is  put  to  sleep;  actually  one  of  several  mutually 
exclusive  cells,  each  addressed  only  within  a particular  job.  "QPRET" 
for  one  job  is  independent  of  and  not  affected  by  the  address  stored 
in  "QPRET"  by  another  job.  See  MA.TX  section. 

MTT;  Double  precision  position  vector  output  from  orbital  integration, 
valid  at  time  TAT.  scaled  B29  in  units  of  meters.  (Called  MTTl  and 
scaled  B29  (earth)  or  B27  (moon)  for  output  to  routines  desiring 
segregated  scaling. J" 

RCV : Double  precision  conic  portion  of  the  position  vector  at  TET,  com- 
puted from  the  osculating  conic  at  rectification  (TET  - TC) , scaled 
B29  (earth)  or  B27  (moon)  in. unit^  of  meters. 

RCVCSM,  RCVLEM;  The  permanent  state  vectors  for  the  CSM  and  LM  contain 
six  double  precision  vectors  and  three  double  precision  scalars  - a 
total  of  twenty-one  double  precision  con5)onents.  They  are  listed 
below  along  with  the  name  of  the  equivalent  working  variable  used 
in  precision  integration  of  each. 

CSM  LM 

RCVCSM  RCVLEM  RCV 

VCVCSM  VCVLEM  VCV 

TCCSM  TCLEM  TC 
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GSM 

LM 

DELTAGSM 

DELTALEM 

TDELTAV 

NUVGSM 

NUVLEM 

TNUV 

TETGSM 

TETLEM 

TET 

PEGTGSM 

RREGTLEM 

RREGT 

VREGTGSM 

VREGTLEM 

VREGT 

XKEPGSM 

XICEjPXiEiM 

XPREV 

RHO:  Ratio  of  position  deviation  to  total  distance  from  the  primary 
body,  or  ratio  of  spacecraft  radius  to  radius  of  secondary  body 
(moon  or  sun,  earth  or  sun),  scaled  B1  and  unitless. 

^S:  See  CONG  section. 

M,  RNl;  See  SERV  section. 

ROOTMU:  See  CONG  sectioi . 

RPQV:  Double  precision  position  vector  of  secondary  body  with  respect 
to  the  primary  body,  scaled  B29  in  units  of  meters;  expressed  in 
reference  coordinates. 

^SV;  Double  precision  position  vector  of  the  sun  with  respect  to  the 
primary  body,  scaled  B38  in  units  of  meters  and  expressed  in  refer- 
ence coordinates. 

RQW;  Double  precision  spacecraft  position  vector  with  respect  to  the 
secondary  body,  scaled  B29  in  units  of  meters;  expressed  in  refer- 
ence coordinates. 

RREGT:  Double  precision  total  position  vector  at  the  last  rectification, 
scaled  B29  (earth)  or  B27  (moon)  in  units  of  meters.  See  GONG  section. 

RTXl,  RTX2:  Single  precision  values  of  index  registers  XI  and  X2  re- 
spectively at  the  end  of  integration  to  identify  the  nature  of  the 
origin  of  the  state  vector. 

TAT:  Double  precision  state  vector  time-tag  output  from  orbital  inte- 
gration, scaled  B28  in  units  of  centiseconds . 

TAU:  See  GONG  section. 

TBASE2:  Single  precision  cell  normally  used  to  retain  time  base  in- 
formation for  restart  group  2,  for  waitlist  restarts.  It  is  used 
in  "INTWAKE"  to  retain  the  value  of  QPRET  for  restart  purposes. 

TG;  See  GONG  section. 
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TDEC:  Double  precision  time  at  the  end  of  the  desired  integration 
interval,  scaled  B28  in  units  of  centiseconds . 

TDECl:  Double  precision  storage  for  TDEC  in  individual  job  registers 
so  that  several  jobs  can  maintain  different  values  of  TDEC 
simultaneously.  (See  description  of  QPRET). 

TDELTAV:  Double  precision  devlation-from-conic-posltion  vector,  scaled 
B22  (earth)  or  B18  (moon)  in  units  of  meters. 

TET:  Double  precision  time  associated  with  the  most  recently  computed 
state  vector,  scaled  B28  in  units  of  centiseconds. 

TETCSM:  See  description  of  KVCSM. 

TIG:  See  BURN  section. 

TIMENOW:  Current  time,  B28,  centiseconds.  See  EXVB  section. 

TNUV:  Double  precision  devlation-from-conlc-velocity  vector,  scaled 
B3  (earth)  or  B-1  (moon)  in  units  of  meters  per  centlsecond. 

TRKMKCNT:  See  RNAV  section. 

T^Ssun:  Double  precision  vector  contents  of  the  MPAC  when  return  from 
"LSPOS",  representing  the  unit  position  vector  of  the  sun,  scaled 
B1  and  unitless.  See  OOOR  section.  (it  should  be  noted  that  TSsun 
is  a unit  vector  scaled  B1  but  ^QV,  into  which  it  is  stored,  is 
scaled  B29.  However,  the  affected  section  should  not  be  entered  in 
LUMINART) . 

UPSVFLAG:  Single  precision  flag  loaded  with  a state  vector  update 
(address  of  UPsirFLAG  is  just  before  that  of  ERECT)  to  indicate 
whether  update  is  for  LM  state  or  CSM  state  and  whether  it  is  in 

moon-centered  or  earth-centered  coordinates,  scaled  B14  and 
unitless.  See  ORBI  - 22. 

URPV:  Double  precision  position  vector  in  moon-centered,  moon- 
fixed  coordinates,  scaled  B1  and  unitless. 

UX:  Double  precision  lunar  X-axis  expressed  in  reference  coordinates 
for  the  oblateness  calculations,  scaled  B1  and  unitless. 

UZ:  Double  precision  polar  vector  for  earth  or  moon  expressed  in 
reference  coordinates  for  the  oblateness  calculations,  scaled  B1 
and  unitless. 

VATT:  Double  precision  velocity  vector  output  from  orbital  integration, 
valid  at  time  TAT,  scaled  B7  in  units  of  meters  per  centlsecond. 

(Called  VATTl  and  scaled  B7  (earth)  or  B5  (moon)  for  output  to  routines 
desiring  segregated  scaling. ) 
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VCV;  Double  precision  conic  portion  of  the  velocity  vector  at  TET, 
coii5)uted  from  the  osculating  conic  at  rectification  (TET  - TC), 
scaled  B7  (earth)  or  B5  (moon)  in  units  of  meters  per  centisecond. 

TOCTABj^:  Ten^jorary  storage  for  total  position  vectors  with  respect  to 
primary  and  one  secondary  body  at  the  beginning,  middle  and  end  of 
each  integration  time-step  for  use  in  W-matrix  propagation. 

VN,  VNl:  See  SERV  section. 

VEECT;  Double  precision  total  velocity  vector  at  last  rectification 
scaled  B7  (earth)  or  B5  (moon)  in  units  of  meters  per  centisecond. 

j^wj:  See  RNAV  section. 

XI , X2:  Index  registers  one  (1 ) and  two  (2)  respectively. 

XKEPNEW,  XPREV;  See  GONG  section. 

Y7:  Double  precision  position  deviation  vector  scaled  B22  (earth)  or 
Bl8  (moon)  in  units  of  meters.  (State  vector  or  W-matrix.) 

ZV;  Double  precision  velocity  deviation  vector  scaled  B3  (earth)  or 
B-1  (moon)  in  units  of  meters  per  centisecond.  (State  vector  or 
W-matrix. ) 
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Program  Service  Routines 


SLAFl  Inhibit  interrupts 
Perform  "STARTSUB" 


Switch  DSPTAB^^  to  100  000  000  xOx  000^  (INTR) 
ERCOUNT  = 0 (TEST) 
FAILREG^  = 0 for  i = 0,  1,  2 (PGSR) 
REDOCTR  = 0 (PGSR) 
DSRUPTSW  = -5120  (iNTR) 


DOFS TART  Switch  channel  11  to  20000^  (bit  14  is  engine  off) 

8 

THRUST  = -0 

DOFSTRTl  RCSFLAGS  = 00004g 
ABDELV  = 0 

NVSAVE  and  DSPFLG^  = 0 

CH5MASK,  CH6MASK,  and  PVALVTEST  = 0 

ERESTORE  = 0 

SMODE  = +0 

DNLSTCOD  = 0 

AGSWORD  = 0 

UPSVFLAG  = 0 


(DESC) 

(DAPA) 

(SERV) 

(PGSR) 

(DAPA) 

(TEST) 

(TEST) 

(TELE) 

(EXVB) 

(ORBI) 


Switch  channels  5»  6,  12,  13,  and  14  to  OOOOOg 

If  DSPTAB-j bit  4 (no  attitude)  and  bit  6 (gimbal  lock 
warning)  both  = 1; 

Switch  channel  12  tb  00050g 

Make  all  restart  groups  inactive 


MODREG  = -0 

IM0DES30  = 37411q  (IMUC) 

DB  = K:MAXDB  (DAPB) 

RATEINDX  = 2 (DAPB) 

DAPBOOLS  = 213223 
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EBANK  = K:EBANK6 


STARTS UB 


STARTSBl 


STIKSENS  = K-.STIKSTRT  (DAPA) 
RATEDB  = K: RATES TRT  (DAP A) 
HIASCENT  = KzFULLAPS  (DAPB) 
DKTRAP  = K:770010CT  (DAPA) 
LMTRAP  = K:770010CT  (DAPA) 
DKKAOSN  and  LMKAOSN  = 60  (DAPA) 
LMOMEGAN  = 0 (DAPA) 
DKOMEGAN  = 10  (DAPA) 
DKDB  = 00200g  (DAPB) 
IMODES33  = I6040g  (INTR) 


Switch  FLAGWRD^  to  OOOOOg  for  1 = 0,  1,  2,  4,  5,  6,  9 
FLAGWRD7  = OOlOOg 

FLAGWRD8  = 000  xxO  0x0  000  000^  (leave  bit  12  (CMOONFLG),  bit 
11  (LMOONFLG),  and  bit  8 (SURFFLAG)  alone) 

FLAGWRD3  = OOx  010  000  000  000^  (leave  bit  13  (REFSMFLG)  alone) 

FLGWRDIO  = OOx  000  000  000  000^  (leave  bit  13  (APSFLAG)  alone) 

FLGWRDll  = 40000g  (bit  15  is  IRBYPASS) 

Proceed  to  "DUMMYJB2" 

DNTMGOTO  = ''DNPHASEl"  (TELE) 

RADMODES  = 00102g  + bit  6 of  channel  33  (LR  pos)  (RADR) 

Set  TIME3  to  cause  program  interrupt  #3  in  10  milliseconds 
Set  TIME4  to  cause  program  interrupt  #4  in  30  milliseconds 
Set  TIME5  to  cause  program  interrupt  #2  in  40  milliseconds 
EBANK  = K:EBANK6 

Switch  RCSFLAGS  bit  13  to  0 (DAPA) 

T6NEXTTMq  = 37777g  (disable  TIME6  clock)  (DAPA) 
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STARTSB2 


Switch  bit  15  of  channel  13  to  0 

NXT6AXIS  = 0 (DAPA) 

NEXTP  = OOOOOg  (DAPA) 

Switch  DAPBOOLS  bit  3 (ACCSOKAY)  to  0 (DAPA) 

T5ADR=  "DAPIDLER"  (DAPA) 

If  FLGWRDll  bit  15  (IRBYPASS)  = 1,  proceed  to  "STARTSB2" 

If  STILBADH  >0,  skip  next  line  (SERV) 

STILBADH  = STILBADH  +1 

If  STIIBADV  >0,  proceed  to  "STARTSB2"  (SERV) 


STIIBADV  = STIIBADV  + 1 

Switch  channel  11  to  Oxx  000  000  000  OOZ2 

(leare  engine  on/off  and  ISS  warning  alone) 

Switbh  FLAGWRD3  bit  9 (READRFLG)  to  0 

If  FLAGWRD3  bit  11  (N0R29FLG)  / 0; 

RADMODES  = zOO  zOO  zzz  m zzO^ 

Skip  nezt  line 

RADMODES  = zOO  zOz  zzz  zzz  ^ncOg 

Switch  channel  12  to  OzO  zzz  zOO  zzz  000^ 

Switch  FLAGWRD5  bit  4 (NORRMON)  and  bit  11  (R77FIAG)  to  0 


Switch  channel  13  to  zzz  100  OOz  zzO  OOO2 
Switch  channel  14  to  000  000  000  zOO  OOOg 
EBAKK  = K;STARTEB 

Set  all  8 waitlist  times  to  81.93  seconds  (MATX) 
Set  all  9 waitlist  task  addresses  to  "SVCT3"  (MATX) 
Make  all  8 job  register  sets  available  (MATX) 
DSRUPTSW  = -0  (INTR) 
NEWJOB  = -0  (MATX) 
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Make  all  5 VAC  areas  available 

DSPTAB^  = -04000g  for  i = 0-10 

DELAYLOC^  = 0 for  i = 0,  1,  2 

RISAVE  = 0 

INLINK  = OOOOOg 

DSPCNT  = 0 

CADRSTOR  = +0 

REQRET  = +0 

CLPASS  = 0 

DSPLOCK  = 0 

MONSAVE  and  MONSAVEl  = 0 

VERBREG  and  NOUNREG  = 0 

DSPLIST  = +0 

MARKSTAT  = +0 

EXTVBACT  = 0 

IMUCADR  = +0 

OPTGADR  = +0 

RADCADR  = +0 

ATTCADR  = +0 

LGIRO  = +0 

FLAGWRD4  = 00000.  (kill  display 

o 

NOUT  = 11 
SAMPLIM  = -1 

IM0DES33  = 001  110  000  xOO  OOO2 


(MATX) 

(negative  for  output)  (DSKY) 

(MATX) 

(DINT) 

(TELE) 

(INTR) 

(DINT) 

(DSKY) 

(DSKY) 

(DSKY) 

(DATA) 

(DATA) 

(DINT) 

(ALIN) 

(EXVB) 

(IMUC) 

(ALIN) 

(RADR) 

(ATTM) 

(IMUC) 

interface  routine  action) 

(INTR) 

(RADR) 


(set  PIPA  good,  downlink 
good,  uplink  good  bitsj  leave  DAP  disable  bit  alone) 
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SELFRET  = "SELFCHK" 


(TEST) 

(DSKY) 


I 

'll 


DSPCOUNT  =-19 
Return 

If  IM0DES30  bit  6 = 1;  (IMU  caged) 

Perform  "ALARM"  with  TS  = 01520g 
Proceed  to  "V37BAD" 

If  MMNUMBER  = 70,  proceed  to  '’P70" 

If  MMNUMBER  = 71,  proceed  to  "P71" 

If  MMNUMBER  = 0: 

If  FLAGWRD7  bit  6 (V37FLAG)  = 0,  proceed  to  "CANV37" 

(Otheivise,  "SERVICER"  is  running;  cause  it  to  exit  to 
"CANV37") 

Switch  FUGWRD7  bit  5 (AVEGFLAC)  to  0 
End  job 

If  FLAGWRD2  bit  1 (NODOFLAG)  = 1: 

Perform  "ALARM"  with  TS  = 015 20g 
Proceed  to  "V37BAD" 

If  MMNUMBER  ^ low  7 bits  of  K;PREMM1^  for  some  1 from  0 to  24 
Switch  bit  7 of  channel  11  to  1 (operator  error) 
Proceed  to  "V37BAD" 

MINDEX  = i for  which  MMNUMBER  = low  7 bits  of  K;PREMM1^ 

If  FLAGWRD7  bit  6 (V37FLAG)  ^ 0,  proceed  to  "CANV37" 

Switch  FLAGWRD7  bit  5 (AVEGFLAG)  to  0 

End  job 

Perform  "RELDSP" 

Proceed  to  "PINBRNCH"  (reinstitute  any  interrupted  display) 
SUPERBNK  = 0 
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POOH 


SEUDOPOO 


Perform  "INTSTALL"  (wait  imtil  Integration  is  free) 

Switch  FLAGWRD5  bit  6 (3AXISFLG)  to  0 
Switch  FLAGWRD3  bit  15  (POOHFLAG)  to  0 
Switch  FLGWRDll  to  40000g 

Switch  FLAGWRD3  bits  9 (R04FLAG)  and  14  (GLOKFAIL)  to  0 
Switch  FLAGWRD6  bit  8 (MUNFLAG)  to  0 
Switch  FLAGWRD9  bit  7 (ABTTGFLG)  to  0 
Switch  DAPBOOLS  bit  9 (XOVINHIB)  to  0 
If  MMNUMBER  =0,  proceed  to  "POOH" 

If  FUGWRDO  bit  7 (RNDVZFLG)  and  9 (P25FLAG)  both  = 0; 

Switch  FLAGWRDO  bit  8 (MJSE)  to  0 
DBLSTCOD  = 

Inhibit  interrupts 
Proceed  to  "SEUDOPOO" 

Perform  "RELDSP" 

Inhibit  interrupts 

Switch  RADMODES  bits  10  (DESIGFLG)  and  15  (CDESFLAG)  to  0 

Switch  bit  2 of  channel  12  to  0 (disable  RR  Error  counter) 

Switch  FLAGWRD2  bit  1 (NODOFLAG)  to  0 

Clear  P20,  P25  restart  logic  and  cause  "G0PR0G3"  to 
establish  "STATINTl" 

Switch  FLAGWRDO  bits  7 (RNDVZFLG),  8 (IMUSE)  and  9 (P25FLAG)  to 
DNLSTCOD  = 0 
AGSWORD  = DNLSTCOD 
Perform  "ENGINOFl" 


( pr05 ) 

0 


Perform  "ALLCOAST" 


RESET22 


DSPFLG2  = 77657g 

Switch  FLAGWRDl  bit  5 (TRACKFLG)  and  7 (UPDATFLG)  to  0 
If  MMNUMBER  = 0; 

Maintain  "STATINTl"  restart  logic  and  clear  allbther 

MODREG  = 0 

Proceed  to  "G0PR0G2" 

If  MODREG  or  MMNDMBER  = 22; 

Switch  FLAGWRDO  bit  7 (RNDVZFLG),  bit  8 (IMUSE)  and  bit 
9 (P25FLAG)  to  0 

Switch  RADMODES  bit  10  (DESIGFLG)  and  15  (CDESFLAG)  to  0 
Switch  channel  12  bit  2 to  0 
Clear  P20,  P25  restart  logic 
Cause  "G0PR0G3"  to  call  "V37XEQ" 

Proceed  to  ’'G0PR0G2" 

If  MMNUMBER  i-  20  or  25: 

If  FLAGWRDO  bit  7 (RNDVZFLG)  or  bit  9 (P25FLAG)  =1: 

Proceed  to  5th  step  of  "RESET22” 

Proceed  to  "RESET22" 

If  MODREG  = 20  or  25: 

Proceed  to  4'th  step  of  "RESET22" 

If  MMNUMBER  = 20  and  FLAGWRDO  bit  7 (RNDVZFLG)  = 1 and  bit  9 
(P25FLAG)  = 0,  or  if  MMNUMBER  = 25  and  FLAGWRDO  bit  9 (P25FLAG) 
= 1 and  bit  7 (RNDVZFLG)  = 0: 

Switch  FLAGWRDl  bit  5 (TRACKFLG)  and  7 (UPDATFLG)  to  1 

Maintain  P20,  P25  restart  logic  and  clear  all  other 

MODREG  = MMNUMBER 

Proceed  to  ''G0PR0G2" 

Proceed  to  4th  step  of  "RESET22'' 
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V37XSQ 


Inhibit  interrupts 


VBRQEXEC 


VBRQWAIT 


MMTEMP  = 

ii  = bits  15-11  of  MMTEMP  (priority) 

(EBANK  information  in  (prii) 
bits  8-10  of  MMTEMP) 

(pr30) 

Perform  "RELDSP" 

Release  interrupt  inhibit 


BASETEMP  = KrFCADRMMlj^jjjpg^ 
Establish  job  specified  in  BASETEMP 
MODREG  = MMNBMBER 
Establish  "DSPMMJOB" 


End  job 

(Entered  from  "VERBFAN”  on  verb  30;  DSPTEMl  must  be  loaded 

tp 

with  three  single  precision  components  as  follows: 

DSPTEMIq  Opp  ppp  000  000  OOv 

DSPTEMl^  000  sss  sss  sss  sss 

DSPTEMl^  fff  ffO  OOx  xxO  eee 

where  "p"  represents  one  of  the  bits  of  the  five-bit  priority 
to  be  assigned  to  the  job;  "v"  is  a single  binary  bit  indicating 
whether  the  job  is  to  be  assigned  working  storage  (l)  or  not  (O); 
"s"  is  one  of  the  12  bits  of  the  "S-register"  portion  of  the 
address;  "f"  is  one  of  the  bits  of  the  five-bit  fixed-memory- 
bank  code;  "x"  is  one  of  the  bits  in  the  three-bit  fixed-bank- 
extension  code;  "e"  is  one  of  the  bits  in  the  three-bit  erasable 
memory-bank  code;  and  ”0"  is  a binary  zero.) 

Perform  "RELDSP" 

Establish  job  whose  starting  address  is  contained  in  2CADR  form 
in  DSPTEMl^  and  DSPTEMI2,  with  priority  and  storage  allocation 

according  to  the  information  in  DSPTEMl^.  ("FINDVAC"  or  "NOVAC”) 
End  job 

(Entered  from  "VERBFAN"  on  verb  31;  DSPTEMl^^  must  be  preloaded 
with  three  single  precision  components  as  follows: 


PGSR  - 8 


DSPTEMIq  time  in  centiseconds  scaled  B14 

DSPTEMl^  000  33S  sss  sss  sss 

DSPTEKL^  ffO  OQx  xxO  eee 

where  ”s,  f,  x"  and  "e"  have  the  meanings  described  above.) 
Perform  "RELDSP" 

Call  the  task  whose  starting  address  is  contained  in  2CADR  form 
in  DSPTEMl^  and  DSPTEMl^,  in  DSPTEMIq  centiseconds.  ("WAITLIST") 

End  job 

GOPROG  REDOCTR  = REDOCTR  + 1 (hardware  restart) 

RSBBQ  = address  of  step  performed  before  restart  occurred 

If  bit  4 of  DSPTAB^^  = 1:  (no  attitude  lamp  on) 

Switch  bits  4 and  6 of  channel  12  to  1 

(coarse  align  discrete,  ICDTJ  Error  Counter  enable) 

Perform  "LIGHTSET" 

If  bits  15-11  of  ERESTORE  0: 

Perform  "STARTSUB" 

Proceed  to  "DOFSTRTl" 

If  ERESTORE  0; 

If  ERESTORE  SKEEP7: 

Perform  "STARTSUB" 

Proceed  to  "DOFSTRTl" 

EBANK  = bits  11-9  of  SKEEP4 

1 = SKEEP7 

Ej^  = SKEEP5 

1 = SKEEP7  + 1 

E^  = SKEEP6 

ERESTORE  = 0 

Perform  "STARTSUB" 

Switch  FLGWRDIO  bit  14  (INTFLAG)  to  0 

Switch  DSPTAB^^  to  100  000  xOO  xQx  000^ 

(bit  15  is  flag  for  output;  leave  bits  9,6,4  alone) 
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Switch  IM0DES30  to  Oil  111  xOO  Oxx  JcDx^ 

(leave  IMU,  CDU,  and  both  PIPA  fail  monitor  bits  alone) 

DNLSTCOD  = AGSWORD 

Switch  bit  4 of  channel  14  to  1 (thrust  drive  discrete) 

If  FLAGWRD5  bit  7 (ENGONFLG)  =1; 

Switch  bit  13  of  channel  11  to  1 (engine  on  discrete) 
Skip  next  line 

Switch  bit  14  of  channel  11  to  1 (engine  off  discrete) 
Proceed  to  "G0PR0G3" 

LIGHISET  If  bit  5 channel  16  = 1 and  channel  15  = 22g: 

Perform  "STARTSUB" 

Proceed  to  ’'DOFSTART** 

Return 

ENEMA  Inhibit  interrupts 
Perform  "STARTSBl" 

Skip  next  line 
G0PR0G2  Perform  "STARTSB2'' 

G0PR0G2A  Perform  "LIGHTSET" 

Switch  FLGWRDIO  bit  7 (REINTFLG)  and  bit  14  (INTFLAG)  to  0 
G0PR0G3  If  restart  information  is  stored  Improperly: 

Perform  "ALARM"  with  TS  = 01107g 
Proceed  to  "DOFSTRTl" 

Establish  "DSPMMJOB"  (pr30) 

Release  interrupt  inhibit 

(allows  possibility  of  interrupt) 

Inhibit  interrupts 
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Switch  FIAGWRDl  bit  14  (DIDFIAG)  to  0 

Switch  FIAGWEDl  bit  12  (RODFIAG)  to  0 

Switch  FIAGWRDO  bit  11  (P21FLA.G)  to  0 

If  all  restart  groups  are  inactive: 

If  bit  15  of  MODREG  = 1,  proceed  to  "ENDRSTRT" 

Proceed  to  "GOTOPOOH"  ("GOFLASH"  will  put  "DSPMMJOB"  to 

sleep,  leaving  program  number  blank) 
Restart  all  jobs  and  tasks  indicated  by  active  restart  groups 

ENDRSTRT  Proceed  to  "DUMMrJB2’' 

GOTOPOOH  Switch  DAPBOOLS  bit  9 (XOVINHIB)  and  bit  6 (ULIAGER)  to  0 
Inhibit  interrupts 

Switch  FIAGWRD4  bit  1 (XDSPFIAG)  to  0 
Release  interrupt  inhibit 

Proceed  to  "GOFIASH"  with  TS  = K:V37N99  (noun  not  processed) 

(if  terminate,  repeat  this  step;  if  proceed,  repeat  this 
step;  if  other  response,  repeat  this  step.)  , 

AT  ARM  Inhibit  interrupts 

ALMCADRq  = "calling  address  + 1"  (S-register  portion) 

AIARM2  AlMCADR^  = BBANK  + SUPERBNK  (or'ed  into  bits  7-5) 

If  FAIIHEGq  = 0: 

FAILREGq  = TS  (TS  contains  alarm  code) 

Proceed  to  "PROGLARM" 

If  FAILREG^  = 0: 

FAILREG^  = TS 
Proceed  to  "PROGLARM" 

PROGLARM  FAILREG^  = TS 

Switch  bit  9 of  DSPTAB^^  to  1 and  flag  for  output 

Release  interrupt  inhibit 

Return 
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BAILOUT 


Inhibit  interrupts 


WHIMPER 

POODOO 


CURTAINS 

# 

BAILOUTl 


POODOOl 


AIMCADRq  = "calling  address  + 1"  (S-register  portion) 

Perform  "ALARM2" 

Resume  (after  this  Resume,  return  is  to  next  line) 

Proceed  to  "ENEMA" 

Inhibit  interrupts 

ALMCADRq  = "calling  address  + 1"  (S-register  portion) 

Perform  "ALARM2"  (TS  contains  the  alarm  code) 

Switch  FLAGWRD3  bit  5 (STATEFLG)  to  0 
Switch  FLGWRDIO  bit  7 (REINTFLG)  to  0 
Switch  FUGWRD2  bit  1 (NODOFLAG)  to  0 
If  FLAGWRD7  bit  6 (V37FLAG)  = 1;  proceed  to  "SERVIDLE" 

Make  all  restart  groups  inactive 
Proceed  to  "WHIMPER" 

Inhibit  interrupts 

ALMCADRy=  "calling  address  + 1" 

Perform  "ALARM2"  with  TS  = 00217g 
Return 

Inhibit  interrupts 

ALMCADR,  = TSl, 
dp  dp 

Perform  "ALARM2"  starting  at  second  line 

Inhibit  interrupts 

Proceed  to  "WHIMPER" 

Inhibit  interrupts 

ALMCADR,  = TSl, 
dp  dp 
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ABORT 

P06 


FOSTAND 


Perform  ”ALARM2"  starting  at  second  line 
Proceed  to  4th  line  of  "POODOO" 

Proceed  to  "WHIMPER" 

Switch  FLAGWRD2  bit  1 (NODOFLAG)  to  1 
Inhibit  interrupts 
TIME2SAV  = TIMENOW 

TSt,  = channel  3,  channel  4 (sampled  with  special  pre- 
^ caution  to  assure  that  the  two  halves  are  consistent) 

Release  interrupt  inhibit 

If  TIMENOW  was  incremented  during  the  last  1/3200  of  a second 
(channel  4 “ centiseconds) : (TIMENOW  incompatible  with 

channel  4) 

Proceed  to  second  step  of  "P06" 

TSt  = TSt  rounded  to  the  nearest  centisecond 
SCALSAVE  = TSt 


Inhibit  Interrupts 
Perform  "RNDREFDR" 


Switch  FlaGWRDO  bit  8 (IMUSE)  and  bit  7 (RNDVZFLG)  to  0 

Switch  bit  11  of  channel  13  to  1 (enable  standby) 

Set  restart  tables  to  establish  "POSTAND"  when  a restart  is  (pr20) 

triggered  by  the  recovery  from  standby 

Proceed  to  "GOPERFl"  with  TS  = 00062g 

(If  terminate,  repeat  this  stepf  if  proceed,  repeat  this 
stepj  if  other  response,  repeat  this  step.) 

Switch  bit  11  of  channel  13  to  0 (disable  standby) 


Inhibit  interrupts 
TIMENOW  = 0 


channel  3,  channel  4 (sampled  with  special  pre- 
caution to  assure  that  the  two  halves  are  consistent) 
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Release  interrupt  Inhibit 


V37RET 


ALARMl 


VARALARM. 


If  TIMENOW  was  incremented  during  the  last  1/3200  of  a second 
(channel  4 = xxx.5  centiseconds) : 

Proceed  to  second  step  of  "POSTAND.” 

TSt  = TSt  rounded  to  the  nearest  centisecond 

TS  = TSt  - SCALSAVE  (rescaled  from  B23  to  B28) 

Force  sign  agreoment  in  TS 

If  TS  ^-0,  TS  = 2^^  + TS 

TSt  = TIME2SAV  + TS 

Force  sign  agreement  in  TSt 

TIMENOW  = TIMENOW  + TSt 

Switch  FLAGWRD2  bit  1 (NODOFLAG)  to  0 

Proceed  to  "g6T0P00H»» 

If  FLAGWRDO  bit  7 (RNDVZFLG)  =1: 

Cause  "GOPROG3"  to  call  "P20LEMC1"  in  15  seconds 

Proceed  to  "CANV37" 

If  FLAGWRDO  bit  9 (P25FLAG)  = 1: 

Cause  "G0PR0G3"  to  establish  "P25LEM1" 

Proceed  to  "CANV37" 

Inhibit  interrupts 

ALMCADR,  = TSl , 
dp  dp 

Proceed  to  second  step  of  "ALARM2" 

Inhibit  interrupts 

ALMCADRq  = "calling  address  + 1" 

Perform  "ALARM2" 

Proceed  to  ALMCADRq 


(prl4) 
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CCSHOLE  Inhibit  interrupts 


ALMCADRq  = " calling  address  + 1"  (S-register  portion) 
Proceed  to  third  line  of  "POODOO"  with  TS  = 21103g 
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Quantities  in  Computations 


AGSWORD;  See  EXVB  section. 

ILMCADft';  " Double' precision  storage  for  return  address  (address  In  most 
significant  half,  bank  information  in  least  significant  half)  of  the 
routine  that  generated  the  latest  alarm. 

BASETEMP;  Single  precision  storage  for  octal  address  of  program  to  be 
started  hj  verb  37. 

BBANK;  A computer  hardware  cell  containing  in  bits  15-11  the  fixed 
memory  bank  (FBANK)  currently  being  used  and  in  bits  3-1  the 
erasable,  memory  bank  number. 

DNLSTCOD:  See  TELE  section. 

DSPFLG2:  See  DINT  section. 

DSPTAB^^:  See  INTR  section. 

DSPTEMl:  See  DATA  section. 

E^;  Single  precision  memory  cell  whose  address  is  in  1. 

EBANK:  See  MATX  section. 

ERESTORE:  See  TEST  section. 

PAIliUG.  (i  = 0,1,2);  Three  single  precision  registers  used  for  storage 
of  alarm  code  information.  FAILREGq  ^ are  zeroed  via  an  "error  reset", 
FAILREG^  is  unaltered*  All  three  registers  are  zeroed  by  a Verb  36 
(fresh  start).  FAILREG_  contains  the  first  alarm  code  generated  after 
the  "Error  Reset";  FAIliiEG^  contains  the  second;  and  FAIIHEG^  always 
contains  the  most  recent. 

IM0DES30;  See  IMUC  section. 

IMODES33:  See  IMUC  section. 


K:770010CT:  Single  precision  constant  stored  as  77001g,  scaled  B-3 
in  units  of  revolutions  per  second.  Equation  value;  +0.00389. 
(Equation  value;  1.4  degrees  per  seeoad. ) 

K:DNLADMM1^  (l  = 0-24);  Table  of  25  single  precision  Indexes  which 

determine  the  downlist  sent  during  each  major  mode.  See  table  below. 

K:EBANK6;  Single  precision  constant  stored  as  03000g,  scaled  B6  and 
unitless.  Equation  value;  6. 

K:FCADRMM1  (i  * 0-24);  Table  of  25  eingle  preeleion  addresses  of  the 
25  major  mode  programs. , See  table  below. 
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KrFULLAPS;  Single  precision  constant  stored  as  5050  x 2 scaled 
Bl6  in  units  of  kilograms.  ^Glquation  value:  5050. 

K:MAXDB:  Single  precision  constant  stored  as  03434g;  used  to  initial- 
ize the  attitude  deadband.  Scaled  B-3  in  revolutions  and  corresponds 
to  approximately  5 degrees. 

K:PREMM1^  (i=  0-24):  Table  of  25  major  mode  numbers  with  associated  EBANK 
settings  and  priorities. 

KiRATESTRT;  Single  precision  constant  stored  as  77445g,  scaled  B-3  in 
units  of  revolutions/second.  Used  to  initialize  location  -RATEDB 
(referred  to  as  RATEDB  in  DAPA  section)  in  "DOFSTRH".  Equation 
value:  -218. 

K:STARTEB:  Single  precision  constant  stored  as  01400^,  scaled  B6  and 
unitless.  Equation  value:  3. 

K:STIKSTRT:  Single  precision  constant  stored  as  32321g,  scaled  B-15 
in  revolutions  per  second/ElHC  counts.  Used  to  initialize  location 
STIKSENS  in  "DOFSTRTl" . Equation  value:  0.825268. 

MINDEX:  Single  precision  register  used  to  select  the  appropriate 
table  entries  for  a V37  selected  program  change  (loaded  based 
upon  equality  of  MMNUMBER  and  bits  7-1  of  K:FREMMlj^  with  the 
value  of  1 . ) 


MMNUMBER:  Single  precision  storage  for  the  desired  value  of  the  major 
mode  register,  scaled  B14  and  unitless. 

MMTEMP:  Single  precision  storage  for  the  number  of  the  program  being 

started  by  verb  37  (bits  7-1,  bits  10-8  for  EBANK)  and  for  the  priority 
with  which  the  program  is  to  be  started  (bits  11-15). 

MODREG:  See  DATA  section. 

NVSAVE:  See  NWORD  in  the  DINT  section. 


RADMODES:  See  RADR  section. 

REDOCTR:  Single  precision  counter  set  to  zero  in  a fresh  start  and  in- 
cremented whenever  a hardware  restart  occurs)  scaled  BI4  and  unitless. 

RSBBQ:  Storage  for  the  value  of  the  address  where  a hardware  restart 
occurred.  The  most  significant  part  contains  the  BBANK  and  SUPERBNK 
information;  the  least  significant  part  contains  the  Q-register  in- 
formation. 

SCALSAVE;  Double  precision  value  of  the  standby  clock  (channels  3 and  4) 
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■ at  the  time  program  06  enables  standby,  scaled  B23  In  units  of  centi- 
seconds, 

SKEEP4,  SKEEP5,  SKEEP6,  SKEEP7:  See  TEST  section. 

STILBADH:  See  SERV  section. 

STILBADV:  See  SERV  section. 

SUPERBNK:  See  MATX  section. 

TIME3,  TIME4,  TIMES:  See  "Major  Variables"  section. 

TIME2SAV:  Double  precision  value  of  TIMENOW  when  program  06  enables 
standby,  scaled  B28  in  units  of  centiseconds. 

TIMENOW:  See  EXVB  section. 
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MAJOR  MODE  CHANGE  CONSTANTS 


i 

KiPREMMl 

K:PCADRMM1 

KiDNLADMMl 

prio  EBANK 

MM 

(octal  address) 

0 

13  7 

76 

P76 

2 

(RENDEZVU) 

1 

13  7 

75 

P75 

2 

(RENDEZVU) 

2 

13  7 

74 

P74 

2 

(RENDEZVU) 

3 

13  7 

73 

P73 

2 

(RENDEZVU) 

4 

13  7 

72 

P72 

2 

(RENDEZVU) 

5 

13  7 

68 

LANDJUNK 

4 

(DESASCNT) 

6 

13  7 

63 

P63LM 

4 

(DESASGNT) 

7 

13  5 

57 

. P57 

5 

(LUNRSALN) 

8 

13  5 

52 

PR0G52 

0 

(COSTALIN) 

9 

13  5 

51 

P51 

0 

(COSTAL IN) 

10 

13  7 

47 

P47D4 

3 

(ORBMANUV) 

11 

13  7 

42 

P42LM 

3 

(ORBMANUV) 

12 

13  7 

a 

P41IW 

3 

(ORBMANUV) 

13 

13  7 

40 

P40Ud 

3 

(ORBMANUV) 

14 

13  7 

35  ■ 

P35 

2 

(RENDEZVU) 

15 

13  7 

34 

P34 

2 

(RENDEZVU) 

16 

13  7 

33 

P33 

2 

(RENDEZVU) 

17 

13  7 

32 

P32 

2 

(RENDEZVU) 

18 

13  7 

30 

P30 

2 

(RENDEZVU) 

19 

13  7 

25 

PR0G25 

2 

(RENDEZVU) 

20 

13  7 

22 

PR0G22 

5 

(LUNRSALN) 

21 

13  7 

21 

PR0G21 

2 

(RENDEZVU) 

22 

13  7 

20 

PR0G20 

2 

(RENDEZVU) 

23 

13  7 

12 

P12LM 

4 

(DESASCNT) 

24 

13  4 

06 

P06 

0 

(COSTALIN) 
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Radar  Control  Routines 


RRAUTCHK 


RRCDUCHK 


RRGIMON 


If  bit  2 of  channel  33  = bit  2 (AUTOMODE)  of  RADMODES: 

Proceed  to  "RRCDUCHK"  ( ON/OPT  status  of  RR  unchanged) 

Set  RADMODES  bit  2 (AUTOMODE)  = bit  2 of  channel  33 

Switch  bits  15  (CDESFLAC),  U (RIMODFLG),  13  (RCDUOFLG), 

11  (REPOSMON)  and  1 (TURNONFL)  of  RADMODES  to  0 

If  RADMODES  bit  2 (AUTOMODE)  =1:  ( RR  just  turned  off  ) 

Switch  bit  2 of  channel  12  to  0 (disable  RRCDU  Error  Counters) 

Proceed  to  "RRCDUCHK" 

Switch  RADMODES  bits  1 (TURNONFL)  and  13  (RCDUOFLG)  to  1 
Call  "RRTURNON"  in  0.01  second 
Proceed  to  "NORRS^ON" 

If  bit  7 of  channel  30  = bit  7 (RCDUFAIL)  of  RADMODES; 

Proceed  to  "RRGIMON"  (RR  CDU  fail  discrete  unchanged) 

If  RADMODES  bit  2 (AUTOMODE)  = 1,  proceed  to  "NORRO^ON" 

(RR  not  in  auto  mode:  might  be  reading  LR  data) 

Set  RADMODES  bit  7 (RCDUFAIL)  = bit  7 of  channel  30 

If  RADMODES  bits  13  (RCDUOFLG),  7 (RCDUFAIL)  and  2 ( AUTOMODE) 

= 0,  and  FLAGWRDO  bit  7 (RNDVZFLG)  = 1: 

Perform  "ALARM"  with  TS  = 0051 5g 

Perform  "SETTRKF" 

If  FLAGWRD5  bit  4 (NORRMON)  = 1,  proceed  to  "NORRGMON" 

If  FLAGWRD7  bit  5 (AVEGFLAG)  = 1: 

If  FLAGWRD6  bit  8 (MUNFLAG)  = 1,  proceed  to  "NORRGMON" 

If  RADMODES  bit  14  (REMODFLG),  13  (RCDUOFLG),  11  (REPOSMON)  or 
2 (AUTOMODE)  = 1,  proceed  to  "NORRGMON" 
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NORRGMON 


BRTURNON 


RRZEROSB 


SETTRKF 


Perform  "RRLIMCHK"  with  TS^  = CDU^  and  TS  = CDU 

U t IS 

If  TSchk  = 0:  (RR  positioned  out  of  limits) 

Switch  RADMODES  bit  11  (REPOSMON)  to  1 

Switch  bits  14  and  2 of  channel  12  to  0 

(Disable  RR  tracker  and  RRCDU  Error  Counter) 

Call  "DORREPOS"  in  0.02  second 

If  RADMODES  bit  2 (AUTOMODE)  = 1: 

Switch  bit  1 of  channel  12  to  1 (Zero  RR  CDUs) 

Return  ( to  caller  of  "RRAUTCHK"  in  the  T4RUPT  routine) 

Perform  "RRZEROSB" 

Delay  1 second 

Switch  RADMODES  bit  1 (TURNONFL)  to  0 (Turn-on  complete) 

End  task 

Switch  bit  1 of  channel  12  to  1 (Drive  RR  CDUs  to  zero) 

Delay  0.02  second 

CDU^  = 0 

CDU  = 0 
s 

Switch  bit  1 of  channel  12  to  0 (Release  RR  CDUs) 

Delay  10  seconds  (Allow  time  for  CDUs  to  match  gimbal  angles) 

Switch  RADMODES  bit  13  (R  DUOFLG)  to  0 

If  ICDU^I^  K:p25,  switch  RADMODES  bit  12  (ANTENFLG)  to  0 

If  |CDU  |>  K:p25,  switch  RADMODES  bit  12  (ANTENFLG)  to  1 
s 

Perform  "SETTRKF" 

Return 

If  bit  1 of  IMODES33  =1,  retTorn  (lamp  test  in  progress) 

TS  = 00200g  ( bit  8 = 1 ) 
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DORREPOS 


SETRREGR 


RRTONLY 


If  RADMODES  bit  13  (RCDUOFLG)  , 7 (RCDUFAIL)  jr  2 (AUTOMODE)  = 1: 

If  RADMODES  bit  4 (RRDATAFL)  =0,  TS  = OOOOOg  (bit  8=0) 
If  bit  8 of  DSPTAB^^  4 bit  8 of  TS: 

Set  bit  8 of  DSPTAB^^  = bit  8 of  TS  (tracker  fail  light) 
Switch  bit  15  of  DSPTAB^^  to  1 (flag  for  output) 

Return 

Perform  "SETRREGR" 

Delay  0.02  second 
RDES  =0 

If  RADMODES  bit  12  (ANTENFLG)=  1,  RDES  = -i  (-180°  for  Mode  II ) 
Perform  "RRTONLY" 

RDES  = 0 

If  RADMODES  bit  12  (ANTENFLG)=  1,  RDES  = - Ktlsi  (-90°) 
Perform  "RRSONLY" 

Switch  RADMODES  bit  11  (REPOSMON)  to  0 (repositioning  .coii?)lete) 

If  RADMODES  bit  10  (DESIGFLG)  = 1,  proceed  to  "BEGDES" 

(someone  waiting  to  designate) 

Switch  bit  2 of  channel  12  to  0 (disable  RR  Error  Gounter) 

End  task 

If  bit  2 of  channel  12  = 0:  (RR  Error  Gounters  disabled) 

Switch  bit  2 of  channel  12  to  1 
LASTTCMD  = 0 
LASTSGMD  = 0 
Return 

RRRET  = return  address 
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RRINDEX  = 0 


Proceed  to  "RR1AX2" 

RRSONLY  RRRET  = return  address 
RRINDEX  = 1 

RR1AX2  If  RADMODES  bits  U (REMODFLG)  and  11  (REPOSMON)  both  = 1: 

(Remode  requested  while  repositioning  in  progress) 

Switch  RADMODES  bit  11  (REPOSMON)  to  0 

If  RADMODES  bit  10  (DESIGFLG)  = 1,  proceed  to  "BE®ES" 

(Someone  waiting  to  designate) 

Switch  bit  2 of  channel  12  to  0 (disable  RRCDU  Error  Counter) 

End  task 

If  RRINDEX  =0,  TS  = RDES  - CDU^  (one's  con?)lement  difference 

of  two's  con?)lement  angles) 

If  RRINDEX  = 1 , TS  = RDES  - CDU 

If  Its/  ^ K:0. 00555  or  RADMODES  bit  2 (AUTOMODE)  =1,  return 
via  RRRET 

TRUNNCMD.  = 0 for  i = 0 and  1 
1 

TRUNNCMDjjj^jjjpg^  = KiRRSPGAIN  TS 
Perform  "RROUT" 

Delay  0.5  second 
Proceed  to  "RR1AX2" 

RROUT  TS  = TRUNNCMD^ 

If  iTSl  > Krrrlimit,  TS  = Krrrlimit  signTS 
CDUSCMD  = TS  - LASTSCMD 
LASTSCMD  = TS 
TS  = TRUNNCMDq 

If  |TSl  > K;rrlimit,  TS  = K:rrlimit  signTS 
CDUTCMD  = TS  - LASTTCMD 
LASTTCMD  = TS 
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Switch  bits  12  and  11  of  channel  14  to  1 

(Send  contents  of  CDUTCMD  and  CDUSCMD  to  RRCDU’s) 

Return 

RRDESSM  DESRET  = return  address 

Switch  FLAGWRDO  bit  6 (RRNBSW)  to  0 
Perform  "CDUTRIG" 

Perform  "SMTONB" 

TSlos  = [sMNBMATJ  PTARCET 
Perform  "RRANOiES" 

Inhibit  Interrupts 

Perform  "RRIIMCHK"  with  TSq  = MODEPRESq  and  TS^  = MiSDEPRES^ 

If  TSchk  = 0;  (not  within  limits  in  present  mode) 

If  FLAGWRD8  bit  8 (SDRFFLAG)  = 1 : 

RADCADR  = +0 
RADLIMCK  = 0 
Proceed  to  "DESRETRN" 

Perform  "RMODINV" 

Perform  "RRLIMCHK''  with  TSq  = MDDEALTq  and  TS^  = MODEALT^ 
If  TSchk  = 0:  (not  within  limits  of  either  mode) 

Perform  "R^ODINV" 

RADLIMCK  = 1 
RADCADR  = +0 
Proceed  to  "DESRETRN" 

Perform  "RMODINV" 

Switch  RADMODES  bit  14  (REMODFLG)  to  1 (request  remode) 
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RADLIMCK  = 2 


Proceed  to  "STARTDES” 

RRDESNB  DESRET  = return  address 

Switch  FLAGWRD2  bit  12  (LOSGMFLG)  to  0 
DESCOUNT  = KrMAXTRYS 
Inhibit  Interrupts 

Perform  "RELIMNB"  with  TSq  = TANC^  and  TS^  = TANG^ 

If  TSchk  = 0;  (not  within  limits  of  present  mode) 

Perform  "RMODINV" 

Perform  "RRLIMNB"  with  TSq  = TANGq  and  TS^  = TANG^ 

If  TSchk  = 0;  (not  within  limits  in  either  mode) 

Perform  "RMODINV" 

Perform  "ALARM"  with  TS  = 00502g 
Inhibit  Interrupts 

Switch  RADMODES  bits  10  (DESIGFLG)  and  15  (CDESFLAG)  to  0 

Switch  bit  2 of  channel  12  to  0 (disable  RRCDU  Error 
Counters) 

End  Job 

Perform  "RMODINV" 

Switch  RADMODES  bit  U (REMODFLG)  to  1 
Release  interrupt  inhibit 
TANOIB^  = TANG^  for  i = 0 and  1 

Perform  "RRNB"  (get  LOS  vector  in  NB  coordinates) 
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STARTDES 


DESRETRN 


RRLIMCHK 


M0DE2CHK 


RRANaES 


gRTARGET  = TS 

Switch  FLAGWRDO  bit  6 (RRNBSW)  to  1 
Inhibit  interrupts 

Switch  RADMODES  bit  10  (DESIGFLG)  to  1 
If  RADMODES  bit  11  (REPOSMON)  = 0;  (see  "DORREPOS") 
Perform  "SETRRECR" 

Call  "BEC2)ES"  in  0.02  second 
If  RADCADR  7^  0,  end  Job 
Release  Interrupt  inhibit 
Return  via  DESRET 

TSchk  = 1 (Entered  with  angles  in  two's  complement  form) 
If  RADMODES  bit  12  (ANTENFLG)  = 0;  (Mode  l) 

If  |tSq|  > K;0. 30555,  TSchk  = 0 

If  \TS^  + K;5.5DEGS\  > K:0. 35833,  TSchk  = 0 

Return 

If  /TS^  + K:82DEGS/  > K:0.31667,  TSchk  = 0 

If  (TSqI  ^ K: 0.69444,  TSchk  = 0 

Return 

TSta  = arcsin(-TSlos  ) 

7 

TStb  = ^ - arcsin(-TSlos  ) 

7 

TSlos  = 0 
y 

TS  = unitTSloB 

If  I TSlos j < 2~^^:  (unit  vector  poorly  defined) 

(trunnion  angle  nearly  90  degrees) 

Proceed  to  "LUNDESCH" 
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SINTH  - TS^ 

COSTH  = TS, 

Perform  "ARCTRIG"  (get  THETA  from  SINTH  and  COSTH) 

If  RADMODES  bit  12  (ANTENFLG)  = 0;  (Mode  l) 

MODEALTq  = TStb  converted  to  two ' s complement  form 
MODEALT^  = -|-  + THETA  similarly  converted 
MODEPRESq  = TSta  converted  to  two's  complement  form 
MODEPRES^  THETA  similarly  converted 
If  RADMODES  bit  12  (ANTENFLG)  = 1 : 

MODEALTq  = TSta  converted  to  two's  complement  form 

MODEALTq  = THETA  similarly  converted 

MODEPRESq  = TStb  converted  to  two's  complement  form 

MODEPRESq  — ^ THETA  similarly  converted 
Return 

RRNB  TStr  = TANGNBq  converted  to  one's  complement  form 

TSsh  = TANGNB-i  converted  to  one's  complement  form 
Skip  next  two  lines 

RRNBMPAC  TStr  = TS-|  converted  to  one ' s complement  form 
TSsh  - TS2  converted  to  one's  complement  form 
TS  = - sinTStr 

y 

TS„  = cosTSsh  cosTStr 
TS^  = slnTSsh  cosTStr 
Return 

RMODINV  If  RADMODES  bit  12  (ANTENFLG)  = 1 : 

Switch  RADMODES  bit  12  (ANTENFLG)  to  0 (change  to  Mode  l) 
Return 
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Switch  RADMODES  bit  12  (ANTENFLG)  to  1 
Return 


(change  to  Mode  II ) 


BEGDES  If  RADMODES  bit  14  (REMODFLG)  = 0,  proceed  to  "STDESIG' 
REMODE  RDES  = 0 

If  RADMODES  bit  12  (ANTENFLG)  = 1,  RDES  = -i 
Perform  "RRTONLr' 

RDES  = K:m45DEGSR 
Perform  "RRSONLr'  . 

RDES  = K:m50DEGSR  (Mode  II) 

If  RADMODES  bit  12  (ANTENFLG)  = 0,  RDES  = RDES  + KrmSODEGSR 
Perform  "RRTONLr' 

RDES  = 0 

If  RADMODES  bit  12  (ANTENFLG)  = 0,  RDES  = - i 
Perform  "RRTONLr' 

RDES  = 0 

If  RADMODES  bit  12  (ANTENFLG)  = 0,  RDES  = -K;1si  (-90°) 
Perform  "RRSONLr' 

Perform  "RMODINV" 

Switch  RADMODES  bit  14  (REMODFLG)  to  0 
If  RADMODES  bit  10  (DESIGFLG)  = 0,  proceed  to  "RGOODEND" 
STDESIG  If  RADMODES  bit  11  (REPOSMON)  = 1: 

Switch  RADMODES  bit  10  (DESIGFLG)  to  0 
Proceed  to  "RDBADEND" 
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If  RADMODES  bit  15  (CDESFLAG)  = 1,  proceed  to  "MOREDES" 

If  RADMODES  bit  10  (DESIGFLG)  = 0,  proceed  to  "ENDRADAR" 

If  DESCOUNT  >0; 

DESCOUNT  = DESCOUNT  -1 

Proceed  to  "MOREDES" 

Switch  bits  14  and  2 of  channel  12  to  0 

(disable  RR  tracker  and  RR  CDU  Error  Counters) 

switch  RADMODES  bit  10  (DESIGFLG)  to  0 

Proceed  to  "RDBADEND" 

MOREDES  Establish  "DODES"  (pr26) 

Call  "STDESIG"  in  0.5  second 
End  task 

DODES  TANGq  = CDU^ 

TANG,  = CDU 

TSlos  = PTARCET 

If  FLAGWRDO  bit  6 (RRNBSW)  = 0; 

Perforin  "CDUTRIG?' 

Perform  "SMTONB" 

TSlos  = QsMNBMA^  unlt(MLOSV  pTAR(ET  + KiMCTOMS  LOSVEL) 

TStr  = TANGq  converted  to  one's  con^ilement  form 

TSsh  = TANG^  converted  to  one's  complement  form 

TANG,  = cosTSsh  TSlos  - sinTSsh  TSlos 
1 X z 
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RRDESDUN 


(sinTStr  sinTSsh  \ 
cosTStr  I • TSlos 

sinTStr  cosTSsh  j 

If  RADMODES  bit  12  (ANTENFLG)  = 1 , TANG.  = - TANG^ 

(a  relay  in  the  KH  reverses  polarity  of  the  shaft  commands 
in  mode  II;  con^iensate  by  changing  polarity  of  command.) 

TRUNNCMD^  = K:RDESGAIN  TANG^ 

(sinTSsh  cosTStr  \ 

-sinTStr  j 

cosTSsh  cosTStr/ 

If  FLAGWRDO  bit  6 (RRNBSW)  =0; 

Perform  "NBTOSM" 

TS  = (kBSHMA-^  TS 

TSchk  = 0 

TS^  = TS  • RRTIRGET  - K:C0S1d2DG 
dp  - - 

TS  '^0,  TScWc  = 1 (single  precision  check  of  double 

precision  quantity) 

If  RADMODES  bit  15  (CDESFLAG)  = 1,  proceed  to  "DORROUT" 

If  TSchk  = 0 and  FLAGWRDO  bit  5 (LOKONSW)  = 0,  proceed  to  "RRDESDUN" 

If  TSchk  = 0 and  FLAGWRDO  bit  5 (LOKONSW)  = 1 : 

Switch  bit  14  of  channel  12  to  1 (enable  RR  tracker) 

If  bit  4 of  channel  33  = 1 , proceed  to  "DORROUT" 

(designate  until  data  good  discrete  is  present) 

TS  = RADMODES  (with  bit  10  forced  to  0) 

Inhibit  interrupts 

RADMODES  = TS 

Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  0 

Switch  bit  2 of  channel  12  to  0 (Disable  RR  Error  Counter) 

Release  interrupt  inhibit 
End  job 
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DORROUT  If  FLAGWRD2  bits  12  (LOSCMFLG)  or  14  (SRCHOPTN)  = 1: 


RRZERO 


RRZ2 


TS  = MLOSV  pTARGET  + i K:MCTOMS  LOSVEL 
PTARGET  = unitTS 
MLOSV  = jTSj 
Inhibit  Interrupts 

If  RADMODES  bit  11  (REPOSMON)  = 0,  perforin  "RROUT" 

If  FLAGWRD2  bit  12  (LOSCMFLG)  = 0,  proceed  to  "ENDOFJOB" 
If  LOSCOUNT  =0: 


Remove  "STDESIG"  from  waitlist  if  it  is  there 
Release  interrupt  inhibit 
If  NEW  JOB  > 0,  perform  "GHANGI" 

If  NEW  JOB  = +0,  proceed  to  "R21LEM2" 

LOSCOUNT  = LOSCOUNT  - 1 
Proceed  to  "ENDOFJOB" 

If  RADMODES  bit  1 (TURNONFL)  or  bit  11  (REPOSMON)  = 1: 

Call  "RGOODEND"  in  0.01  second 
Return 

Inhibit  Interrupts 

Switch  RADMODES  bit  13  (RCDUOFLG)  to  1 
Call  "RRZ2"  in  0.01  second 

If  RADMODES  bit  2 (AUTOMODE)  = i,  perform  "ALARM"  with  TS  = 0051 Og 

Release  interrupt  inhibit 

Return 

Perform  "RRZEROSB" 

Proceed  to  "ENDRADAR" 
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R04Z  RSAMPDT  = K:1SECp1 

RTSTLOC  = 0 
RFAILCNT  = 0 
Inhibit  interrupts 

Set  RADMODES  bits  9 (ALTSCALE)  , 6 (LRPOSFLG),  and  3 (RJIRSFLAG) 
bits  9,  6,  and  3 of  channel  33 

Release  interrupt  inhibit 

If  FLAGWRD3  bit  9 (R04FLAG)  = 0:  (R77) 

RSAMPDT  = K:  250MSp1 

RTSTBASE  = 2 

RTSTMAX  = 6 

Call  "RADSAMP"  in  0.06  second 
Proceed  to  "PINBRNCH" 

OPTION!^  = 1 
OPTIONXq  = 4 

Perform  " GOXDSPFR”  with  TS  = K;V04N12  (OPTIONXq,  OPTIONXJ 
(If  terminate,  proceed  to  "R04END" ; if  proceed,  skip 
next  two  steps;  other  response,  repeat  this  step) 

Perform  "BUNKET"  with  TS  = 00004g  (blank  R3) 

End  job 

RTSTDEX  = OPTIONXq 

R04X  If  RTSTDEX  ^ 1;  (Bits  3 and  2 are  both  0;  RR) 

RTSTBASE  = 0 

If  bit  2 of  channel  33  = 1 : (RR  not  in  AUTO  mode) 

DSPTEM1  = 00201 g 
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(If  bit  2 of  channel  33  = 1 : ) 

Proceed  to  " Q0MARK4"  with  TS  = K;V50N25  (DSPTEMI ) 

(if  terminate,  proceed  to  "R04END" ; if  proceed, 
repeat  at  second  previous  step (to  assure  that  HR 
has  been  switched  to  AUTO);  other  response,  repeat 
at  previous  step.) 

Switch  bit  14  of  channel  12  to  1 (enable  RR  tracker) 

RTSTMAX  = 2 

If  RTSTDEX  > 1 ; (Bit  3 or  2 is  1 ; LR) 

RTSTBASE  =2 
RTSTMAX  = 6 

Call  "RADSAMP"  in  RTSTMAX  centiseconds 
Release  interrupt  inhibit 
If  RTSTDEX  ^ 1 ; (RR) 

Proceed  to  " GOXDSPP'  with  TS  = K:V16N72  (CDU^  .and  CDUg) 

(If  terminate,  proceed  to  ''R04END" ; if  proceed,  continue 
at  next  step;  other  response,  repeat  this  step.) 

Proceed  to  " GOXDSPP'  with  TS  = K:V16N78  (DNRRANGB,  DNRRDOT, 

(If  terminate,  proceed  to  "R04END";if  proceed,  TTOTIG) 
continue  at  next  step;  other  response,  repeat  at 
previous  step.) 

If  RTSTDEX  > 1 ; (LR) 

Proceed  to  "GOXDSPP'  with  TS  = K:V16n66  (RSTACK^, channel  33) 
(If  terminate,  proceed  to  "R04END" ; if  proceed,  continue 
at  next  step;  other  response,  repeat  this  step.) 

Proceed  to  "GOXDSPP'  with  TS  = K:V16n67  (RSTACKq  , /) 

(if  terminate,  proceed  to  "R04END" ; if  proceeaj  * 
continue  at  next  step;  other  response,  repeat  at 
previous  step.) 

RSAMPDT  = +0  (to  stop  "RADSAMP") 

Delay  2 seconds 
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R04END 


RADSAMP 


RSAMPDT  = K:1SECp1 
RTSTLOC  = 0 

If  RTSTBASE  = +0,  TS  = 2 
If  RTSTBASE  > 0,  TS  = 1 

RTSTDEX  = TS 
Proceed  to  "R04X" 

RSAMPDT  = +0 

Delay  1.28  Seconds 

Inhibit  interrupts 

Switch  bit  14  of  channel  12  to  0 

Switch  FLAGWRD3  bit  9 (R04FLAG)  to 

Proceed  to  "ENDEXT" 

If  RSAMPDT  = +0,  end  task 

Call  "RADSAMP"  in  (| RSAMPDT/  - 1) 

Establish  "DORSAMP" 

RTSTDEX  = RTSTBASE  + RTSTLOC  / 2 
End  task 


(disable  PIR  tracker) 
0 

centiseconds 

(pr25) 
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DORSAMP 


RRRANGE 


If  RTSTDEX  = 0,  perform  "RRRANGE"  with  TSn  = 1 
If  RTSTDEX  = 1 , perform  "RRRDOT"  with  TSn  = 1 

If  RTSTDEX  = 2,  perform  "LRVELX"  with  TSn  = 1 

If  RTSTDEX  = 3,  perform  "LE7ELY"  with  TSn  = 1 

If  RTSTDEX  = 4,  perform  "LRVELZ"  with  TSn  = 1 

If  RTSTDEX  = 5,  perform  "LRALT"  with  TSn  = 1 
Perform  "RADSTALL" 

If  RADGOOD  = 0,  RFAILCNT  = RFAILCNT  + 1 

Inhibit  interrupts 

If  FLAGWRD5  bit  11  (R77FLAG)  = 0: 

^STACKj^TSTLOC  = SAMPLSUM^p 

If  RADMODES  bit  6 (LRPOSFLG)  7^  bit  6 of  channel  33 
Perform  "ALARM"  with  TS  = 00522g 
RFAILCNT  = RFAILCNT  + 1 
If  RTSTLOC  7^  RTSTMAX: 

RTSTLOC  = RTSTLOC  + 2 
End  job 
RTSTLOC  = 0 
End  job 

TSset  = 0001 1g  (bits  1 and  4 = 1 ) 

Perform  "INITREAD"  with  TSn  = 1 
Return 
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RRRDOT 


(bits  2 and  4 - 1 ) 


TSset  = 0001 2g 

Perform  "INITREAD"  with  TSn  = 1 
Return 

LRVELX  TSset  = 00014^  (bits  3 and  4 = 1 ) 

Perform  "INITREAD" 


Return 

LRVELY  TSset  = 0001 5g  (bits  1 , 3 and  4 = 1 ) 

Perform  "INITREAD" 

Return 

LRVELZ  TSset  = 000l6g  (bits  2,  3 and  4 = 1 ) 

Perform  "INITREAD" 

Return 

LRALT  TSset  = OOOIVg  (bits  1,  2,  3 and  4 = l) 

Perform  "INITREAD"  with  TSn  = 1 
Retiirn 


INITREAD  Inhibit  interrupts 

TIMEHOLD  = TSn  K;40ms 
NSAMP  = TSn  - 1 
SAMPLIM  = TSn 

OLDATAGD  = bits  4»  5 and  8 of  channel  33 

(RR  data  good,  LR  pos  data  good,  LR  vel  data  good  discretes) 
Switch  bits  1 - 4 of  channel  13  to  0 

TS  = TSset 

Perform  "RADSTART" 
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RADSTALL 


ENDRADAR 

RGOODEND 


TIMEHOLD  = TIMEHOLD  + TIMENOW 
SAMPLSUM  = 0 

Release  interrupt  inhibit 
Return 

Inhibit  interrupts 

If  RADCADR  > 0 or  if  RADCADR  < -1 : 

TSI^p  = return  address  of  routine  calling  "RADSTALL" 

Proceed  to  "BAILOUT1"  with  TS  = 31210g 
If  RADCADR  = -1:  (operation  already  con5)lete  and  good) 

RADCADR  = +0 

Release  interrupt  inhibit 

RAD GOOD  = 1 

Return 

If  RADCADR  = -0:  (operation  already  con^jlete  and  bad) 

RADCADR  = +0 

Release  interrupt  inhibit 

RAD GOOD  = 0 

Return 

RADCADR  = return  address  (to  caller  of  "RADSTALL") 

Put  present  job  to  sleep 
When  awakened,  return  via  LOC 

If  RADMODES  bit  7 (RCDUFAIL)  = 0,  proceed  to  "RDBADEND" 

If  RADCADR  = +0: 

RADCADR  = -1 
End  task 
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RDBADEND 


RAD AHEAD 


If  RADCADR  = -0  or  RADCADR  = -1 : ( should  never  be  true ) 

RADCADR  = +0 
End  task 
LOG  = RADCADR 
RADGOOD  =1 

Wake  job  put  to  sleep  in  "RADSTALL” 

RADCADR  = +0 
End  task 
If  RADCADR  = +0; 

RADCADR  = -0 
End  task 

If  RADCADR  = -0  or  RADCADR  = -1 : ( should  never  be  true ) 

RADCADR  = +0, 

End  task 
LOC  = RADCADR 
RADGOOD  = 0 

Wake  job  put  to  sleep  in  "RADS TALL" 

RADCADR  = +0 
End  task 

(entered  on  interrupt  85-95  ms  after  bit  4 of  channel  13  is  set) 
TTOTIG  = TTOGO 

DNINDEX  = bits  3-1  of  channel  13  (radar  selection  bits) 

If  DNINDEX  ^0:  (if  radar  select  bits  zero,  do  not  store  data 
for  downlist  ( erasable  problems ) ) 
DNRADATApjjjjjpgj  = RNRAD  (radar  data) 


RADR  - 19 


If  SAMPLIM  < 0: 


Perform  "ALARM”  with  TS  = 00520g 
Resume 

If  SAMPLIM  = 0: 

If  FLGWRD11  bit  15  (LRBYPASS)  = 0,  proceed  to  "BADRAD" 

If  FLAGWRD3  bit  9 (RO4FLAG)  = 0,  perform  "ALARM" 
with  TS  = 00 521 g 

Proceed  to  "BADRAD" 

SAMPLIM  = SAMPLIM  - 1 

If  bit  3 of  channel  13  = 0,  proceed  to  "REINDRAD" 

Perform  "R77CHECK" 

If  bits  1 and  2 channel  13  are  both  1,  proceed  to  "LRHEIGHT" 
(LR  range/altitude  measurement) 

TS,  = RNRAD  +K;LVELBIAS 
dp 

i = 8 

Perform  "DGCHECK"  (returns  only  if  data  is  good) 

If  NSAMP  > 0: 

NSAMP  = NSAMP  - 1 
Proceed  to  "RESAI4PLE" 

Proceed  to  "GOODRAD" 

LRHEIGHT  i = 5 

If  bit  9 of  RADMODES  (ALTSCALE)  7^  bit  9 of  channel  33: 

Proceed  to  "SCALCHNG"  with  j = 9 

TS , = RNRAD 

dp 
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RENDRAD 


DGCHECK 


If  bit  9 of  channel  33  - 


5 TS 


dp 


Perform  "DGCHECK” 


(LR  range  high  scale) 


Proceed  to  "GOODRAD" 

If  RADMODES  bit  7 (RCDUFAIL)  = 0 or  if  RADMODES  bit  11 
(REPOSMON)  = 1,  proceed  to  "BADRAD" 


If  bit  1 of  channel  13  = 0:  (RR  range  rate  measiirament ) 

TS^  = RNRAD  - K:RDOTBIAS 
dp 

Perform  "DGCHECK" 

Proceed  to  "GOODRAD" 

If  bit  3 of  RADMODES  (RRRSFLAC)  ^ bit  3 of  channel  33: 
Proceed  to  "SCALCHNG"  with  j = 3 


TS  , = RNRAD 

dp 

If  bit  3 of  channel  33  = 1:  (HR  range  high  scale) 


8 TS 


dp 


Perform  "DGCHECK" 


Proceed  to  "GOODRAD" 


If  bit  i of  channel  33  = 0 and  bit  i of  OLDATAGD  = 0: 

(bit  8 is  LR  velocity  data  good,  bit  5 is  LR  altitude 
data  good,  bit  4 is  RR  data  good,  if  zero) 


SAMPLSUM  = SAMPLSUM  + TS^ 

dp 

Return  (with  good  sample) 

Set  bit  i of  OLDATAGD  = bit  i of  channel  33 
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RESAMPLE 


SCALCHNG 


BADRAD 


QOODRAD 


If  SAMPLIM  > 0: 

TS  = 0001 Og 
Perform  "RADSTART" 

Resume 

Switch  bit  i of  RADMODES  to  1 

(bit  8 is  LRVELFLG,  bit  5 LRALTFLG,  bit  4 RRDATAFL) 

SAMPLSUM  = TS,  (return  with  bad  sample  rather  than  none 

^ because  no  more  tries  are  available) 

Perform  "RADLITES" 

If  FLGWRD11  bit  15  (LRBYPASS)  = 0,  proceed  to  "BADRAD" 

If  FLAGWRD3  bit  9 (R04FLAG)  = 0,  perform  "ALARM"  with  TS  = 00521 

Proceed  to  "BADRAD" 

Invert  RADMODES  bit  j 

(bit  9 is  ALTSCALE,  bit  3 Is  RRRSFLAG) 

OLDATACffl  = bits  4»  5 and  8 of  channel  33  (data  good  bits) 

Switch  FLAGWRD5  bit  10  (RNGSCFLG)  to  1 

SAMPLIM  = -1 

Cause  "End  task"  instruction  in  "RDBADEND"  to  perform  the 
same  function  as  a "Resume"  instruction 

Proceed  to  "RDBADEND" 


SAMPLIM  = -1 

Switch  bit  i of  RADMODES  to  0 

(bit  8 is  LRVELFLG,  bit  5 is  LRALTFLG,  bit  4 is  RRDATAFL) 

Perform  "RADLITES" 

Cause  "End  task"  instruction  in"RG00DEND"  to  perform  the 
same  function  as  a "Resume"  instruction 

Proceed  to  "RGOODEND" 
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LRP0S2 


Inhibit  Interrupts 

Switch  RADMODES  bit  6 (LRPOSFLG)  to  1 

If  bit  7 of  channel  33  = 0:  (already  in  position  two) 


LRPOSCM 


RRLIMB 


Call  "RGOODEND"  in  0.01  second 
Release  interrupt  inhibit 
Return 

Switch  bit  13  of  channel  12  to  1 (command  LR  to  position  2) 

Call  "LRPOSCM"  in  6 seconds 
Release  interrupt  inhibit 
Return 

SAMPLIM  = 1 6g 
Delay  1 second 

If  bit  7 of  channel  33  = 0;  (position  2 achieved) 

Delay  2 seconds 

Switch  bit  13  of  channel  12  to  0 
Proceed  to  "RGOODEND" 

If  SAMPLIM  > 0: 

SAMPLIM  = SAMPLIM  - 1 

Proceed  to  second  step  of  "LRPOSCM" 

Switch  bit  13  of  channel  12  to  0 (terminate  positioning  commands 
Proceed  to  "RDBADEKD" 

TSchk  = 1 

If  RADMODES  bit  12  (MTENFLG)  = 1 , proceed  to  "M0DE2CHK" 
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LUNDESCH 


R77CHECK 


RADSTART 


If  (TSqI  > K:0. 30555,  TSchk  = 0 

If  TS^  > 0 and  [TS^  + K:5.5DEGSj  > K:0. 35833,  TSchk  = 0 
If  TS^  ^ 0 and  |TS^  + K:20.5DEGS|  >K:0. 35833,  TSchk  = 0 
Ret\irn 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1: 

RADLIMCK  = 0 

RADCADR  = + 0 

Proceed  to  "DESRETRN" 

If  FLAGWRDO  bit  7 (RNDVZFLG)  =0,  end  job 

Perform  "RMODINV” 

RADLIMCK  = 1 

RADCADR  = + 0 

Proceed  to  "DESRETRN" 

If  FLAGWRD5  bit  11  (R77FLAG)  = 0,  retiam 

Set  bits  5 (LRALTFLG)  and  8 (LRVELFLG)  of  RADMODES  = 
bits  5 and  8 of  channel  33 

Cause  "End  task"  instruction  in  "RGOODEND"  to  perform  the 
same  function  as  a "Resme"  instruction 

Proceed  to  "RGOODEND" 

TS^  = LOSCALAR 

TS^  = low  5 bits  of  TS^ 

RADDEL  = low  5 bits  of  ( 00040g  - TS^  ) 

If  RADDEL  ^ 00002g,  proceed  to  "RADSTART"  (if  a T5  interrupt  is 

scheduled  to  occur  in 

Set  bits  TS  of  channel  13  to  1 l/l6  th  of  a centi- 

second,  then  these 

RADTIME  = - TS_  operations  repeat  until 

the  interrupt  has 

Retiirn  occurred) 
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C13STALL  If  bit  4 of  channel  13  = 0,  return 


TSy  = LOSCALAR  + RADTIME  (LOSCALAR  may  have  overflowed 

once  since  RADTIME  was  last 
If  TS^  — K;90MSCALR  + RADDEL,  return  loaded,  but  this  occurrence 

has  been  compensated  for  in 
If  TS^  ^(K:mDTSCALR  + K:90MSCALR  + RADDEL),  return  the  coding) 

Proceed  to  second  step  of  "C13STALL” 

RADLITES  If  i <5,  proceed  to  second  step  of  "SETTRKF" 

If  i = 8:  (liR  velocity  data  good) 

k = +2 
TS  = 00004g 
j = 3 

If  i = 5!  (LR  altitude  data  good) 
k = +1 
TS  = 00020g 
j = 5 

If  bit  i of  RADMODES  = 1,  proceed  to  "ONLITES" 

If  bit  k of  FLGWRD1 1=1,  proceed  to  second  step  of  "SETTRKF" 

TS  = OOOOOg 

LITIT  If  bit  j of  DSPTAB^^  ^ bit  j of  TS; 

Set  bit  j of  DSPTAB^^  = bit  j of  TS 
Switch  bit  15  of  DSPTAB^^  to  1 
Return 

ONLITES  Switch  bit  k of  FLGtfRDII  to  0 
Proceed  to  "LITIT" 


(bit  5 i3  LR  altitude 
fail  lamp) 

(bit  3 is  LR  velocity 
fail  lamp) 
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£Juantities  In  Computations 


CDU^,  CDU  : LOG  input  counters  incremented  directly  from  the  CDU  to 

maintain  LGC  knowledge  of  the  RR  tnmnion  and  shaft  angles,  respec- 
tively. Single  precision  angles  stored  in  two’s  complement 
form  and  scaled  B-1  in  units  of  revolutions. 

CDUSCMD,  CDUTCMD;  LGC  output  counters  connected  to  the  RR  shaft  and 

trunnion  channels  of  the  CDU.  The  contents  of  each  of  these  counters 
is  a rate  command  scaled  B14  in  units  of  RR  piilses  (one’s  comple- 
ment form)  and  is  sent  to  its  respective  CDU  Error  Counter  by  setting 
the  appropriate  enabling  discrete  in  channel  14-  See  definition  of 
K;RRSPGAIN. 

COSTH;  See  COOR  section. 

DESCOUNT;  Single  precision  counter  defining  the  maximum  amount  of  time 
allowed  for  an  attempt  to  designate,  scaled  BI4  and  unitless. 

DESRET:  A single  precision  octal  retiim  address  storage  cell. 

DNINDEX;  A single  precision  index  for  selection  of  appropriate  downlink 
buffer  cell  for  radar  data.  DNINDEX  =1,2,  4»  5,  6 or  7 for  RR 
range,  RR  range-rate,  LR  X-velocity,  LR  Y-velocity,  LR  Z-veloclty  and 
LR  altitude  data,  respectively;  scaled  BI4  and  unitless. 

DNRADATA^:  Special  storage  for  doimlink  of  radar  data.  i=1,  2,  4»  5,  6, 

and  7 to  index  six  single  precision  cells  (consecutive  except, 
between  i = 2 and  4)  alternately  labelled  DNRRANGE,  DNRRDOT,  DNLRVELX, 
DNLRYELY,  DNURTELZ  and  DNLRALT,  respectively. 

DSPTAB^ ^ : See  INTR  section. 

DSPTEM1 : Temporary  storage  cell  used  mainly  for  display  interface  purpose 

IM0DES33:  See  INTR  section. 

K; 0.00555:  Single  precision  constant  stored  as  -.00555,  scaled 

B-1  in  units  of  revolutions.  Equation  value;  +0.002775. 

(Equivalent  to  +1.0  degree.) 

Note:  Because  a constant  is  stored  in  one’ s complement  form,  its 

equation  value  changes  if  it  is  compared  with  the  absolute  value  of  a 
negative  two’s  complement  number.  In  such  a comparison,  a single 
precision  constant  assumes  an  equation  value  of  ”A  + where  b is 

the  scale  factor  of  the  constant  and  A is  the  stated  equation  value 
of  the  constant.  In  the  case  of  the  constant  "K;p25"  for  instance, 

A is  0.25  and  b is  -1 . 
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K; 0.30555.  K;5.5DEGS,  K: 0.35833;  Three  single  precision  consteuits  for 

checking  whether  the  radar  position  angles  are  within  the  bounds  of  RR 
Mode  I.  Stored  as  -0.30555,  0.03056,  and  -0.35833,  scaled  B-1  in 
units  of  revolutions.  Equation  values:  +0.152775,  0.01528  and 
+0.179165,  respectively.  See  note  above.  (Equivalent  to  +55  degrees, 

5.5  degrees,  and  +64.5  degrees.) 

K: 0.31 667,  K;82DEGS,  K: 0.69444:  Three  single  precision  constants  for 

checking  whether  the  radar  position  angles  are  within  the  bounds  of  RR 
Mode  II.  Stored  as  -0.31667,  0.45556  and  -.69444,  scaled  B-1  in 
units  of  revolutions.  Equation  Talues:  +0.158335,  0.22778,  and 
+0.34722.  See  note  above.  (Equivalent  to  +57  degrees,  82  degrees  and 
+125  degrees.) 

The  limits  of  ^fode  I are;  -55°  - trunnion  - 55°  and  -70°  - shaft  - 59°. 
The  limits  of  Mode  II  are:  125°  ^ trunnion  ■^—125°  suid 
-139°  < shaft  <-25°.  The  latter  corresponds  to  limits  on  the  LOS 
angle  of  4I  and  155  . 

K:1s^;  Single  precision  constant,  program  notation  "HALF"  stored  as  0.5, 
scaled  B-1  in  imits  of  revolutions.  Equation  value  when  used  as  a 
two’s  complement,  negative  number;  0.25  - 2”' 5.  (Equivalent  to 
about  90  degrees. ) 

K;1SECp1:  Single  precision  constant  stored  as  101  x 2"”'^,  scaled  B14  in 

units  of  centlseconds.  Equation  vaiue;  101. 

K;20. 5DEGS:  Single  precision  constant  stored  as  0.11389,  scaled  B-1 

in  units  of  revolutions.  Equation  value:  0.05695.  (Equivalent  to 

20.5  degrees.) 

—1 L 

K;250MSp1;  Single  precision  constant  stored  as  26  x 2 scaled  BI4 
in  units  of  centlseconds.  Equation  value:  26. 

K:4Qms;  Single  precision  constant,  program  notation  "BIT3",  stored  as 
000048,  scaled  BI4  in  tinlts  of  centlseconds.  Equation  value:  4. 
(Equivalent  to  half  the  nominal  value  of  one  radar  sampling  cycle.) 

-9 

K;90MSCALR:  Single  precision  constant  stored  as  9 x 2 , scaled  B9  in  units 

of  centlseconds.  Equation  value  9.  (Equivalent  to  90  milliseconds. ) 

_2 

K:C0S1d2DG:  Double  precision  constant  stored  as  0.999961923  x 2 , scaled 

B2  and  unitless.  Equation  value:  0.99996192. 
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—1 L 

KiLVELBIAS:  Single  precision  constant  stored  as  -12288  x 2 scaled 

B14  in  units  like  those  of  RNRAD.  Equation  value:  -12288.  (Program 
comment  states,  "Landing  radar  bias  for  153.6  kc.") 

K;m45DEGSR:  Single  precision  constant  stored  as  VOOOOg,  scaled  B-1  in 

units  of  revolutions.  Equation  value  when  used  as  a two’ s complement 
number:  -0.125.  (Equivalent  to  - 45  degrees.) 

K:m80DEGSR:  Single  precision  constant  stored  as  -0.44444,  scaled  B-1  in 

units  of  revolutions.  Equation  value  when  used  as  a two’ s complement 
number:  -0.22225.  (Equivalent  to  -80.01  degrees.) 

-9 

K:mDTSCALR:  Single  precision  constant  stored  as  -.59375  x 2 , scaled  B9 

in  units  of  centlseconds.  Equation  value  -.59375.  (Equivalent  to 
-5.9375  milliseconds) 

K:MAXTRYS:  Single  precision  constant  stored  as  60  x 2 scaled  B14  and 

unitless.  Equation  value:  60.  (Equivalent  to  30  seconds  of  time  for 
RR  designate. ) 

-1  3 

K:MCT0MS:  Double  precision  constant  stored  as  100  x 2 , scaled  B13  in 

units  of  centlseconds.  Equation  value:  100. 

K:p25:  Single  precision  constant  stored  as  -0.5,  scaled  B-1  in  units  of 

revolutions.  Equation  value:  +0.25.  (Equivalent  to  +90  degrees) 

K:RDESGAIN:  Single  precision  constant  stored  as  0.53624,  scaled  B12  in 

units  of  RR  drive  pulses  per  radian  of  error.  Equation  value  2196.5. 
(Equivalent  to  0.5  x 2 sec”"'  x 360  deg/rev  x (10/384)“'  pulses  per 
degree  per  second.  The  first  two  terms  null  0. 5 of  the  error  in 
second,  and  the  fourth  is  derived  from  the  fact  that  a saturated 
error  counter  causes  a drive  rate  of  10  degrees  per  second.) 

—28 

K:RD0TBIAS:  Double  precision  constant  stored  as  17000  x 2 , scaled 

B28  in  units  of  radar  counts  (same  as  RNRAD).  Equation  value:  17000. 

K:rrlimit:  Single  precision  constant,  program  notation  ’’-RRLIMIT’' , 

stored  as  -384  x 2“”' scaled  B14  in  units  of  RR  drive  pulses. 
Equation  value:  384.  (See  K:RRSPGAIN  for  explanation. ; 
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K:RRSPGAIN:  Single  precision  constant  stored  as  0.59062,  scaled  B1 5 in 

units  of  RR  drive  pulses  per  revolution  of  error.  Equation  value: 

19353.  (Equivalent  to  0.7  x 2sec“”'  x 360  deg/rev  x (10/384)“"'  pulses 
per  degree  per  second.  The  first  two  terms  "null  0.7  of  the  error  in 
^ second,"  and  the  fo\irth  is  derived  from  the  fact  that  a saturated 
error  counter  causes  a drive  rate  of  1 0 degrees  per  second.) 

LASTSCMD,  LASTTCMD:  Storage  for  the  previous  value  of  total  RR  shaft  and 

trunnion  CDU  error  counters;  scaled  BI4  in  units  of  RR  drive  pulses. 

Used  to  convert  present  position  deviation  into  a desired  rate  command 
to  be  inserted  into  CDUSCMD  or  CDUTCMD. 

LOG:  See  MA.TX  section. 

LOSCALAR:  A I4  bit  register  corresponding  to  channel  4 of  the  computer. 

It  is  incremented  1 bit  every  1/32(X)  of  a second  and  is  driven  by 
a 102.4  kc  signal  from  the  computer  oscillator.  It  overflows  (and  is 
propagated  to  channel  3)  every  5.12  seconds.  This  register  is 
0.005  second  out  of  phase  with  the  TIMENOW  registers.  It  is 
equivalent  to  a single  precision  time  cell  scaled  B9  in  units  of 
centiseconds. 

LOSCOUNT:  Single  precision  counter  defining  the  interval  between  compu- 

tation of  a new  line-of-sight  vector,  scaled  BI4  and  unitless. 

ipSVEL:  See  RNAV  section. 

MLOSV:  See  RNAV  section. 

M0DEALTq,M0DEALT^ ; Value  of  the  trunnion  and  shaft  angles,  respectively, 
which  are  necessary  to  point  the  RR  along  the  desired  line-of-sight 
in  the  alternate  mode  of  the  RR.  Single  precision  angles  in  two's 
complement  form,  scaled  B-1  in  units  of  revolutions.  Program  nota- 
tion "MODEB". 

MODEPRESq,  MODEPRES^ : Value  of  the  trunnion  and  shaft  angles,  respectively, 

which  are  necessary  to  point  the  RR  along  the  desired  line-of-sight 
in  the  present  mode  of  the  RR.  Single  precision  angles  in  two's  com- 
plement form,  scaled  B-1  in  units  of  revolutions.  Program  notation 
"MODEA". 

[nBSMMAT]:  See  COOR  section. 

NEWJOB:  See  MATX  section. 
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NSAMP;  A single  precision  counter,  scaled  B14.  Controls  the  number  of 
sampling  cycles  in  the  total  sampling  Interval  for  LR  velocity 
measurements. 

OLDATAGD;  A single  precision  cell  containing  the  status  of  radar  "data 
good"  discretes  at  the  beginning  of  a sample.  (See  RADMODES) 

OPTIONXq,  OPTIONX^:  See  EXVB  section. 

RADCADR:  Single  precision  octal  storage  for  address  to  return  to 

program  that  is  sampling  the  radar  and  waiting  for  sample  to  be 
completed. 

RADDEL:  Computed  in  "RADSTART"  it  is  a single  precision  time  until  the 

next  T5  interrupt,  scaled  B9  in  units  of  centiseconds.  Derived  from 
the  low  five  bits  of  LOSCALAR. 

RADGOOD:  Temporary  variable  introduced  as  a substitute  for  variable 

return  address;  set  to  1 or  0 to  indicate  whether  a radar  operation 
was  successfully  completed  or  not. 

RADLIMCK:  Temporary  variable  indication  which  of  three  return  options 

from  "RRDESSM"  is  taken. 

RADMODES;  A flagword  whose  bits  have  the  following  significance  when 
set  (1 ). 


Bit 

Mnemonic 

Meaning 

15 

CDESFLAG 

Continuous  designate;  used  in  conjunction  with  bit  10 

14 

REMODFLG 

RR  remode  required 

13 

RCDUOFLG 

RR  zeroing  in  progress 

12 

ANTENFLG 

RR  in  Mode  II  (in  Mode  I if  zero) 

11 

REPOSMAN 

RR  repositioning  in  progress;  RR  was  outside  of 
prescribed  limits. 

10 

DESIGFLG 

RR  designation  in  progress 

9 

ALTSCALE 

LR  range  high  scale  (low  scale  if  bit  is  zero) 

8 

LRVELFLG 

LR  velocity  data  bad  (LR  vel  data  good  if  bit  is  zero) 
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RADMODES:  (continued.) 


Bit  Mnemonic  Meaning 

7 RCDUFAIL  RR  CDU  operative  (RR  CDU  failed  if  bit  is  zero) 


6 

5 

4 

3 

2 


1 


LRPOSFLG  LR  commanded  to  and  presumed  to  be  in  position  #2 

LRALTFLG  LR  position  data  bad  (LR  pos  data  good  if  bit  is  zero) 

RRDATAFL  RR  data  bad  (if  zero,  the  RR  data  is  "good";  the  RR 
tracker  has  acquired  a target,  hopefully  the  CSM 
and  hopefully  not  a side  lobe). 


RRRSFLAG  RR  range  high  scale  (low  scale  if  bit  is  zero) 

AUTOMODE  RR  not  turned  on  or  not  in  automatic  mode  of  opera- 
tion (if  zero,  the  RR  is  on  and  it  is  in  the 
automatic  mode) 

TURNONFL  RR  tum-on  in  progress 


RADTIME:  Single  precision  storage  for  the  complement  of  the  value  of 

LOSCALAR  at  the  time  bit  4 of  channel  13  was  set,  scaled  B9  in 
units  of  centiseconds. 


RDES:  Desired  RR  position  angle  (shaft  or  trunnion);  a single  precision 

variable  in  two's  complement  form,  scaled  B-1  in  units  of  revolutions. 

RFAILCNT:  Single  precision  counter  scaled  B14  and  used  to  keep  track  of 

the  number  of  unsuccessful  attempts  to  read  the  radar  data. 


RNRAD:  Single  precision  LGC  counter  advanced  directly  by  whichever  radar 

circuit  is  enabled  for  sampling,  scaled  B14  in  units  of  counts. 

Sample  Type  Value  of  1 count 

RRRDOT  -0.1 91 35344  meters/second  -0.6278  fps 

RRRANGE 


low  scale 
high  scale 
LRVELX 
LRVELY 
LRVELZ 
LRALT 

low  scale 
high  scale 


2.859024 

22.872192 

-0.1962912 

0.3694176 

0.2642006 


meters 

meters 

meters/ second 
meters/second 
meters/second 


9.38  feet 
75.04  feet 
-O.644O  fps 
1.212  fps 
0.8668  fps 


0.3288792  meters 
1 . 644296  meters 


1.0790  feet 
5.3950  feet 
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RRINDEX:  Single  precision  index  to  indicate  whether  the  content  of  RDES 

is  a desired  shaft  angle  (l ) or  a desired  trunnion  angle  (O),  scaled 
B14. 

RRHET:  Single  precision  octal  return  address  storage. 

^TARGET:  Desired  llne-of-sight  vector,  a double  precision  unit  vector 
scaled  B1  in  stable  member  or  navigation  base  coordinates  (see 
FLAGftJRDO  bit  6). 

RSAMPDT:  A cell  used  for  storage  of  the  low-speed  sampling  interval,  in 

centiseconds  scaled  B14. 

RSTACK. : A series  of  4 double  precision  cells  loaded  with  radar  sample 

data  for  display  in  nouns.  66  and  67.  (i  = 0,  2,  4,  6) 

RTSTBASE:  Single  precision  quantity  scaled  B14  used  to  set  RTSTDEX  for 

LR  or  RR  sampling  in  an  automatic  sampling  mode. 

RTSTDEX:  An  option  loaded  by  the  astronaut  or  set  by  the  program  to  deslg' 

nate  the  specific  radar  data  to  be  sampled  single  precision, 
scaled  B1 4. 


RTSTLOC:  A single  precision  index  used  to  postion  sampled  data  in  the 

downlink  communication  cells  RSTACKj^^g^^^^ . 

RTSTMAX:  A single  precision  limit  on  the  number  of  RSTACK^  cells  to  be 

loaded,  scaled  B14. 

SAMPLIM:  A limit  on  the  number  of  sampling  cycles  that  may  be  executed 

in  a given  sampling  interval  to  limit  the  number  of  bad  samples  that 
may  be  attempted  before  the  sampling  is  abandoned,  scaled  B14. 


SAMPLSUM:  Double  precision  total  of  radar  data  accumulated  in  n 

intervals  (n  always  1 for  RR  and  LRALT),  scaled  B28  in  units 


radar  input  counts. 

Sample  Type 

RRRDOT 

RRRANGE 

LRVELX 

LRVELY 

LRVELZ 

LRALT 


Value  for  1 
-0.19135344 
2.859024 
-0.1962912 
0.3694176 
0.2642006 
0.3288792 


sample 

meters/second 

meters 

meters/ second 
meters/second 
meters/ second 
meters 


sampling 

of 
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SINTH:  See  COOR  section. 

[smNBMAtJ  : See  COOR  section. 

TANGq,  TANG^ : Single  precision  storage  for  desired  values  of  or  desired 

changes  in  the  RR  trunnion  and  shaft  angles,  respectively.  Scaled 
B-1  in  units  of  revolutions,  two’s  complement  form  in  the  "RRDESNB” 
and  "R21LEM"  routines.  Scaled  B2  in  units  of  radians  (one's  comp- 
lement form)  in  the  "BODES"  routine. 

TANGNBq,  TANGNB. : Temporary  two's  complement  storage  (astronaut  desired 

or  radar  marked)  radar  position  angles  (trunnion  and  shaft,  respect- 
ively), scaled  B-1  in  units  of  revolutions. 

THETA:  See  COOR  section. 

TIMEHOLD:  Double  precision  time  at  the  middle  of  the  total  sampling 

interval  (assuming  no  bad  samples),  scaled  B28  in  units  of  centl- 
seconds. 

TIMENOW:  See  EXVB  section. 

TRUMCMD-  Single  precision  storage  for  the  desired  values  of  the 

RR  tfunnion  and  shaft  angle  drive  rates,  respectively.  Scaled 
BI4  in  units  of  RR  drive  pulses.  An  alternate  mnemonic  for 
TRUNNCMD^  is  SHAFTCMD. 

TTOGO:  See  BURN  section. 

TTOTIG;  Double  precision  time  to  TIG,  loaded  in  the  radar  read  routine 
"RADAREAD"  at  the  time  of  the  radar  reading,  scaled  B28  in  units  of 
centiseconds. 
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RNAV 


Rendezvous  Navigation 


PR0G20 

(PR0G22) 

ORBCHGO 


If  FLAGWRD8  bit  8 (SURFFLAG)  = 0: 

Switch  FLAGWRD1  bit  8 (VEHUPFLG)  to  0 
Proceed  to  "PR0G20A" 

Switch  FLAGWRD1  bit  8 (VEHUPFLG)  to  1 

0PTI0N2  =1  (GSM  orbit  option) 

Proceed  to  "GOPERF4"  with  0PTI0N1  = 00012g 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  continue 
at  next  step;  other  response,  repeat  this  step.) 

If  0PTI0N2  = 1,  proceed  to  "PR0G20A" 

Proceed  to  "GOFLASH"  with  TS  = K:V06N33 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  continue 
with  next  step;  other  response,  repeat  this  step.) 

Perform  "INTSTALL" 

TS^  = TIG 

Inchtm 

TDEC1  = TIG 

Switch  FLAGWRD3  bits  4 (INTYPELG),  3 (VINTFLAG) , 2 (d60R9FLG) 
and  1 (DIMOFLAG)  to  0 

Perform  "INTE(21V" 

^UBL  = RATT 

TDEC1  = TAT 

Perform  "INTSTALL" 

Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  1 

Switch  FLAGWRD3  bits  4 (INITPFLG)  and  1 (DIMOFLAG)  to  0 
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If  FUGWRD5  bit  1 (RENDWFLG)  = 1: 

Switch  FLAGWED3  bits  1 (DIMOFLAG)  and  2 (D60R9FL.G)  to  1 
Perform  ''INTEGRV' 

VSUBC  = VATT 
RSUBC  = MTT 

UGSM  = unit(RSUBL<^unit(RSIBC*VSlBC)) 

CSTH  = unit(RSUBC)-UCSM 
SNTH  = Vi  - CSTH^' 

RVEC  = ^UBC 
VVEC  = -VSUBC 

Switch  FLAGWRD7  bit  9 (RVSW)  to  0 
Perform  "TIMETHET" 

NEWVEL  = -TS 

— — V 

NEWPOS  = TS 

— — r 

TS,  + = T 

transtm 

NCSMVEL  = |pVfVEL|  unit(unit(pWPOS»RSUBL)*NEWPOS) 

Perform  "INTSTALL" 

TET  = 

RRECT  = NEWPOS 
RCV  = NEWPOS 
YRECT  = NCSMVEL 
VCV  = NCSMVEL 
TDELTAV  = 0 
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TNUV  = 0 


PR0G20A 


P20LEM1 


P20LEMA 


TC  = 0 
XPREV  = 0 
PBODY  = 2 
Perform  "MOVEACSM" 

Switch  FLAGWRD8  bit  12  (CMOONFLG)  to  1 
Perform  "SVDWN1 " 

Set  FLAGWED8  bit  12  (CMOONFLG)  = FLAGWRDO  bit  12  (MOONFLAG) 
Perform  "INTWAKE1 " 

Perform  "R02B0TH"  (IMU  status  check  routine) 

Switch  FLAGWRD1  bits  5 (TRACKFLG)  and  7 (UPDATFLG)  to  1 
Switch  FLAGWRDO  bit  7 (RNDVZFLG)  to  1 

Switch  FLAGWRD2  bits  14  (SRCHOPTN)  and  13  (ACMODFLG)  to  0 
Switch  FLAGWRD3  bit  9 (R04FLAG)  to  0 
Switch  FLAGWRD5  bit  4 (NORRMON)  to  0 
Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  0 

Switch  RADMODES  bits  10  (DESIGFLG)  and  15  (CDESFLAG)  to  0 
Switch  bit  2 channel  12  ^ 0 
TRKMKCNT  = 0 
TDEC1  = TIMENOW 

Perform  "LPS20.1"  (get  RR  target  vector) 

If  MLOSV  ^ K:FHNM; 

Perform  "PRIOLARM"  with  TS  = 005268 

(if  terminate,  proceed  to  "TRMTRACK";  if  proceed, 
repeat  this  step;  other  response,  proceed  to  "P20LEM1".) 

End  job 

If  FLAGWRD8  bit  8 (SURFFLAG)  - 0,  perform  "R61LEM" 
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P20LEMB 


P20LEMB7 


P20LEMB1 


P20LEMB3 


Change  priority  to  26g 

If  FLAGWRD1  bit  5 (TRACKFLG)  = 0,  proceed  to  ’'P20LEMWT'' 

If  bit  2 of  channel  33  = 0,  proceed  to  "P20IJEMB3”  (RR  auto  mode) 
If  MODREG  f 20  and  if  MODREG  i 22: 

Perforin  "PRIOLARM"  with  TS  = 0051 

(if  terminate,  proceed  to  ”TMTRACK”;  if  proceed,  pro- 
ceed to  "P20LEMB”;  other  response,  proceed  to 
"P20LEMB".) 

End  job 

Proceed  to  "G0PERF1"  with  TS  = 00201g 

(if  terminate,  proceed  to  "TRMTRACK";  if  proceed,  proceed 
to  ”P20LEMB";  other  response,  continue  at  next  step.) 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1: 

Switch  bit  7 of  channel  11  to  1 (operator  error  lamp) 

Proceed  to  ''P20LEMB” 

Proceed  to  "R23LEM"  (manual  acquisition  monitor) 

Switch  FLAGWRD2  bit  13  (ACMODFLG)  to  1 
Proceed  to  "P20LEMB" 

If  RADMODES  bit  13  (RCDUOFLG)  =1:  (RR  just  turned  on  and 

still  zeroing) 

Delay  2.5  seconds 
Proceed  to  "P20LEMB3" 

If  FLAGWRD2  bit  U (SRCHOPTN)  or  13  (ACMODFLG)  = 1: 

Switch  FLAGWRD2  bits  14  (SRCHOPTN)  and  13  (ACMODFLG)  to  0 
Proceed  to  ''P20LEMWT" 
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P20LEMC3 


TDEC1  = TIMENOW 


P20LEMC 


P20LEMD1 


P20LEMF 

P20LEMWT 

P20LEMC1 


PROG21 


Perform  "UPPSV" 

If  FLAGWEDO  bit  7 (RNDVZFLG)  0,  end  job 
If  FLAGWRD1  bit  5 (TRACKFLG)  = 1,  proceed  to  "P20LEMF" 

Call  "P20LEMD1"  in  15  seconds 
End  job 

If  FLAGWRD1  bit  5 (TRACKFLG)  = 0; 

Call  "P20LEMD1"  in  15  seconds 
End  task 

Establish  "P20LEMC3" 

End  task 

Proceed  to  "R21LEM'' 

Call  "P20LEMC1"  in  2.5  seconds 
End  job 

If  FLAGV/RDO  bit  7 (RITOVZFLG)  - 0,  end  task 
If  FLAGWRD1  bit  5 (TRACKFLG)  = 0: 

Call  "P20LEMC1 " in  1 5 seconds 
End  task 

Establish  "R22LEM42"  (pr26) 

End  task 
0PTI0N2  = 1 

Proceed  to  "G0PERF4"  with  0PTI0N1  = 2 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  continue 
at  next  step;  other  response,  repeat  this  step.) 


(stall  until  TRACKFLG 
is  set  again,  then 
continue  at  automatic 
acquisition) 

(pr26) 
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P21VSAVE 


DSPTEMI^  = 0 
dp 

Proceed  to  "GOFLASH"  with  TS  = K:V06N34  (get  time  in  DSPTEM1 ) 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  the  next  step;  other  response,  repeat  this 
step. ) 

TS  = DSPTEMIj 
dp 

If  TS  = 0,  TS  = TIMENOW 
TDEC1  = TS 
Perform  "INTSTALL" 

If  FLAGWRDO  bit  11  (P21FLAG)  = 1: 

Proceed  to  "P21C0NT" 

Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  0 
If  |0PTI0N2|^  2;  (CSM  option) 

Switch  FLAGWRD3  bit  3 (VINTFUG)  to  1 
Switch  FLAGWRD3  bits  1 (DIMOFUG)  and  4 (INTYPFLG)  to  0 
Perform  "INTEGRV" 

P21TIME  = TAT 

P21BASER  = RATT  (scaled  B29  or  B27) 

P21BASEV  = VATT  (scaled  B7  or  B5) 

P21VEL  = j VATT  I (insured  scaling  of  B7  for  N91  display) 

P21GAM  = arcsin  (unit  MTT  • VATT  / P21VEL)  (RATT-B29,  VATT-B7) 
P210RIG  = PBODY  (PBODY  in  index  register  2) 

If  |0PTI0N2(  - 1: 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1: 

Skip  next  line 

Switch  FLAGWRDO  bit  11  (P21FIAG)  to  1 
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Switch  FLAGWRD3  bit  12  (LUNAFLAG)  to  0 
If  P210RIG  / 0 : 

Switch  FLAGWRD3  bit  12  (LUNAFLAG)  to  1 

ALPHAV  = RATT 

TS.  = TAT 
x» 

Switch  FLAGWRD1  bit  13  (ERADFLAG)  to  0 
Perform  "LAT-LONG" 

P21ALT  = ALT  K:K.01 ' F.  (ALT/lQO  for  N91  display) 

Proceed  to  "GOFLASH"  with  TS  = K:V06N43  (LAT,  LONG,  ALT) 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  proceed 
to  "GOTOPOOH";  other  response,  continue  at  next  step.) 

DSPTEM1(jp  = P21TIME  + K:600SEC 

Proceed  to  the  fourth  step  of  "PR0G21" 

P21 PONT  RCV  = P21 BASER 

VCV  = P21BASEV 

TET  = P21TIME 

Switch  FLAGWRD3  bit  1 (DIMOFLAG)  to  0 
Switch  FLAGWRDO  bit  12  (MOONFLAG)  to  0 
If  P2'rORIG  i-  0; 

Switch  FLAGWRDO.  bit  12  ( MOONFLAG)  to  1 
Perform  "INTEGRVS" 

Proceed  to  "P21VSAVE" 

PR0G25  Perform  "R02B0TH" 

Switch  FLAGWRD1  bit  5 (TRAGKFLG)  to  1 
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Switch  FLAGWRDO  bit  9 (P25FLAG)  to  1 
Switch  FLAGWRDO  bit  7 (RNDVZFLG)  to  0 


F25LEM1  If  FLAGWRDO  bit  9 (P25FLAG)  = 0,  end  job 
If  FLAGWED1  bit  5 (TRACKFLG)  = 0: 

Delay  60  seconds 

Establish  "P25LEM1"  (pr14) 

End  job 
R65CNTR  = 7 
Perform  "R65LEM" 

Proceed  to  "P25LEM1" 

LPS20 . 1 LS21X  = return  address 

If  FLAGWRD2  bit  12  (LOSCMFLG)  = 1 : 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1,  proceed  to  "CSMINT" 
Perform  "LEMCONIC" 

LMPOS  = RATT 
LMVEL  = VATT 
TDEC1  = TAT 

CSMINT  Perform  "CSMCONIC" 

TS  = [^FSMMAT]]  (VATT  - I^L) 

Remove  "STDESIG"  from  waitlist  if  it  is  there 

LOSVEL  = TS 

TS  = MTT  - LMPOS 

If  FLAGWRDO  bit  7 (RNDVZFLG)  = 1 : 

If  OVFIND  i 0,  OVFIND  = 0 
TS^=  unit^TS  x 2^j 
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(If  FLAGWRDO  bit  7 (RNDVZFLG)  = 1:) 

If  OVFIND  ^ 0:  (07FIND  reset  to  0) 


Perform  "PRIOLARM"  with  TS  = 00526- 

(if  terminate,  proceed  to  "TRMTRACK";  if 
proceed,  repeat  this  step;  other  response, 
proceed  to  "P20LEM1".) 


End  Job 


If  FLAGWRDO  bit  7 (RNDVZFLG)  = 0: 

TS  = unit  TS 

If  OVFIND  ^ 0:  (OVFIND  reset  to  O) 


Perform  "PRIOLARM"  with  TS  = 00526- 

(if  terminate,  proceed  to  "TRMTRACK";  if 
proceed,  repeat  this  step;  other  response, 
proceed  to  "P20LEM1".) 


End  Job 

^TARGET  = |rEFSMMAt3  unit  TS 
MLOSV  = I TS  I 

Switch  FLAGWRDO  bit  6 (RRNBSW)  to  0 
Proceed  to  LS21X 


UPPSV  LS21X  = return  address 
Perform  "INTSTALL" 

Perform  "SETIFLGS" 

If  FLAGWRD5  bit  1 (RENDWFLG)  = 1 ; 

Switch  FLAGWRD3  bit  1 (DIMOFLAG)  to  1 
If  FLAGWRD8  bit  8 (SURFFLAG)  = 0; 

Switch  FLAGWRD3  bit  2 (D60R9FLG)  to  1 
If  FLAGWRD1  bit  8 (VEHUPFLG)  = 0: 

Switch  FLflGWRDS  bit  3 (VINTFLAG)  to  0 
Perform  "INTEGRV" 


Perform  "INTSTALL" 

Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  1 
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(If  FLAGWRD1  bit  8 (VEHUPFLG)  = 0:) 


TDEC1  = TETLEM 
Proceed  to  "UPPSV4" 

Switch  FIAGWRD3  bit  3 (VINTFLAG)  to  1 
Perform  "INTEGRV" 

Perform  "INTSTALL" 

TDEC1  = TETCSM 

Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  0 
UFPSVA  Perform  "SETIFLGS" 

Perform  "INTEGRV" 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 0; 

Proceed  to  "P20LEMC" 
lilPOS  = RCVLEM  (rescaled  by  2“^) 

I^L  = VCVLEM  (rescaled  by  2"^) 

Retiarn  via  LS21X 

R61LEM  GENRET  = return  address 

Switch  FLAGWRD1  bit  10  (R61FLAG)  to  1 
Proceed  to  "R61C+L02'' 

R65LEM  GENRET  = return  address 

Switch  FLAGWRD1  bit  10  (R61FLAG)  to  0 
R61C+L01  If  bit  4 of  channel  33  = 1 , proceed  to  "R61C+Ij02" 
Switch  FLAGWRD3  bit  9 (R04FLAG)  to  1 

Perform  "RRRDOT" 

Perform  "RADSTALL" 

Perform  "RRRANGE" 
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Perform  "RADSTALL" 


Switch  FLAGtfRD3  bit  9 (RO4FLAG)  to  0 
R61C-*-L02  If  FLAGWRD1  bit  5 (TRACKFLG)  = 0; 

Proceed  to  ''P20LEMWT" 

SC AXIS  = K:UNITZ 

TDEC1  = TIMENOW  + K:3SEC0NDS 

Perform  "LPS20.1"  (get  RR  target  vector) 

POINTVSM  = RETARGET 

Inhibit  interrupts 

TScdu  = CDUD 

Release  interrupt  inhibit 
Perform  "VECPNT1" 

THETAD  = TS  '>  ■ 

If  FLAGWRD1  bit  5 (TRACKFLG)  = 0: 

Proceed  to  "P20LEMWT" 

If  bit  10  of  channel  30  or  bit  I4  of  channel  31 
Perform  "BALLANGS" 

Proceed  to  "R61C+L06" 

TSref  = ]PTARGET 
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Perform  "CDDTRIG" 


R61C+L06 


Perform  "SMTONB" 

= tsMNBMA^ 

If  - K:C0S15DEG^0: 

Inhibit  interrupts 
Perform  "ZATTEROR" 

Perform  "SETMINDB" 

Switch  FLAGWRD5  bit  6 (3AXISFLG)  to  0 
Switch  FLAGWRD4  bit  12  (PDSPFLAG)  to  1 
Perform  "R60LEM" 

Inhibit  interrupts 
Perform  "RESTORDB" 

Switch  FLAGWRD4  bit  12  (PDSPFLAG)  to  0 
Proceed  to  "R61C+L06" 

Inhibit  interrupts 
CDUD  = THETAD 


Release  interrupt  inhibit 

If  FLAGWRD1  bit  10  (R61FLAG)  = 1 or  R65CNTR  = 0,  return 
via  GENRET 

R65CNTR  = R65CNTR  - 1 
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R21LEM 


R21LEM10 

R21LEM2 

R21IEM1 


Delay  6 seconds 
Establish  "R61C+L01" 

Proceed  to  "ENDOEJOB" 

Switch  bit  14  channel  12  to  0 
If  FIAGWRD8  bit  8 (SURFFIAG)  = 0: 

TANGq  = 0 
TANG^  = 0 

If  FLAGWRD8  bit  8 (SURFFUG)  = 1 : 

If  RADMODES  bit  12  (ANTENFLG)  = 1: 

Proceed  to  "R21LEM10’' 

TANGq  = (-180°) 

TANG-1  = -i  (-90°) 

Switch  FUGWRDO  bit  5 (LOKONSW)  to  0 
Perform  "RRDESNB" 


Perform  "RADSTALL" 
If  RADGOOD  = 0: 


Perform  "PRIOLARM"  with  TS  = 00503;;^ 

(If  terminate,  proceed  to  "TRHTRACK": 
proceed  to  "R2^LEM" ; other  response, 
to  "P20LEMC3".) 


End  job 

Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  1 
DESCOUNT  = KrMAXTRIES 


LOSCOUNT  = 3 

TDEC1  = TIMENOW  + KrHALFSEC 

Perform  "LPS20.T"  (get  RR  target  vector) 


(pr  26) 


if  proceed, 
proceed 
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Switch  FIAGWRDO  bit  5 (LOKONSW)  to  1 
Switch  FIAGWRD5  bit  4 (NOEEMON)  to  0 
Perform  "EEDESSM" 


If  EADLIM3K  =0;  (not  within  mode  2 limits  on  lunar  surface) 
Proceed  to  "E21LEM4" 

If  EA.DLIM3K  = 1;  (not  within  limits  in  either  mode) 

Proceed  to  ."P20LEM" 

(otherwise,  EADLIMJK  =2) 


Perform  "EADSTALL" 

If  EADGOOD  = 0 ; (lock-on  not  achieved) 

Perform  "PEIOLAEM"  with  TS  = 00503^^ 

(If  terminate,  proceed  to  "TEMTEACK";  if  proceed, 
proceed  to  "E24LEM" ; other  response,  proceed 
to  "P20LEMC3".) 


End  job 

Switch  FLAGWED2  bit  12  (LOSCMFLG)  to  0 
If  FLAGWED8  bit  8 (SUEFFLAG)  = 1,  proceed  to  '’P20LEMWT" 
' •«  Proceed  to  *'E21DISPft^ 

R21LEM4  EEPOSCNT  = KrMArTEIES 

Switch  FLAGWRD0  bit  10  (FSPASFLG)  to  1 
Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  0 
EEPOSTM  = TIMENOW  + KzTEMSEC 
TDEC1  = TIMENOW  + K;TENSEC 
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60TIMES  Perform  "LPS20.1" 


Perform  "REDESSM" 

If  RADLIMCK  =0; 

If  REPOSCNT  = 0;  (looked  600  seconds  ahead  did  not  find) 

Perform  "fRIOLARM"  with  TS  = 530g 
(All  responses  go  to  "TRMTRACK" ) 

End  job 

REPOSCNT  = REPOSCNT  - 1 
REPOSTM  = REPOSTM+K;TENSEC 

TDEC1  = REPOSTM  (old  designate  time  plus  10  seconds) 
Proceed  to  "60TIMES" 

If  RADLIMCK  = 1 ; 

End  of  job 
If  RADLIMCK  = 2: 

Remove  "BEGDES"  from  waitlist 
If  FLAGWRDO  bit  10  (FSPASFLG)  = 0: 

Proceed  to  "R21LEM8" 

Switch  FLAGWRDO  bit  10  (FSPASFLG)  to  0 
REPOSTM  = REPOSTM+K:TENSEC 

TDEC1  = REPOSTM  (old  designate  time  plus  10  seconds) 
Proceed  to  ''60TIMES" 
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R21LEM8 


TDEC1  = REPOSTM 


Perform  "UPPSV" 

Switch  RMDMODES  bit  15  (CDESFLAG)  to  1 
Switch  FLAGWRDO  bit  5 (LOKONSW)  to  0 
Switch  FLAGWRD5  bit  4 (NORRMON)  to  1 
Perform  "RRDESNB" 

Call  "R21LEM9"  in  (REPOSTM-TIMENOW  seconds) 

End  of  job 

R21LEM9  Remove  "STDESIG"  from  waitlist 

Switch  RADMODES  bits  10  (DESIGFLG)  and  15  (CDESFLAG)  to  0 
Switch  bit  2 of  channel  12  to  0 

Establish  "R21LEM10"  (pr26) 

End  task 

y 

R21DISP  Perform  "G0PERF2R"  with  TS  = K:V06N72.  (CDUt  , CDUg) 

(if  terminate,  proceed  to  "TRMTRACK";  if  proceed,  proceed 
to  "P20LEMMT"j  other. response,  repeat  this  step.) 

Perform  "BLANKET" ’with  TS  = 001 OOg 

End  of  job 

R22LEM42  If  FLAGWRD8  bit  8 (SURFFLAG)  =0; 

R65CNTR  = 2 
Perform  "R65LEM" 

Proceed  to  "R22LEM" 

Delay  2 seconds 
Proceed  to  "R22LEM" 
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R22LEM 


If  FLAGWRDO  bit  7 (RNDVZFLG)  = 0,  end  job 

If  FLAGWRD1  bit  5 (TRACKFLG)  = 0,  proceed  to  "R22WAIT" 

If  bit  14  of  channel  12=0;  (RR  tracker  disabled) 

Proceed  to  "P20LEMA" 

If  bit  2 of  channel  33  = 1 s (RR  AUTO  mode  switch  not  set) 
Proceed  to  second  step  of  "P20LEMB7" 

If  RADMODES  bit  13  (RCDUOFLG)  = 1: 

Proceed  to  "R22LEM42" 

Perform  "LRS22.1" 

If  TSerror  = 1 , proceed  to  "P20LEMC" 

If  TSerror  = 2:  (actual  LOS  differs  from  computed  LOS) 

Perform  "PRIOLARM"  with  TS  = 00525g 

(if  terminate,  proceed  to  "TRMTRACK";  if  proceed, 
skip  next  step;  other  response,  repeat  this  step.) 

End  j ob 

Proceed  to  "PRIODSP"  with  TS  = K:V06N05  (display  deviation) 
(if  terminate,  proceed  to  "TRMTRACK";  if  proceed, 
continue  at  next  step;  other  response,  proceed  to 
"P20LEMC" . ) 

If  FLAGWRD8  bit  8 (SURFFLAG)  =0: 

If  FLAGWRD1  bit  5 (TRACKFLG)  = 0,  proceed  to  "R22WAIT" 

If  arccosRRBORSITz^  K;30DEG: 

Perform  "R61LEM" 

Proceed  to  "R22WAIT" 
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If  FLAGWRD1  bit  6 (NOUPFLAG)  = 1: 

Proceed  to  ''R22LEM42" 

If  FLAGWRD1  bit  7 (UPDATFLG)  = 0: 

Proceed  to  "R22LEM42” 

Perforin  "LSR22.3" 

TRKMKCNT  = TRKMKCNT  + 1 
If  FLAGWRD8  bit  8 (SURFFLAG)  = 0: 

R65CNTR  = 5 
Perform  ''R65LEM" 

Proceed  to  "R22LEM" 

Delay  2 seconds 
Proceed  to  "R22LEM" 

R22LEM96  N49FLAG  = 0 

Establish  "N49DSP’'  (pr27) 

If  N49FLAG  = 0,  repeat  this  step  (delay  until  N49FLAG  ^ O) 
If  N49FLAG  < 0: 

If  N49FLAG  = - 2,  proceed  to  "R22LEM'' 

Proceed  to  "ASTOK" 

Return  via  LGRET 

R22WAIT  Call  "P20LEMC1"  in  15  seconds 

Proceed  to  second  step  of  "P20LEMWT" 
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R22RSTRT  Perform  "RRRDOT"  (if  a restart  occurs  while  reading  radar 

come  here) 

Perform  "RADSTALL" 

If  RADGOOD  = 0,  proceed  to  "P20LEMC" 

(could  not  read  radar) 

Proceed  to  "R22LEM" 

N49DSP  Proceed  to  "PRIODSP"  with  TS=  K:V06N49 

(If  terminate,  set  N495'LAG  to  - 2 and  end  job}  if 
proceed,  set  N49FLAG  = -1  and  end  jobj  other 
response,  set  N49FLAG  to  + value  and  end  job.) 

R23LEM  Switch  FLAGWRD5  bit  % (NORRMON)  to  1 

Perform  "SETMINDB"  with  interrupts  inhibited 

Switch  bit  14  of  channel  12  to  1 (RR  track  enable) 

Proceed  to  "G0PERF1"  with  TS  = 00205rt  (request  manual  acquisition) 
(If  terminate,  proceed  to  "R23LEM2";  if  proceed,  continue 
at  next  step;  other  response,  proceed  to  "R23LEM3".) 

Inhibit  interrupts 

Perform  "RRLIMGHK"  with  TS«  = CDU.  and  TS.  = CDU 

U X IS' 

If  TSchk  =0;  (Manual  acquisition  not  within  limits) 

Perform  "PRIOLARM"  with  TS  = 00501 g 

( If  terminate , proceed  to  " R23LEM2" ; if  proceed , 
repeat  this  step;  other  response,  proceed  to  "R23LEM3".) 

End  j ob 

Perform  "RESTORDB" 

Release  interrupt  inhibit 

Switch  FLAGWRD5  bit  4 (NORRMON)  to  0 

Proceed  to  ”P20LEMB1" 
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R23LEM2 


R23LEM3 


R24LEM 


R24END 


R24LEM3 


Svitch  FLAGWRD5  bit  4 (NORRMON)  to  0 
Proceed  to  "TRMTR4CK" 

Perform  "R61LEM’' 

Proceed  to  third  step  of  "R23LEM" 

Switch  FLAGWRD2  bit  U (SRCHOPTN)  td  1 
Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  0 
DATAGOOD  = 0 
OMEGDISP  = 0 

Perform  "PRIODSPR"  with  TS  = K;V16n80  (monitor  DATAGOOD,  OMEGDISP) 
(If  terminate,  proceed  to  "TRMTRACK";  if  proceed,  proceed 
to  "R24END";  other  response,  proceed  to  "R24LEM3".) 

Proceed  to  "LRS24.1" 


Remove  "CALLDGCH"  from  waitlist  (kill  it) 

Switch  RADMODES  bits  10  (DESIGELG)  and  15  (ODESFLAG)  to  0 
Switch  bit  2 of  channel  12  to  0 (disable  RR  CDU  error  counters) 
Proceed  to  "P20LEM1" 

Remove  "CALLDGCH"  from  waitlist  (kill  it) 

Switch  RADMODES  bits  10  (DESIGFLG)  and  15  (ODESFLAG)  to  0 
Switch  bit  2 of  channel  12  to  0 (disable  RRCDU  Error  Counters) 


Delay  0,5  second 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 0; 
Perform  "R61LEM" 

RADCADR  = +0 
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LRS22.1 


READRDOT 


Proceed  to  fifth  step  of  "R24LEM" 

Switch  FLAGWRD5  bit  10  (RNGSCFLG)  to  0 
Inhibit  interrupts 

Set  RADMODES  bit  3 (RRRSFLAfi)  = bit  3 of  channel  33  (RR  range 

scale) 

Release  interrupt  inhibit 

Perform  "RRRDOT"  (read  RR  range-rate) 

Perform  "RADSTALL" 

If  RADGOOD  =0: 

TS error  = 1 


Return 

Inhibit  interrupts 

TS„/  = TIMEHOID 
5&6 

RDOTMSAV  = SAMPLSUM 


TS,  = CDU 

3 7 

TS,  = CDU 

4 z 

TS,,  = CDU 

2 X 


TS^  = TIMENOW 

TANGq  = CDU^ 

TANG,  = CDU 
1 s 

Release  Interrupt  Inhibit 


Perform  "RRRANGE" 
Perform  "RADSTALL" 


(Save  for  downlink  storage) 


(read  RR  range) 


RNA?  - 21 


If  RADGOOD  = 0; 


If  FLAGWRD5  bit  10  (RNGSCFLG)  = 1: 

Proceed  to  "READRDOT" 

TSerror  = 1 
Return 

Inhibit  interrupts 

RANGRDOT  = DNRADATA^g^2 

MKTIME  = 

AIG  = TS^ 

AMG  = TS, 

4 

TANGNBq  = TANGq 
TANGNB^  = TANG^ 

AOG  = TS^ 

release  interrupt  inhibit 

RDOTM  = KiRDOTCONV  RDOTMSAV  (scaled  to  (meters/centisecond)/2'^ ) 
RRTRUN  = TANGq  converted  to  one’s  complement  form 
RRSHAFT  = TANG^  similarly  converted 
RM  = K:RANGCONV  SAMPLSUM 

Perform  "RRNB"  (determine  actual  LOS  from  radar  position  angles) 

PBORSIT  = TS 

TDEC1  = TS. 

x» 

Perform  "LPS20.1"  (get  estimate  of  LOS  based  of  present  state 

vector  information) 


Perform  "CD*TR*GS"  with  MG  = (AOG,  AIG,  AMG) 

Perform  "SMTONB" 

TS  = jsMNBMAT]  ^TARGET 

DSPTEM1  = arccos  (TS  • RRBORSIT)  (angular  error  between 

the  two) 

If  DSPTEM1 ^ K :THREEDEG : 

TSerror  = 2 
Return 
TSerror  = 0 
Return 

LSR22.3  If  FLAGWRD8  bit  8 (SURFFLAG)  = 1 ; 

Proceed  to  "LSR22.4" 

Switch  FLAGWRD5  bit  9 (DMENFLG)  to  1 
If  FLAGWRD1  bit  8 (VEHUPFLG)  = 1: 

Perform  "INTSTALL" 

Switch  FLAGWRD3  bit  3 ( VINTFLAG)  to  0 
Perform  "SETIFLGS" 

TDEC1  = MKTIME 

Perform  "INTEGRV"  (LM) 

Perform  "INTSTALL" 

Switch  FLAGWRD3  bit 'l  (DIMOFLAG)  to  0 
If  FLAGWRD5  bit  'l  (RENDWFLG)  - 1 : 

Switch  FLAGWRD3  bits  1 (DIMOFLAG)  and  2 (D60R9FLG)  to  1 
Switch  FLAGWRD3  bits  3 (VINTFLAG) and  5 (STATEFLG)  to  1 
Switch  FLAGWRD3  bit  4 (INTYPFLG)  to  0 
TDEC1  = MKTIME 
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(If  FLAGWRD1  bit  8 (VEHUPFLG)  - 1:) 

Perform  "INTEGRV" 

If  FLAGWRD5  bit  1 . (RENDWFLG)  = 0: 

Perform  "WLINIT" 

Proceed  to  "RANGEBQ" 

Perform  "INTSTALL" 

Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  1 
Perform  "SETIFLGS" 

TDEC1  = MKTIME 
Perform  "INTEGRV" 

Perform  "INTSTALL" 

Switch  FLAGWRD3  bit  1 (DIMOFLAG)  to  0 
If  FLAGWRD5  bit  1 (RENDWFLG)  = 1 : 

Switch  FLAGWRD3  bits  1 (DIMOFLAG)  and  2 (D60R9FLG)  to  1 
Switch  FLAGWRD3  bits  3 (VINTFLAG)  and  4 (INTYPFLG)  to  0 
Switch  FLAGWRD3  bit  5 (STATEFLG)  to  1 
TDEC1  = MKTIME 
Perform  "INTEGRV" 

If  FLAGWRD5  bit  1 (RENDWFLG)  = 0: 

Perform  "WLINIT" 

Proceed  to  "RANGEBQ" 

LSR22.4  Perform  "INTSTALL" 

Switch  FLAGWRD3  bit  5 ( STATEFLG)  to  1 (Only  two  flag 

settiiigB  necessary 
because  of  SURFFLAG 
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Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  0 
TDEC1  = MKTIME 
Perform  "INTEGRV" 

Switch  FLAGWRD5  bit  9 (DMENFLG)  to  0 
Perform  "INTSTALL" 

If  TRKMKCNT  = 0: 

Perform  "WLINIT" 

Switch  FLAGWRD3  bit  3 (VINTFLAG)  to  1 

Perform  "SETIFLGS"  (Standard  flag  setting  for  integration) 
TDEC1  = MKTIME 
Perform  "INTEGRV" 

Proceed  to  "RANGEBQ" 

Switch  FLAGWRD3  bits  1 (DIMOFLAG)  and  3 (VINTFLAG)  to  1 
Switch  FLAGWRD3  bits  2 (D60R9FLG)  and  4 (INTYPFLG)  to  0 
TDEC1  = MKTIME 
Perform  "INTEGRV" 

Proceed  to  "RANGEBQ" 
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RANGEBQ,  If  FLAGWRD8  bit  8 (SURFFLAG)  = 0 ‘ 

R65CNTR  = 0 
Perform  "R65LEM’! 

WHCHREAD  = 1 (RANGE  code  in  N49) 

TSrlc  = DELTACSM  + RCVCSM  - DELTALEM  - RCVLEM  (scaling  controlled 

by  LMOONFLG ) 

ULC  = unitTSrlc  (quasi-floating  point) 

BVECTORq  = ULC 

If  FLAGWRD1  bit  8 (VEHUPFLG)  = 0,  BVECTORq  = - ULC 

BVECTOR^  = 0 

BVECTOR^  = 0 

DELTAQ  = RM  - I TSrlc  | 

VARIANCE  = RANGEVAR  | TSrlc 

If  VARIANCE  £ RVARMIN,  VARIANCE  = RVARMIN 

Perform  "LGCUPDTE" 

WHCHREAD  = 2 (R-RATE  code  in  N49) 

TSrlc  = DELTACSM  + RCVCSM  - DELTALEM  - RCVLEM 
ULC  = unitTSrlc  (quasi-floating  point) 

BVECTOR^  = TSrlc 

If  FLAGWRD1  bit  8 (VEHUPFLG)  = 0,  BVECTOR^  = - TSrlc 

TSvlc  = NUVCSM  + VCVCSM  - NUVLEM  - VCVLEM 

TSrdot  = ULC  • TSvlc 

VARIANCE  = RATEVAR  TSrdot^ 

If  VARIANCE  < WARMIN,  VARIANCE  = WARMIN 
DELTAQ  = j TSrlc I (RDOTM  - TSrdot) 

BVECTORq  = (ULC  * TSvlc)  * ULC 
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If  FIAGtfRDI  bit  8 (VEHUPFLG)  = 0,  BVECTORq  = - BTECTORq 
B7ECT0R2  =0  - uv  . = • , 

appropriate  scaling  change  Bade  (See  definition  of  BVECTORq) 
VARIANCE  = VARIANCE  | TSrlc|  ^ 

Perform  "LGCUPDTE" 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 1,  return  (to  caller  of  "LSR22,3") 
MG  = (AOG,  AIG,  AMG) 

Perform  "CD*TR*GS'' 

Perform  "NBTOSM" 


XNB  „ = 
— ref 

[refsmma'^  (nbsmma^ 

K:UNITX 

YNB  „ = 
— ref 

(refsmmatJ'^  (nbsmmatJ 

K:UNITY 

ZNB  „ = 
— ref 

JfeFSMMAT3  [pSMMA'3 

KtUNITZ 

TSrlc  = DELTAGSM  + RCVCSM  - DELTALEM  - RCVLEM 
NLC  = unitTSrlc 
SINTHETA  = - ULC  • 

RXZ  = |TSrlc|-\/  1 - SINTHETA*^* 

WHCHREAD  = 3 (shaft  code  in  N49) 

SINTH  = ULC  • 

COSTH  = ULG  • pBj.ef 
Perform  "ARCTAN" 

DELTAQ  = RXZ  (K:2PId8  RRSHAFT  - K:2PId8  THETA  - X789^) 
BVECTORq  = - unit  ( lILC*pB^g^) 

If  FLAGWRD1  bit  8 (VEHUPFLG)  = 0,  BVECTORq  = - BVECTORq 

BVECTORq  = 0 

BVECTOR2  = (RXZ  ,0,0) 
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VARIANCE  = RXZ^  (SHAFTVAR  + KiIMUVAR) 

Perform  "LGCUPDTE" 

TSrlc  = DELTACSM  + RCVCSM  - DELTALEM  - RCVLEM 

ULC  = unitTSrlc 

SINTHETA  = - ULC  • YNB  ^ 

— - ref 

RXZ  = I TSrlcj  Y ^ - SINTHETA^  ' 

WHCHREAD  = 4 (tr-unnion  code  in  N49) 

BVECTORq  = - (ULC  * ) * ULC 

If  FLAGWRD1  bit  8 (VEHUPFLG)  = 0,  BVECTORq  = - BVECTORq 
BVECTOR-i  = 0 

BVECTOR2  = (0,  RXZ,  0) 

VARIANCE  = RXZ^  (TRUNVAR  4-  K:IMUVAR) 

DELTAQ  = RXZ  (K:2PId8  RRTRUN  - K:2PId8  arcsinSINTHETA  - X789y) 
Perform  " LGCUPDTE" 

Return  (to  caller  of"LSR22.3") 

LRS24.1  NSRCHPNT  = 0 

Switch  bit  14  of  channel  12  to  1 (enable  RR  tracker) 

If  FLAGWRD2  bit  14  (SRCHOPTN)  = 0,  end  job 

Inhibit  interrupts 

Call  "CALLDGCH"  in  6 seconds 

Release  interrupt  inhibit 

If  RADMODES  bit  14  (REl^ODFLG)  = 1,  end  job 

TDEC1  = TIMENOW  + K:1.5SECS 

Perform  "LEMCONIC" 

K11SRCH  = MTT 
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TSv  = VATT 
TDEC1  = TAT 
Perform  "CSMCONIC" 

LOSDESRD  = unit(MTT  - miSRCH) 

VXRCM  = unit(unitVATT,.*  MTT) 

TS^  = (^FSMMA^  (VATT  - TSv) 

If  NSRCHPNT  = 0; 

^TARffiT  = ^FSMMA^  LOSDESRD 
If  NSRCHPNT  = 1 : 

IPCVECT  = unit  (VXRCM  * LOSDESRD) 

UYVECT  = unit (LOSDESRD  * UXVECT) 

PTARGET  = [rEFSMMA'^  unit  (K:0FFSTFAC  UYVECT  + LOSDESRD) 
If  NSRCHPNT  > 1 ; 

UXVECTPR  = UXVECT 
UYVECTPR  = UYVECT 

roCVECT  = unit(K:SIN60DEG  UYVECTPR  + K:C0S60DEG  UXVECTPR) 
UYVECT  = unit (K: COS 60DEG  UYVECTPR  - K:SIN60DEG  UXVECTPR) 
PTARGET  = [rEFSMMAtJ  unit  ( K : OFFSTFAC  UYVECT  + LOSDESRD) 
LOSVEL  = 

Inhibit  intenrupts 

Remove  "STDESIG"  from  waitlist  if  it  is  there 
Switch  RADMODES  bit  15  (CDESFLAG)  to  1 
Perform  "RRDESSM" 
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If  RADLIMCK  i-  2: 


(not  within  limits) 


OMEGCALC 


CALLDGCH 


DATGDCHK 


Perform  "ALARM"  with  TS  = 00527g 
Inhibit  interrupts 

Remove  a call  to  "CALLDGCH"  from  waitlist  if  it  is  there 

Proceed  to  "ENDOFJOB" 

TANGNBq  = CDU^ 

TANGNB.  = CDU 
1 s 

Perform  "RRNB"  (get  LOS  vector  in  nav.  base  coordinates) 
OMEQDISP  = arccos  TS 

z 

Proceed  to  "ENDOFJOB" 

If  FLAGWRDO  bit  7 (RNDVZFLG)  =0,  end  task 
Establish  "DATGDCHK"  (pr25) 

End  task 

If  bit  4 of  channel  33  = 0:  (RR  data  good) 

DATAGOOD  = K:ALL1S 
Inhibit  interrupts 

Remove  "STDESIG"  from  waitlist  if  it  is  there 

Proceed  to  "ENDOFJOB" 

If  NSRCHPNT  = 6,  proceed  to  "LRS24.1" 

NSRCHPNT  = NSRCHPNT  + 1 

Proceed  to  second  step  of  "LRS24.1" 
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R29  If  RADMODES  bit  10  (DESIGn-G)  = 1,  proceed  to  "R29.L0S" 

Inhibit  interrupts  ' ^ of 

» y ••  i — 

Switch  RADMODES  bit  10  (DESIGFLG)  to  1 on 

,r4AV  ■ 

Switch  bit  14  of  channel  12  to  0 (disable  tracker) 

Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  0 
Switch  FLAGWRDO  bit  1 (OLDESFLG)  to  0 
Perform  ’'SETRRECR" 

If  RADMODES  bit  12  (ANTENFLG)=  1: 

Call  "PREP0S29"  in  0.01  second 
Switch  RADMODES  bit  11  (REPOSION)  to  1 
Proceed  to  "N0R29N0W" 

Establish  "R29REM0J"  (pr21 ) 

Switch  RADMODES  bit  10  (DESIGFLG)  to  0 
Switch  RADMODES  bit  14  (REMODFLG)  to  1 
Proceed  to  "N0R29N0W" 

R29.L0S  TS^  = TIMENOW  - PIPTIME 

TS  = RCSM  - R + TS^  (VCSM  - V) 

If  FLAGWRD2  bit  12  (LOSCMFLG)  = 1,  proceed  to  "N0R29N0W" 

Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  1 
LOSSM  = TS 

L0SVDTd4  = K:.5SECB17  (VCSM  - V) 

Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  0 

If  FLAGWRDO  bit  1 (OLDESFLG)  = 1,  proceed  to  "N0E29N0W’' 

Inhibit  interrupts 

Switch  FLAGWRDO  bit  1 (OLDESFLG)  to  1 


mm  = 


TS  = 100 


R29REM0J 


PREP0S29 


R29READ 


R29RDJ0B 


If  PIPCTR  >0,  TS  = 4 
Call  "BEGDES29"  in  TS  centlseconds 
Release  interrupt  inhibit 
Proceed  to  "N0R29N0W" 

Call  "REMODE"  in  0.01  second 


Perform  "RADSTALL" 

End  j ob 

RDES  = -i  (-180°) 

Perform  "RRTONLY" 

Switch  RADMODES  bit  11  (REPOSMON)  to  0 
End  task 

Establish  "R29RDJ0B"  (pr26) 

Delay  2 seconds 

If  FLAGWRD3  bit  9 (READRFLG)  = 1,  proceed  to  "R29READ" 
End  task 

If  FLAGWRD3  bit  11  (N0R29FLG)  = 1,  proceed  to  "ENDR29RD" 
If  RADMODES  bit  2 (AUTOMODE)  = 1,  proceed  to  "ENDRRD29" 


Perform  "RRRDOT" 


Perform  "RADSTALL" 

If  RADGOOD  = 0,  proceed  to  "ENDRRD29" 
TS^  = TIMEHOLD 
Inhibit  interrupts 


TS 


cdut 


CDU^ 


TS 


cdus 


CDU 

s 


RNAV^^  32 


TS  = (5OTi 

eduy  y 

TS,  ^ = CDU 

cduz  z 

TS  ^ = CMT 

cdux  z 

R29RANCT:  Perform  "REMNGE" 

Perform  "RADSTALL" 

If  RADGOOD  =0; 

If  FLAGWRD5  bit  10  (RNGSCFLG)  = 0,  proceed  to  "ENDRRD29" 
Switch  FLAGWRD5  bit  10  (RNGSCFLG)  to  0 
Proceed  to  "R29RANGE" 


Inhibit  interrupts 


RMq  = DNRADATA,j 
RK,  = DNRADATA2 


MKTIME  = TS,, 


TANGNBq  = TS 
TANGNB,|  = TS 


AIG  = TS 


cduy 


AMG  = TS 


cdhz 


cdut 

cdus 


AOG  = TS 
TRKMKCNT 


odhz 
= 1 


Release  interrupt  inhibit 


End  job 

ENDRRD29  Switch  channel  12  bit  14  to  0 
ENDR29RD  TRKMKCNT  =0 

Switch  FLAGWRD3  bit  9 (READRFLG)  to  0 


RlBRA\i-  -3^2 


BE(DES29 


R29D0DES 


End  job 

Establish  "R29D0DES" 

Delay  0.5  second 

If  RADMODES  bit  10  (DESIGFLG)  = 0,  end  task 
If  FLAGWRD2  bit  12  (LOSCMFLG)  = 1: 

Delay  0.01  second 

Proceed  to  third  line  of  "BEGDES29" 
Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  1 
Proceed  to  "BEGEDES29" 

TANG  = 1 

If  TANG  > 0,  TSsm  = LOSSM 
If  TANG  = 0: 

LOSSM  = LOSSM  + L0SVDTd4 
TSsm  = LOSSM  + L0SVDTd4 

^^LOSSM  = 

If  TANG  >0: 

Inhibit  interrupts 

TS  ^ ^ = CDU 
cdut  t 

TS  ^ = CDU 

cdus  s 

MG  = CDU  _ ; 

Perform  "QUICTRIG" 

Perform  "SMTONB" 


(pr21 ) 
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ULOSNB  = [sMNBMAT]  TS^ogg^^ 

If  TANG  = 0,  proceed  to  "R29DPAS2" 
Inhibit  interrupts 
TANG  = 0 


TS  = cos  TS  , . 
cost  sp  cdut 


TS  . . - sin  TS  , . 
sint  sp  cdut 


TS  , = sin  TS  , 

sins  sp  cdus 


TS  = cos^.  TS  , 
coss  Sp  cdus 


TSm  = TS  TS  ^ ULOSNB  - TS  ^ ^ ULOSNB  + TS  . TS„.  ^ ULOSNB 
coss  cost  z sint  y cost  sins 


TSm  = 2 TSm  (cosine  of  auigle  between  actual  LOS  and  radar  LOS) 


If  overflow,  TS  - + 1 
If  TS  = +1: 


(overflow  will  occur  when  radar  IDS 
converges  with  actual  LOS) 


Switch  bit  14  of  channel  12  to  1 (self  track  enable) 

Release  interrupt  inhibit 

Proceed  to  second  step  of  "R29D0DES" 

R29DPAS2  TANG„  = TS  ULOSNB  - TS  . ULOSNB 
— 0 coss  X sins  z 

TSm  = TS  . ^ TS  , ULOSNB  + TS  ^ ULOSNB  + TS  TS  . ^ ULOSNB 
sint  sins  x cost  y coss  sint 

SHAFTCMD  = K:RR29GAIN  TANGq 
TRUNNCMDq  = K:RR29GAIN  TSm 

If  bit  4 of  channel  33  = 1 : (RR  tracker  not  locked  on) 

Perform  "RROUT" 

Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  0 
End  job 

Switch  RADMODES  bit  10  (DESIGFLG)  to  0 

Switch  bit  2 of  channel  12  to  0 (disable  RRCDU  Error  Counters) 
Switch  FLAGWRD3  bit  9 (READRFLG)  to  1 
TS  = 100 
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WLINIT 


LGCUFDTE 


If  PIPCTR  >0,  TS  = 4 

Call  "R29READ"  in  TS  centiseconds 

Switch  FLAGWRD2  bit  12  (LOSCMFLG)  to  0 

End  j ob 

p = WRENDPOS 

V = WRENDVEL 


If  FLAGWRD8  bit  8 (STJRFFLAG)  = 1: 
p = WSURFPOS 
V = WSURPVEL 


3 = WSHAFT 


t = WTRUN 


[w]  = 


p 0 0 
0 p 0 
0 0 p 


0 

0 

0 


0 0 0 V 

0 0 0 0 

0 0 0 0 


0 0 0 
0 0 0 
0 0 0 


0 

0 

0 


Switch  FLAGWRD5 
TRKMKCNT  = 0 


0 0 
0 0 
0 0 

0 0 
V 0 

0 V 

0 0 
0 0 
0 0 

bit 


0 0 0 
0 0 0 
0 0 0 

0 0 0 
0 0 0 
0 0 0 

3 0 0 

0 t 0 
0 0 0 

1 (RENDWFLG)  to  1 


Return 


L(31ET  = return  addre33 
Perform  "INC0RP1" 

R22DISPR  = JdELTAXqI 
R22DISPV  = jDELTAX^I 

If  R22DISPR  > RMAX  or  if  R22DISPV  > VMAX: 

Proceed  to  "R22LEM96"  (get  aatronaut  OK) 
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ASTOK 


INCORP1 


INC0R2-3 


Perform  ''INC0RP2" 

Return  via  L®ET 
EGRESS  = return  address 


^^0  = 


ZIl  = 


ZI2  = 


n 12^2-32 

1)’13”23  33J 

16  26  3'"^ 

jw^gW^s^^gl  bvector^  + 


W-iW  iW^i 

BVECIOR^  . |VJ^,W5 

53  6:^ 


W 

W 

W 


"71^81^91 

BVEOTOR^+IW^Wg^M^^iVEOTORj 
'73"83"9; 


BVECTOE.  + BVECTOE,+ fwi^^l^^ivECTOH, 

I ■ “ " ¥^4 

\ 


BVECTOR^t 


:77?!87f!9l 


'”79^89^^ 


If  FUGWRD5  bit  9 (DMENFLG)  = 0,  ZI2  = 0 
TS  = VARIANCE  + ZIq  • ZIq  + ZI^  * ZI^  + ZI2 


GAMMA  = 1 / ( ’V^ARI'^NCE  TS^  + TS) 
Proceed  to  "NEWZCOMP" 


OMEGA^  = ZI^  + 


;i2^2j3i 

'13  23  3: 


gp  ^ 


OMEGA^  = 


OMEGA2  = 


ZI 

' ■ k^yi  ■ 


>8^58^68 

^49^59^69 


+ ZI.  + ZI 


- 1 


'”76”86”9^ 


--"2 


If  FLAGWRD5  bit  9 (DMENFLG)  = 0,  OMEGA2  = 0 

DELTAXq  = OMEGAq  DELTAQ  / TS 

DELTAX^  = OMEGA^  DELTAQ  / TS 

DELTAX2  = OMEGA2  DELTAQ  / TS 

Return  via  EGIESS 
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(i  = 0,  1,  2) 


NEWZCOMP  Set  TS^  to  the  largest  jZI^i 

TS2  = (number  of  leading  zeros  in  TS^ ) - 2 

Shift  each  ZI^  left  by  TSg  places  (i  = 0,  1,  2) 

Proceed  to  " INC0R2-3"  (effect  of  TS2  taken  into  account  in 

subsequent  scaling  shifts) 

INC0RP2  EGRESS  = return  address 

Perform  "INTSTALL"  (wait  until  orbital  integration  is  free) 

OMEGAMq  = GAMMA  OMEGAq 

OMEGAM^  = GAMMA  OMEGA^ 

gMEGAM2  = GAMMA  gMEGA2 

Switch  FLGWRD10  bit  7 (REINTFLG)  to  1 

(Assure  that  this  job  retains  control  of  the 
integration  routines  even  in  case  of  a restart) 

(OMEGAMq  , OMEGAMq  , OMAEGAMq 
X • y z 


(OMEGAMq  , OMEGAMq  , OMEGAMq  ) 
X y z 


next  step 


(OMEGAM2  ,0MEGAM2  , OMEGAM2  ) 


(OMEGAMq  , OMEGAMq  , OMEGAMq  ) 
X y z 


■^11 

^21 

^31 

^11 

W21 

«31 

^12 

^22 

^32 

^12 

^22 

W32 

- 

W13 

^23 

^33 

1 

W13 

W23 

W33 

ZlJ 

zj 

“41 

^1 

^6l' 

^61 

^lo' 

“42 

^52 

^62 

r: 

V 

^52 

^62 

“43 

^53 

1^43 

^53 

''63 

ZIo^ 

zJ 

If  FLAGWRD5 

bit 

9 (DMENFLG) 

= 0, 

skip 

^71 

^81 

W9- 

W7I 

^81 

^91 

■^^o' 

^72 

^82 

W92 

W72 

^82 

W92 

- 

W73 

^83 

W93 

W73 

% 

W93 

7T  ^ 
z 

"^u 

^24 

^34 

‘^14 

^24 

"3^1 

■zi/ 

^15 

W25 

W35 

'"is 

W25 

W35 

- 

ZI," 

L«16 

^26 

^36 

yi6 

^26 

"36 

ZI^^ 

Z 
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FAZC 


^44  ^54  ^64 

^44  ^4  ^64 

^5  ^55  ^65 

^45  ^55  ^65 

^46  ""se  ^66 

V ''56  ^66 

>»  1 

m” 

ISJ 

L 

(OMEGAM^  jOMEGAM^  ,OMEGAM^  ) 
X y z 


If  FLAGWRD5  bit  9 (DMENFLG)  = 0.,  proceed  to  "FAZC" 


y y y 

84  94 

^74  ^84  ^94 

Zl/ 

W75  Wg^ 

W75  Wg^ 

- 

ZI^^ 

^76  ^86  ^96 

^76  ^^86  ^96 

ZI^^ 

- 

z 

•»  « 

u w u " 
17  27  37 

^17-^27  ^37 

"ZI2- 

^18  ^28  ^38 

= 

^^18  ^28  ^38 

- 

Zl2^ 

W19  ^29  ^39 

^19  ^29  ^39 

Zl2^ 

“ *■ 

L y 

r ^ 

W47 

W47  Wgn, 

ZI2 

^8  ^58  ^68 

^48  ^58  ^68 

- 

Zl2^ 

W49  Wgg 

^^49  ^59  ^69 

Zl/ 

L 

W77  Wg^  Wgr, 

W77  Wg^ 

2^2 

^^78  ^88  ^98 

= 

^78  ^88  ^98 

- 

ZI2'' 

W79  Wgg 

W79  Wgg  Wgg 

Zl/ 

2 

(OMEGAM2  ,0MEGAM2  ,0MEGAM2  ) 
X y z 


(OMEGAMq  ,OMEGAMq  jOMEGAMq  ) 
X y z 


(OMEGAMq  , OMEGAMq  , OMEGAMq  ) 
X y z 


(OMEGAM2  ,0MEGAM2  ,0MEGAM2  ) 

X y z 


KC789  = X789  + DELTAX2 

If  FLAGWRD1  bit  8 (VEHUPFLG)  = 1 , perform  "MOVEPCSM" 
If  FLAGWRD1  bit  8 (VEHUPFLG)  = 0,  perform  "MOVEPLEM" 
TS  = TOELTAV  + DELTAXq 

PBODY  =_0  (acaling  eontro.l<lad  by  "PBODY) 

If  FLAGWHD8  bit  11  (LMOONFLG)  = 1,  PBODY  = 2 
If  overflow: 

RCV  = MLTAXj^  + RCV 


VCV  = MLTAX^  + VCV 
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(if  overflow;) 

Perform  "RECTIFY" 

Proceed  to  "FAZAB3" 

TDELTAV  = TS 

TS  = TNUV  + DELTAX^ 

If  overflow; 

VCV  = DELTAX^  + VCV 
Perform  "RECTIFY" 

Proceed  to  "FAZAB3" 

TOUV  = TS 

FAZAB3  If  FLAGWRD1  bit  8 (VEHUPFLG)  = 1; 
Perform  "MOVEACSM" 

Perform  "SVDWN1" 

If  FLAGWRD1  bit  8 (VEHUPFLG)  = 0; 
Perform  "MOVEALEM" 

Perform  "SVDWN2" 

If  FLAGWRD5  bit  9 (DMENFLG)  = 1 ; 

X789  = p789 
Perform  " INTWAKE" 

Return  via  EGRESS 

V67CALL  If  OVFIND  = 1 , Switch  OVFIND  to  0 

Switch  FLAGWRD7  bit  8 (V67FLAG)  to  0 
Perform  "INTSTALL" 
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WWBIAS  1 = 1-9. 

WWPOS  = ^LCW^i^  + ^21^  ^ i = 1-9 

WWVEL  for  i = 1-9^ 

If  OWIND  0:  . ; -::  : 

OVFIND  = 0 
WWPOS  = KtDPPOSMAX 
WWVEL  = KrDPPOSMAX 
WWBIAS  = KtDPPOSMAX 
If  WWPOS  > K;FT99999: 

WWPOS  = K;FT99999 
Perform  "INTWAKE" 

^^/POS  = 

t\vel  = 
t^ias  = 

Proceed  to  "GOXDSPF"  with  TS  = K:V06N99  (WWPOS,  WWVEL j WWBIAS) 

(if  terminate,  proceed  to  "ENDEXT";  if  proceed,  proceed  to 
next  step;  other  response,  repeat  this  step.) 

If  - WWVEL  + TS^^Qg  - WWPOS  + TS^^j^S  “ WWBIAS  0 (crew  input) 

Switch  FLAGWED7  bit  8 (V67FLAG)  to  1 

If  FLAGWRD7  bit  8 (V67FLAG)  = 0,  proceed  to  "ENDEXT" 

TSq  = WWPOS  (double  precision  - rescaled  for  internal  use) 

TS^  = WWVEL  (double  precision) 

TS2  = WWBIAS  (double  precision  - rescaled  for  internal  use) 


(rescaled  for 
display) 

(if  one  over- 
flows, all 
limited  to 
posmax) 
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If  FLAGWRD8  bit  8 (SURFFLAG)  = 1: 


WSURFPOS  = TSq 
WSURFVEL  = TS^ 
WTRUN  = TS^ 
WSHAFT  = TS2 
Switch  FLAGWRD5 


..single  precision 
single  precision 
single  precision 
single  precision 
bit  1 (RENDWFLG)  to  0 


Proceed  to  "ENDEXT" 


WRENDPOS  = TSq 
WRENDVEL  = TS^ 

WTRUN  = TS^ 

WSHAFT  = TS^ 

Switch  FLAGWRD5  bit 
Proceed  to  "ENDEXT" 


single  precision 
single  precision 
single  precision 
single  precision 
1 (RENDWFLG)  to  0 
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DSPRRLQS  Establish  "RRLOSDSP" 


(pr05) 


Change  priority  to  04g 

Perform  "GOXDSPFR"  with  TS  = K:V16N56  (RR-AZ,RH-ELEV) 
(Any  response,  switch  bit  5 of  EXTVBACT  to  0 
and  end  Job.) 

Perform  "BLANKET"  with  TS  = 00004g  (Blank  R3) 

End  Job 

RRLOSDSP  TS-,  = CDUt 

TS2  = CDUg 

Perform  "RRNBMPAC" 

TS  = unit  (TS  , 0,  TS  ) 

TS  = TS 
— a 

COSTH  = TS  . K:UNITZ 

— e - 

SINTH  = KiUNITX  • TS 

— — e 

Perform  "ARCTR.IG" 

If  THETA  < 0,  THETA  = 1 + THETA 

RR-ELEV  = THETA 

SINTH  = TS  . K: UNITY 
“a  — 

COSTH  = TS  . TS 

— a — e 

Perform  "ARCTRIG" 

If  THETA  < 0,  THETA  = 1 + THETA 
RR-AZ  = THETA 
Delay  1 second 

If  bit  5 of  EXTVBACT  = 1 , proceed  to  "RRLOSDSP" 

Proceed  to  "ENDEXT" 
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Quantities  in  Computations 


ALPHA:  See  CONG  section, 

ALT:  See  COOR  section. 

ANG:  See  COOR  section. 

AOG,  AIG,  AMG:  Single  precision  storage  for  ICDU  angles,  scaled  B-1  in' 

units  of  revolutions  and  stored  in  two's  complement  form. 

EVECTORq:  Double  precision  vector  defining  the  resolution  of  a navigation 

measurement  into  corrections  to  the  position  components  of  the  state 
vector  and  the  W-matrix;  scaled  B1  and  unitless  or  scaled  in  units 
of  meters  per  centisecond.  Scaling  is  changed  depending  on  whether 
BVECTORj,  or  B'VECTOR.,  has  the  largest  unsealed  magnitude.  That  term 
is  then  normalized  and  BVECTOR(.j , B^VECTOR-,  DELTAQ  and  'VARIANCE  are 
rescaled  to  reflect  the  change  In  BVECTORq 

BVECTOR^ : Double  precision  vector  defining  the  resolution  of  a navigation 

measurement  into  corrections  to  the  velocity  components  of  the  state 
vector  and  the  W-matrix;  scaled  B24  in  units  of  meters.  Scaling 
change  is  described  in  EVECTORq. 

B'VECT0R2:  Double  precision  vector  defining  the  resolution  of  a navigation 

measurement  into  corrections  to  the  Rendezvous  Radar  position  biases 
(shaft  and  trunnion)  and  the  RR  components  of  the  W-matrlx;  scaled 
B25  in  units  of  meters. 

CDU.  : See  RADR  section. 

^ ^ s 

CDU:  See  COOR  section. 

CDUD:  See  DAPA  section. 

COSTH:  See  COOR  section. 

CSTH:  See  CONC  section. 

DATAGOOD:  Single  precision  display  register,  sealed  BI4  and  uhitless. 

Used  in  Routine  24  to  indicate  to  the  astronaut  that  the  RR  has 
acquired  a target. 

. - ■ . . . ... 
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DELTAQ;  Double  precision  difference  between  measured  and  predicted 
values  of  a navigation  measurement;  range  measurement  scaled  B29 
(earth)  or  B27  (moon)  in  units  of  meters;  range-rate  measurement 
scaled  B33  (earth)  or  B31  (moon)  in  units  of  meters  squared  per 
centisecond;  RR  position  angle  measurement  scaled  B29  (earth)  or 
B27  (moon)  in  units  of  meters.  Scaling  change  described  in  BVECTORq. 

DELTAXqI  Double  precision  position  correction  vector  scaled  B29  (earth) 
or  B27  (moon)  in  units  of  meters. 

D^ELTAX^ : Double  precision  velocity  correction  vector,  scaled  B7  (earth) 

or  B5  (moon)  in  units  of  meters  per  centisecond. 

D^ELTAX2:  Double  precision  Rendezvous  Radar  position  bias  correction 

vector  (shaft  and  trunnion  with  third  component  zero)  scaled  B5 
(earth)  or  B3  (moon)  in  units  of  radians. 

DESCOUNT:  See  RADR  section. 

DNRADATA^;  See  RADR  section. 

DSPTEM1 : Temporary  storage  cell  used  mainly  for  display  interface 

purposes. 

EGRESS:  Single  precision  octal  return  address  storage  cell. 

EXT7BACT : See  SX7B  eeetlon. 

GAMMA:  Double  precision  weighting  factor  in  update  of  W-matrix,  scaled 

B-40  in  units  of  meters"^  or  B-48  in  \inits  of  centiseconds  squared  per 
meter4. 

GENRET:  Single  precision  octal  return  address  storage  cell. 

-17 

K:.5SECB17:  Double  precision  constant  stored  as  50  x 2 ^ scaled  B17 

in  units  of  centiseconds.  Equation  value  50. 

—28 

K:1.5SECS:  Double  precision  constant  stored  as  150  x 2 , scaled  B28 

in  units  of  centiseconds. 

_2 

K:2PId8:  Double  precision  constant  stored  as  3.141592653  x 2 j scaled 

B3  and  unitless.  Equation  value:  6.283185306. 

K:30DEG:  Double  precision  constant  stored  as  0.083333333,  scaled  BO  in 

units  of  revolutions.  Equation  value:  0.083333333.  (Equivalent  to 
30  degrees . ) 


RNAV  - 45 


—28 

K:3SEC0NDS:  Double  precision  constant  stored  as  300  x 2 scaled  B28 

in  units  of  centiseconds.  Equation  value;  300,  (Equivalent 
to  3.0  seconds.) 

—28 

K:600SEC:  Double  precision  constant  stored  as  60000  x 2 , scaled 

B28  in  units  of  centiseconds.  Equation  value:  60000.  (Equivalent 
to  10  minutes. ) 

—1 A 

K:ALL1S:  Single  precision  constant  stored  as  11111  x 2 , scaled  B14 

and  unitless.  Equation  value:  11111. 

K:C0S15DEG:  Double  precision  constant  stored  as  0.96593  x 2 , scaled 

B1  and  unitless.  Equation  value:  cosine  of  1 5 degrees. 

K;C0S60DEG:  Double  precision  constant  stored  as  0.5,  scaled  BO  and 

unitless.  Equation  value:  0.5. 

K:DPP0SMAX:  Double  precision  constant  stored  as  37777g  37777g. 

-20 

K:FHM:  Double  precision  constant  stored  as  740800  x 2 , scaled 

B20  in  units  of  meters.  Equation  value:  740800.  (Equivalent  to 
400  nautical  miles.  ) 

-19 

K:FT99999:  Double  precision  constant  stored  as  30479  x 2 , scaled 

B19  in  units  of  meters. 

—28 

K: HALFSEC:  Double  precision  constant  stored  as  50  x 2 , scaled  B28 

in  units  of  centiseconds.  Equation  value:  50. 

6 *1 2 

K:IMLn/'AR:  Double  precision  constant  stored  as  10  x 2 ,_gcaled 

B-12  in  units  of  radians  squared.  Equation  value:  10 

K:K.01:  Double  precision  constant  stored  as  0.01,  scaled  BO.  Used 

to  convert  output  from  "LAT-LONG"  from  units  of  meters  to  meters/1 00 

—1 4 

K:MAXTRIES:  Single  precision  constant  stored  as  60  x 2 , scaled  B14 

and  unitless.  Equation  value:  60. 

K:0FFSTFAC:  Double  precision  constant  stored  as  0.05678,  scaled  BO 

and  unitless.  Equation  value:  0.05678. 

_3 

K:RANGCONV:  Double  precision  constant  stored  as  2.859024  x 2 , scaled 

B3  in  units  of  meters  per  count.  Equation  value;  2.859024. 
(Equivalent  to  9.38  feet  per  count  or  2.859  meters  per  count.) 
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K:RDOTCONV:  Double  precision  constant  stored  as  -0.0019135344  x 2*^, 

scaled  B-7  in  units  of  meters  per  centisecond  per  count.  Equation 
value:  -0.0019135344.  (Equivalent  to  -0.6278  fps  or  -0.19135 
meters  per  second  per  count.  ) 

K:RR29GAIN:  Single  precision  constant  stored  as  -0.53624,  scaled  B12 

in  units  of  RR  drive  pulses  per  radian  of  error.  Equation  value: 
2196.5.  (Equivalent  to  K;RDESGAIN  as  defined  in  RADR  section.) 


K:SIN60DEG:  Double  precision  constant  stored  as  0.86603,  scaled  BO  and 

unitless.  Equation  value:  0.86603. 

K;TENSEC:  Double  precision  constant  stored  as  1000  x 10~  scaled  B28 

in  units  of  centiseconds.  Equation  value:  1000.  (Equivalent  to 
10  seconds.) 

K:THREEDEG:  Double  precision  constant  stored  as  0.008333333,  scaled  BO 

in  units  of  revolutions.  Equation  mlue:  0.008333333.  (Equivalent 
to  3.0  degrees.) 

K:IINITX,  K: UNITY,  K: UNITE:  Double  precision  constant  unit  vectors, 

scaled  B1  and  unitless.  Equation  value:  (1,  0,  O),  (O,  1,  O) 
and  (O,  0,  1 ) , respectively. 

LAT:  See  COOR  section. 

EGRET:  Single  precision  octal  return  address  storage  cell. 

MPOS:  Double  precision  temporary  storage  vector  of  the  LM  position, 

scaled  B29  in  units  of  meters. 

JMVEL:  Double  precision  temporary  storage  vector  of  the  LM  velocity, 

scaled  B7  in  units  of  meters  per  centisecond. 

LONG:  See  COOR  section. 

LOSCOUNT:  See  RADR  section. 

LOSDESRD:  Double  precision  desired  line-of-sight  vector  from  the  LM  to 

the  GSM,  a unit  vector  scaled  B1  and  unitless. 

ipSSM:  Double  precision  LOS  vector,  scaled  B24  in  units  of  meters. 

LOSVDTdA:  Double  precision  change  in  LOS  vector  derived  from  ^ second 

of  lOS  velocity,  scaled  B24  in  \inits  of  meters. 
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ipSVEL:  Double  precision  velocity  vector  of  CSM  with  respect  to  LM, 

scaled  B7  in  units  of  meters  per  centisecond. 

LS21X;  Single  precision  octal  return  address  storage  cell. 

MKTIME:  Double  precision  time  at  which  the  RR  range  rate  measurement 

is  made,  considered  as  "time. -of  the, mark"  for  incorporation  purposes , 
scaled  B28* in  unite  of  eentiseconds, 

MLDSV:  Double  precision  magnitude  of  the  LOS  vector,  scaled  B29  in 

units  of  meters  if  FLAGWRDO  bit  7=0,  scaled  B20  otherwise. 

(See  RNAV  - 8) 

MODREG:  See  DATA  section, 

N49FLAG:  Single  precision  flag  to  control  the  delay  in  "R22LEM96". 

{nBSMMA'^  : See  COOR  section. 

NCSMVEL:  Double  precision  velocity  vector  for  the  velocity  after  a 

plane  change  in  routine  "ORBCHGO"  , scaled  B7  (earth)  or  B5  (moon) 
in  units  on  meters  per  centisecond. 

NEWPOS;  Double  precision  position  vector  for  the  state  prior  to  a 
plane  change  maneuver,  scaled  B29  (earth)  or  B27  (moon)  in  units 
of  meters. 

NEWVEL:  Double  precision  velocity  vector  for  the  state  prior  to  a 

plane  shange  maneuver,  scaled  B7  (earth)  or  B5  (moon)  in  units 
of  meters  per  centisecond. 

NSRCHPNT:  Single  precision  counter  to  direct  the  search  pattern  in 

routine  24  to  one  of  its  six  options,  scaled  BI4  and  unitless. 

NUVCSM,  NUVLEM:  See  RCVCSM  in  ORBI  section. 

OMEGA-:  Double  precision  vector  containing  part  of  the  weighting  factors 

TO  determine  the  impact  of  a navigation  measurement  on  each  of  the 
position  components  of  the  state  vector  and  W-matrlx;  scaled  B39 
in  units  of  meters  squared  or  B43  in  units  of  meters  cubed  per  centi- 
second , ■ for  no  ' "NEWZCOMP" . 

OMEGA^ : Double  precision  vector  containing  part  of  the  weighting  factors 

TO  determine  the  impact  of  a navigation  measurement  on  each  of  the 
velocity  components  of  the  state  vector  and  W-matrix;  scaled  B20  in 
units  of  meters  squared  per  centisecond  or  B24  in  units  of  meters 
cubed  per  centisecond  squared,  for  no  "NEWZCOMP". 
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OMEGA^:  Double  precision  vector  containing  part  of  the  weighting  factors  to 

determine  the  impact  of  a navigation  measurement  on  each  of  the  RR 
position  biases  and  the  RR  components  of  the  W-matrix;  scaled  B15  in 
units  of  meters  or  B19  in  units  of  meters^/centisecond  for  no  "NEWZCOMP" 

OMEGAM„,  ^EGAM^ , OMEGAM2:  Double  precision  product  of  GAMMA  with  OMEGA^, 

OMEGA^  and  ^EGA^;  with  variable  scaling  and  units. 

OMEGDISP:  Double  precision  angle  between  line-of-sight  vector  and  LM  +Z 

axis,  scaled  BO  in  imits  of  revolutions. 

0PTI0N1 , 0PTI0N2:  See  DATA  section. 

OVFIND:  Single  precision  cell  which  is  set  to  some  non-zero  value  if 

an  overflow  occurs. 

P21ALT:  Value  of  ALT  K:K.01  computed  in  "P21VSAVE"  for  (optional) 

display  in  R1  of  N91 , scaled  factor  B29,  units  (meters/1 00 ) : 
see  K:  K.  01 . 

P21BASER;  Value  of  P21  "base"  vector  for  position,  scale  factor  B29 

(earth)  or  (moon),  units  meters  ( earth/moon ) . Loaded  after  completion 
of  integration  to  specified  input  time,  and  used  to  initialize 
the  integration  if  bit  11  (P21FLAG)  of  FLAGWRDO  = 1 , thus  permitting 
computation  time  to  be  saved  if  it  is  desired  to  iterate  about  a 
point  which  is  a number  of  orbital  integration  time  steps  removed 
from  the  "permanent"  CSM/LM  state  vector. 

P21BASEV:  Value  of  P21  "base"  vector  for  velocity,  scale  factor  B7  (earth) 

or  B5  (moon),  units  meters/centisecond.  See  P21 BASER. 

P21GAM;  Value  of  flight  path  angle  computed  in  "P21VSAVE"  for  (optional) 
display  in  R3  of  N91 , scale  factor  BO,  units  revolutions. 

P21 ORIG;  Single  precision  cell  used  to  determine  scaling-,  pertaining  to 
either  earth  or  moon  centered  vectors;  value  of  0 (earth),  2(moon) 
scaled  BI4. 

P21TIME:  Cell  used  to  retain  time  infomation,  scale  factor  B28,  units 

centiseconds.  Used  in  P21  to  contain  the  time  tag  of  P21 BASER  and 
P21BASEV,  and  to  permit  the  incrementing  of  the  time  for  which  the 
N34  display  is  generated 

P21VEL:  Double  precision  storage  for  the  magnitude  of  the  predicted 

velocity  of  the  vehicle  (crew  option  GSM  or  LM)  at  the  time 
specified  in  Noun  34,  scaled  B7  in  units  of  meters/centisecond. 


RNAV  - 49 


PBODY; 


See  ORBI  section. 


PIPCTR:  See  SERV  section. 

PIPTIME:  See  SERV  section. 

POINTVSM:  See  ATTM  section. 

R:  See  DESG  section. 

R22DISPR,  R22DISPV:  Double  precision  registers  for  display  of  navi- 

gation update  to  position  and  velocity,  scaled  B29  and  B7  in  units 
of  meters  and  meters  per  centisecond  respectively.  (Listing 
mnemonics  R22DISP  and  R22DISP+2). 

R65CNTR:  Single  precision  number  of  passes  at  six  second  intervals  to 

be  accomplished  of  routine  65,  scaled  BI4  and  unitless. 


RADCADR: 

RADGOOD: 

RADLIMCK: 

RADMODES: 


See  RADR  section. 
See  RADR  section. 
See  RADR  section. 
See  RADR  section. 


RANGEVAR:  Double  precision,  pad  loaded  variance  expected  in  measured 

range,  scaled  B-12  and  unitless.  Previously  a fixed  memory  con- 
stant with  an  equation  value  of  0. 0033333  squared. 

RANGRDOT:  Double  precision  word  used  to  store  DNRADATA^  2 tele- 
metry use.  ’ 


RATEVAR:  Double  precision,  pad  loaded  variance  expected  in  measured 

range  rate,  scaled  B-12  and  unitless.  Previously  a fixed  memory 
constant  with  an  equation  value  of  0.0043333  squared. 

^TT:  See  ORBI  section. 

RCSM:  See  SERV  section. 


RCV:  See  CONG  section. 

RCVGSM,  RCVLEM:  See  ORBI  section. 
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RDES: 


See  RADR  section. 


RDOTM:  Double  precision  measured  range  rate,  scaled  B7  in  units  of 

meters  per  centisecond. 

RDOTMSAV:  Double  precision  temporary  storage  location  for  SAMPLSUM, 

scaled  B28  in  units  of  radar  counts  (where  one  count  represents 
-O.I9I35344  meters/second). 

jREFSMMAT']| : See  COOR  section. 

REPOSCNT:  Single  precision  cell  used  as  a counter  for  limiting  the 

number  of  calls  to  integration  in  R26  scaled  BI4. 

REPOSTM;  Double  precision  storage  used  to  save  the  time  of  the  state 
vectors  used  in  the  previous  RR  target  vector  calculation , scaled 
B28  in  units  of  centiseconds. 

RIHSRCH:  Double  precision  LM  position  vector  scaled  B29  in  units  of 

meters. 

RM:  Double  precision  magnitude  of  measured  range,  scaled  B29  in 

units  of  meters.  Also  used  in  routine  29  as  two  single  precision 
storage  cells  (RMq  and  RM.  ) for  downlink.  They  are  identical  to 
DNRADATA^  and  DNRADATA2,  respectively. 

RMAX:  Pad  loaded  maximum  value  of  position  update  allowed  without  astro- 

naut approval,  scaled  BI9  in  units  of  meters.  (Single  precision) 

RR-AZ;  Double  precision  angle  measured  from  the  X-Z  nav.  base  plane 
to  the  RR  LOS  vector,  scaled  BO  in  units  of  revolutions. 

RMORSIT:  Double  precision  measured  line-of-sight  vector,  a unit 

vector  scaled  B1  , uni'i.less  and  expressed  in  nav.  base  coordinates. 

R^CT:  See  CONG  section. 

RR-ELEV:  Double  precision  angle  measured  from  the  Z nav.  base  axis  to 

the  projection  of  the  RR  LOS  vector  in  the  X-Z  nav.  base  plane, 
scaled  BO  in  units  of  revolutions. 

RRSHAFT:  Double  precision  measured  value  of  Rendezvous  Radar  shaft 

angle,  scaled  BO  in  units  of  revolutions. 

RRTARffiT;  See  RADR  section. 
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RRTRUN;  Double  precision  measured  value  of  Rendezvous  Radar  trunnion 
angle,  scaled  BO  in  units  of  revolutions. 

RSUBC;  Double  precision  GSM  position  storage  vector  used  in  the 

"ORBCHGO"  routine,  scaled  B29  (earth)  or  B27  (moon)  in  units  of 
meters. 

R^SUBL:  Double  precision  LM  . position  storage  vector  used  in  the 

"ORBCHGO"  routine,  scaled  B29  (earth)  or  B27  (moon)  in  ixnits 
of  meters. 

RVARMIN:  Single  precision,  pad  loaded  minimum  expected  value  of  VARIANCE 

in  a range  measurement,  scaled  B12  in  units  of  meters  squared. 

Changed  by  the  program  to  a triple  precision  value  scaled  B40 
in  units  of  meters  squared.  Previously  a fixed  memory  constant  . 
with  an  equation  value  of  8.1  sqmred  meters  squared  or  27  ja 
squared  feet  squared. 

RVEC:  See  CONG  section. 

RXZ;  Double  precision  component  of  the  LOS  vector  in  the  LM  X-Z  plane,  be- 
fore normalization  scaled  B29(earth)  or  B27(moon)  in  units  of  meters. 

SAMPLSUM:  See  RADR  section. 

SCAXIS:  See  ATTM  section. 

SHAFTCMDi  An  alternate  mnemonic  for  TRUNNCMD^ , see  RADR  section. 

SHAFTVAR:  Single  precision  pad  loaded  variance  associated  with  the  measured 

value  of  the.RSv*hkft:i*ngle,  scaled  B-tg''in  units  of  radian*  squared. 


SINTH:  See  COOR  section. 

SINTHETA:  Double  precision  sine  of  the  RR  trunnion  angle,  scaled  B1 

and  unitless. 

(SMNBMATJ:  See  COOR  section. 

SNTH:  See  CONG  section. 

T:  See  CONG  section. 

TANG„  See  RADR  section. 

TANGNBq  ^ : See  RADR  section. 
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TAT: 


See  ORBI  section. 


TC;  See  CONG  section. 

TDEC1 : See  ORBI  section. 

TDELTAV:  See  ORBI  section. 

TET:  See  ORBI  section. 

TETCSM,  TETLEM:  See  RCVCSM  in  ORBI  section. 

THETA:  See  COOR  section. 

THETAD:  See  ATTM  section. 

TIG:  See  BURN  section. 

TIMEHOLD:  See  RADR  section. 

TIMENOW:  See  EXVB  section. 

TNUV:  See  ORBI  section. 

TRKMKCNT:  Single  precision  count  of  nianber  of  navigation  updates  made 

during  P20  or  P22,  scaled  BI4  and  unitless.  Cell  also  used  in  R29 
to  indicate  data  storage  for  down  telemetryj  1 - data  stored, 

0 - data  not  stored. 

TRUNNCMDq:  See  RADR  section. 

TRUNVAR:  Single  precision  pad  loaded  variance  associated  with  the  measiored 

value  of  the  RR  tinmnion  angle,  scaled  B-12  in  units  of  radlans^.^ 

TX789:  Temporary  storage  for  updated  ]^89  vector. 

UCSM:  Double  precision  unit  vector  of  the  extimated  GSM  position  at 

the  orbit  change  msmeuver  point,  scaled  B1  and  unitless. 

^C:  Computed  line-of-sight  vector,  a unit  vector  scaled  B1 . 

ULOSNB;  Double  precision  unit  vector  of  the  RR  LOS  in  nav.  based 
coordinates,  scaled  B1  and  unitless. 

UXVECT:  Double  precision  imit  vector  used  in  defining  UYVECT  for  the 

RR  search  routine  (R  24),  scaled  B1  and  unitless. 
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UXVECTPR:  Double  precision  storage  for  the  IDCVECT  of  the  previous 

position  of  the  RR  in  the  search  routine  (R  24),  scaled  B1. 
and  imitless. 

UYVECT:  Double  precision  unit  vector  used  to  give  the  direction 

of  the  offset  factor  from  the  computed  LOS  in  determining  the 
desired  RR  boreslght  vectcr  for  the  RR  search  routine  (R  24), 
scaled  B1  and  unitless. 

UYVECTPR:  Double  precision  storage  for  the  UYVECT  of  the  previous 

position  of  the  RR  in  the  search  routine  (R  24),  scaled  B1 
and  unitless. 

V;  See  DESC  section. 

VARIANCE:  Triple  precision  variance  associated  with  a 

measurement,  scaled  B40  in  units  of  meters  squared 
units  of  meters^  per  centisecond  squared.  Scaling 
described  in  BVECTORg  in  this  section. 

VATT:  See  ORBI  section. 

VCSM:  See  SERV  section. 

VCV:  See  CONC  section. 

VCVCSM,  VCVLEM:  See  RCVCSM  description  in  ORBI  section. 

VMAX:  Pad  loaded  maximum  value  of  velocity  update  allowed  without  astro- 

naut approval,  scaled  B7  in  units  of  meters/centisecond, ‘single 
precision. 

VRECT;  See  CONC  section. 

VSUBC:  Double  precision  CSM  velocity  storage  vector  used  in  the  "ORBCHGO" 

routine  scaled  B7  (earth)  or  B5  (moon)  in  units  of  meters  per 
centisecond. 

WARMIN;  Single  precision,  pad  loaded  minimum  expected  value  of  range 
rate  measurement  variance,  scaled  B-12  in  units  of  meters  squared 
per  centisecond  squared.  Changed  by  the  program  to  a double 
precision  value  scaled  B4  In  the  same  units.  Previously  a fixed 
memory  constant  with  an  equation  value  of  0.0013  squared  meters 
squared  per  centisecond  squared-per  second  squared. 

WEC;  See  CONC  section. 


navigation 
or  in 
changed  as 
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VXRCM:  Double  precision  unit  vector  defining  the  GSM  orbital  plane  for 

the  RR  search  routine,  scaled  B1  and  unitless. 


M: 


Double  precision  "error  transition  matrix,"  a 9x9  matrix  (whose 
last  three  rows  and  columns  are  not  always  maintained)  defined  such 
that  the  covariance  matric  E equals  W W^.  The  individual  elements 
of  the  matrix  are  denoted  by  two  subscripts , the  first  Indicating 
the  row,  the  second  indicating  the  ..column.  The  first  three  rows  are 
scaled  B19  in  units  of  meters;  the  middle  three  rows  are  scaled 
BO  in  units  of  meters  per  centlsecond;  the  last  three  rows  are 
scaled  B-5  in  units  of  radians.  Because  of  LGC  limitations  on 
vector  manipulations,  the  elements  of  the  W-matrix  are  stored 
in  the  following  order: 


Address 

Standard 

Address 

Standard 

Address 

W+0 

^11 

^2 

W 

w_i 

w-^ 

”l2 

W ^ 

W22 

W32 

13 

.W+54 

W^^ 

W^ 

^2 

^62 

43 

W+1 08 

W+2 

W+56 

W+1 10 

W+4 

W+58 

W+1 12 

W+6 

W+60 

W+1 14 

W+8 

W+62 

W+1 16 

W+10 

W+64 

W+1 18 

W+1 2 

W+66 

W+1 20 

• 

• 

• 

• 

• 

• 

Standard 
W. 


71 
,81 

91 

72 
82 

92 

73 


W+46  W-j. 

W+48 

W+50  W'2 

W+52 


W+1 00  W, . 
W+1 02 

W+1 04  W^^ 

W+1 06  Wg 


W+1 54  W - 
W+1 56  w;° 
W+1 58  V'l 
W+1 60  W°^ 


In  other  words: 


0 

6 

12 

18 

24 

30 

36 

42 

48 

2 

8 

14 

20 

26 

32 

38 

44 

50 

4 

10 

16 

22 

28 

34 

40 

46 

52 

54 

60 

66 

72 

78 

84 

90 

96 

102 

56 

62 

68 

74 

80 

86 

92 

98 

104 

58 

64 

70 

76 

82 

88 

94 

100 

106 

108 

114 

120 

126 

132 

138 

144 

150 

156 

110 

116 

122 

128 

134 

140 

146 

152 

158 

112 

118 

124 

130 

136 

142 

148 

154 

160 

WHCHREAD:  Single  precision  code  to  indicate  which  navigation  measure- 

ment is  being  Incorporated  into  a state  vector  scaled  B14  (1 -range, 
2-range  rate,  3-shaft,  and  4-trunnlon). 
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WRENDPOS,  WRENDVEL,  WSURFPOS,  WSURFYEL,  WSHAFT,  WTRUN:  Single  prec- 

ision initial  estimates  for  the  uncorrelated  variance  in  spacecraft 
position,  spacecraft  velocity  in  flight  and  on  the  surface,  and 
Rendezvous  Radar  position  estimates,  scaled  B14>  BO,  B14»  BO,  B-5, 
B-5  in  units  of  meters,  meters  per  centlsecond,  meters,  meters  per 
centlsecond,  radians  and  radians  respectively,  pad  loaded  value. 

WWPOS,  WWVEL,  WWBIAS:  Double  precision  square  roots  of  the  sums  of  the 

squares  of  the  position,  velocity,  and  shaft  alements  of  the  W- 
matrlx,  scaled  B19,  BO,  and  B5,  respectively,  in  units  of  meters, 
meters  per  centlsecond,  and  radians. 

X789:  Double  precision  vector  containing  the  best  estimate  of  bias 

necessary  to  offset  RR  position  error,  scaled  B5  (earth)  or  B3 
(moon)  in  units  of  radians,  pad  loaded  value. 

piBref,  INB^  P^B^  Double  precision  unit  vectors  in  the  directions 

of  the  LM  + X,  +1  and  +Z  navigation  base  axes  respectively,  scaled  B1 
and  unitless;  expressed  in  reference  coordinates. 

XPREV:  See  CONG  section. 

ZIq,  ZI-^  , ZI2:  Double  precision  intermediate  vector  quantities  in  the 

navigation  measurement  updates  of  the  state  vector  and  the  W-matrix, 
scaled  B20  in  units  of  meters  or  B24  in  units  of  meters  squared  per 
centlsecond,  before  "NEWZCOMP"  shifts. 
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SERV 


Servicer 


PREREAD  Establish  "LASTBIAS" 


(pr21 ) 


Perform  "PIPASR"  skipping  first  step  (PIPTIMEI  unchanged) 

Switch  FLAGWRD7  bits  6 (V37FLAG)  and  5 (AVEGFLAG)  to  1 

Switch  FLAGWRD2  bit  15  (DRIFTFLG)  to  0 

Establish  "NORMLIZE"  (pr22) 

Delay  2 seconds 

READACCS  TS  = TIME5  - 16377 

If  TS  ^ 0,  TIME5  = TIME5  - 1 sign(TS) 


Perform  "PIPASR" 

Establish  "SERVICER"  (pr20) 

Switch  bit  9 of  channel  11  to  1 (test  connector  output) 

If  FLAGWRD7  bit  5 (AVEGFLAG)  = 0: 

AVEGEXIT  = "AVGEND" 

End  task 

If  FLAGWRD6  bit  8 (MUNFLAG)  = 1 : 

PIPCTR  = 7 

Call  "R10,R11"  in  0.2  second 
Call  "READACCS"  in  2 seconds 
End  task 

PIPASR  PIPTIMEI  = TIMENOW 

DELV  =0 
z 

DELV  = 0 

y 

DELV  = 0 
xis 

TEM  = - PIPA 

lELV  = PIPA  (single  precision  into  more  significant 

PIPA  “0  ( O)  halves  of  MLV  "'omponents) 

PGUIDE  = PIPTIMEI  - PIPTIME 


SERV  - 1 


NORMLIZE 


SERVICER 


CDUTEMP  = GDU 
PIPATMP  = DELV 
Return 

If  FLAGWRD6  bit  8 (MURELAG)  = 1 : 

R = [^SMMA^  pi 

Perform  "MUNGRAV"  with  TSr  = R 

V = [refsmmat]  W1 

pyP  = unit(VCSM  * pSM) 

If  FLAGWRD6  bit  8 (MURFLAG)  = 0; 

Perform  "CALCGRAV"  with  TSr  = pi 
Inhibit  interrupts 

Perform  "COPYCYC”  skipping  first  two  steps  (MASS  unchanged) 
Release  interrupt  inhibit 
End  job 

IdPIPADT  = K:PRI031 
Perform  "l/PIPA" 

ABDELV  = I DELV  | 

ABDVCONV  = KiKPIP  ABDELV 
MASS1  = MASS 

If  FLAGWRD8  bit  8 (SURFFLAG)  = 0: 

TSv  = K:DPSVEX 

If  FLGWRD10  bit  13  (APSFLAG)  =1,  TSv  = KrAPSVEX 
MASS1  = MASS1  + MASS  ABDVCONV  / TSv 
DVTOTAL  = DVTOTAL  + KiKPIPI  | DELV  | 

Perform  "QUICTRIG"  with  ANG  = CDDTEMP 

PBPIP  = (COSIGA  COSMGA,  SINMGA,  - SINIGA  COSMGA) 
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ZNBPIP  = COSIGA  COSOGA  - SINIGA  SINOGA  SINMGA 
z 

ZNBPIP  = - SINOGA  COSMGA 
7 

ZNBPIP  = COSOGA  SINIGA  + COSIGA  SINOGA  SINMGA 

X 

YNBPIP  = ZNBPIP  » PBPIP 

AVERAGEG  If  FLAGWRD6  bit  8 (MUNFLAG)  = 1,  perform  "RVBOTH" 

If  FUGWRD6  bit  8 (MUNFLAG)  = 0,  perform  "CALCRVG" 

Perform  "COPYCYC" 

PIPATMP  = 0 

Switch  FLAGWRD2  bit  11  (STEERSW)  to  0 
If  FLAGWRD7  bit  7 (IDLEFLAG)  =0; 

If  FLAGWRD6  bit  2 (AUXFLAG)  = 1 ; 

Proceed  to  "DVMON” 

Switch  FLAGWRD6  bit  2 (AUXFLAG)  to  1 
Switch  DAPBOOLS  bit  14  (USEQRJTS)  to  1 
Proceed  to  "SERVOUT" 

Switch  FLAGWRD6  bit  2 (AUXFLAG)  to  0 
Switch  DAPBOOLS  bit  14  (USEQRJTS)  to  1 
Proceed  to  "SERVOUT" 

DVMON  If  ABDELV  < DVTHRUSH: 

If  DVCNTR  = 0: 

If  "COMFAIL"  is  already  active:  (determined  from 

restart  tables) 

Proceed  to  "SERVOUT" 

Establish  "COMFAIL"  (pr25) 

Proceed  to  "SERVOUT" 
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(If  ABDELV<  DVTHRDSH:) 
DVCNTR  = DVCNTR  - 1 


SERVOUT 


GOPYCYC 


SERVEXCT 


Inhibit  interrupts 
Perform  "STOPRATE" 

Switch  DAPBOOLS  bit  14  (USEQRJTS)  to  1 
Proceed  to  "SERVOUT" 

Switch  FLAGWRD2  bit  11  (STEERSW)  to  1 
DVCNTR  = 1 

If  FLGWRD10  bit  13  (APSFLAG)  = 0: 

If  bit  9 of  channel  32  = 1 : 

Switch  DAPBOOLS  bit  14  ( USEQRJTS)  to  0 
Proceed  to  "SERVOUT" 

Switch  DAPBOOLS  bit  14  (USEQRJTS)  to  1 
Release  interrupt  inhibit 
Perform  "I/ACCS" 

Proceed  to  AVEGEXIT 
Inhibit  interrupts 
MASS  = MASS1 
®T  = ®T1 
PIPTIME  = PIPTIME1 
TO  = VN1 

P = pi 
Return 
End  j ob 
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AVGEND 


SERVIDLE 


CALCRVG 


IdPIPADT  = less  significant  half  of  PIPTIME 
Switch  FLAGWRD2  bit  15  (DRIFTFLG)  to  1 
Perform  "PIPFREE" 

Switch  bit  9 of  channel  11  to  0 (test  connector  output) 

Switch  FLAGWRD3  bit  11  (N0R29FLG)  to  1 
Switch  FLAGWRD7  bit  11  (SWANDISP)  to  0 
Switch  FLAGWRD6  bit  8 (MGNFLAG)  to  0 
Perform  "AVETOMID" 

Switch  FLAGWRD7  bit  6 (V37ELAG)  to  0 
Proceed  to  ''V37RET" 

AVEGEXIT  = "SERVEXIT" 

Switch  FLAGWRD7  bit  7 (IDLEFLAG)  to  1 

Switch  FLGWRD11  to  40000g  (bypass  all  LR  updates) 

If  FLAGWRD6  bit  8 (MUNFLAG)  = 1 : 

Maintain  Group  2 in  restart  logic 
Maintain  Group  5 in  restart  logic 

Establish  "GOTOPOOH"  in  Group  4 of  restart  logic  with  priority  31 
Clear  all  other  restart  logic 
Proceed  to  "WHIMPER" 

DELVREF  = KiKPIPI  DELV  [rEFSMMAt] 

pi  = P + PGUIDE  (VN  + i DELVREF  + i OTT) 

Perform  "CALCGRAV"  with  TSr  = pi 
■ pi  = p + DELVREF  + i (pT  + GDTI) 

Return 
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CALCglAV  RMAGSQ  = | TSrj 
UNITE  = unitTSr 

If  RTX2  = 0:  (earth  orbit) 

TSsel  = KrUNITZ  • UNITE 
TS  = (1  - 5 TSsel^)  / 20 
TSrdr  = KrEESQ  / EMAGSQ 

UNITGOBL  = TSrdr  K:20J  TS  UNITE  + TSrdr  K;2j  TSsel  K:UNITZ 
GDT1  = K;mMUDTj^^^2  (UNITGOBL  + UNITE)  / EMAGSQ 
If  ETX2  = 2;  (lunar  orbit) 

GDT1  = K:inMUDTj^^2  / RMAGSQ 

Return 

RVBOTH  R1S  = RCSM  + PGUIDE  (VCSM  + ^ GCSM) 

Perform  "MUNGRAV"  with  TSr  = R1S 
VIS  = VCSM  + i (^M  + OTTI) 

^SM  = GDT1 

RCSM  = R1S 

VCSM  = VIS 

TSdv  = K;KPIP2  DELV 

R1S  = R + PGUIDE  (V  + i TSdv  + i GDT) 

Perform  "MUNSIAV"  with  TSr  = R1S 
VIS  = V + TSdv  + i (GDT  + GDTl) 

ABVEL  = I V1S| 

HDOTDISP  = UNITE  • VIS 
DELVS  = R1S  * ^ 

HCALC  = I R1S  I - LANDMAG 
Proceed  to  "MUNRETRN" 
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MUNGRAY 


MUNRETRN 


HIGATJOB 


IMITR  = unitTSr 
RMAGSQ  = |TSr| ^ 

GDT1  = KtmMDDT^  OTITR  / RMAGSQ 
Retiirn 

If  FLGWRD11  bit  15  (UIBIPASS)  = 1,  proceed  to  "COPICIC1" 

If  FLGWRD11  bit  9 (XORFLG)  = 0; 

If  HCALC  4i^K;30kft; 

Switch  DAPBOOIS  bit  9 (XOVINHIB)  to  1 
Switch  FLGWRD11  bit  9 ( XORFLG)  to  1 
If  FLGWRD11  bit  10  (NOIRREAD)  = 1,  proceed  to  "CONTSERV" 

If  FLGWRD11  bit  3 (N0511FLG)  = 1,  proceed  to  “UPDATCHK" 

If  FLGWRD11  bit  11  (PSTHIGAT)  = 1: 

If  bit  7 of  channel  33  = 0:  (LR  in  position  #2) 

Proceed  to  "UPDATCHK" 

Perform  "ALARM"  with  TS  = 0051 1g 
Proceed  to  "CONTSERV" 

If  TTF  RPCRTIME  or  XNBPIP^  <RPCRTQSW; 

If  bit  6 of  channel  33  = 0;  (LR  in  position  #1 ) 

Proceed  to  "UPDATCHK" 

Perform  "ALARM"  with  TS  = 0051 1g 
Proceed  to  "CONTSERV" 

Establish  "HIGATJOB"  (pr32) 

Switch  FLGtfRDII  bits  11  (PSTHIGAT)  and  10  (NOIRREAD)  to  1 
Proceed  to  the  second  step  of  "CONTSERV" 

Perform  "IRP0S2" 

Perform  "RADSTALL" 
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POS ALARM 


POSGOOD 


P1CHK 


P2CHK 


UPDATCHK 


If  RADGOOD  = 0:  (bad  return  from  "RADSTALL") 

Perform  "PRIOLARM"  with  TS  = 005 23g 

(if  terminate,  end  job;  if  proceed,  proceed  to  "P1CHK" 
if  other  response,  proceed  to  "P2CHK".) 

End  job 

Change  job  priority  to  23  (pr23) 

Perform  "SETP0S2" 

Switch  FLGWRD11  bit  6 (LP0S2FLG)  to  1 
Switch  FLGWRD11  bit  10  (NOIRREAD)  to  0 
End  job 

Switch  FLGWRD11  bit  3 (N0511FLG)  to  1 

If  bit  6 of  channel  33  = 0:  (LR  in  position  #1 ) 

Switch  FLGWRD11  bit  10  (NOLRREAD)  to  0 
End  job 

Proceed  to  •’POSGOOD" 

If  bit  7 of  channel  33  = 0;  (LR  in  position  #2) 

Proceed  to  " POSGOOD" 

Proceed  to  "POS ALARM" 

If  FLGWRD11  bit  10  (NOIRREAD)  = 1,  proceed  to  "CONTSERV" 

If  FLGWRD11  bit  4 (RNGEDATA)  = 0,  proceed  to  "VMEASCHK" 

TSh  = PEAMNB  [XNBPIPj 

TS  = RADSKAL  TSh  • (VIS  + pLVS) 

If  RADMODES  bit  9 (ALTSCALE)  = 0,  TS  = SKALSKAL  TS 
DELTAH  = KiHSCAL  (TS  + HMEAS)  TSh  • l^ITR  - HCALC 
If  FLGWRD11  bit  11  (PSTHIGAT)  = 0,  proceed  to  "NOREASON" 

TS  = I DELTAH  j - DELQFIX  - HCALC  / 8 
LRLCTR  = LRLCTR  + 1 
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NOREASON 


VMEASCHK 


If  TS^  0:  (DELTAH  too  large) 

If  LRRCTR  ^ 0 and  LRLCTR  - LRRCTR  C 4: 

Switch  FLGWHD11  bit  1 (HFLSHFLG)  to  1 
LRRCTR  = LRLCTR 
Proceed  to  “VMEASCHK" 

Switch  FLGWRD11  bit  1 (HFLSHFLG)  to  0 

If  FLGWRD11  bit  8 (LRINH)  = 0,  proceed  to  "VMEASCHK" 

If  HCALC  <HLR0FF: 

Switch  FLGWRD11  bit  8 (LRINH)  to  0 
Proceed  to  "VMEASCHK" 

If  HCALC LRHMAI,  proceed  to  "VMEASCHK" 

TS  = DELTAH  LRWH  (LRHMAX  - HCALC ) / LRHMAX 
TSr  = R1S  + TS  TOITR 
Perform  "MUNGRAV" 

R1S  = TSr 

If  FLGWRD11  bit  7 (VELDATA)  = 0,  proceed  to  "VALTCHK" 
MG  = mCDU 
Perform  "QUICTRIG" 

If  VSELECT  = 0,  TSuv  = VZBEAMNB 

If  VSELECT  = 1,  TSuv  = VYBEAMNB 

If  VSELECT  = 2,  TSuv  = VXBEAMNB 

Perform  "NBTOSM" 

j = 2 VSELECT 

TOEAM  = [ijBSMMA'^  TSuv 

TSgv  = GDT  (LRVTDffi  - PIPTIME)  / K:2SECb28 
TS  = pgv  + V + K:KPIP1  PIPTEM  + DELVS 
VEST  = TS  • TOEAM 
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WSTOR 


DELTAV  = K:VSCALj  VMEAS  - VEST 

TS  = I DELTAV  I - ( |TS|  / 8 + VELBIAS) 

LRMCTR  = LRMCTR  + 1 

If  TS  > 0;  (DELTAV  too  large) 


If  LRSCTR  i-  0 and  LRMCTR  - LRSCTR  < 4: 

Switch  FLGWRD11  bit  2 (VFLSHFLG)  to  1 
LRSCTR  = LRMCTR 

If  VSELECT  =0,  switch  FLGWRD11  bit  12  (VXINH)  to  1 
Proceed  to  "VALTCHK" 

Switch  FLGWRD11  bit  2 (VFLSHFLG)  to  0 
If  FLGWRD11  bit  12  (VXINH)  = 1; 

Switch  FLGWRD11  bit  12  (VXINH)  to  0 


If  VSELECT  = 2,  proceed  to  "VALTCHK" 

If  FLGWRD11  bit  8 (LRINH)  = 0,  proceed  to  "VALTCHK" 
If  ABVEL<^  LRVF; 


TS  = LRWVF, 


VSELECT 


Proceed  to  "WSTOR" 


If  IRVMAX  ABVEL: 
TS  = 0 


Proceed  to  "WSTOR" 

TS  = LRMVysTrj.BnT  (l^VMAX  - ABVEL)  / LRVMAX 
If  MODREG  64: 

TS  = LRWVFF 
TS^p  = (TS,  0) 

TSv  = VIS  + TS^  DELTAV  VBEAM 
- - dp 

VIS  = TSv 

Proceed  to  "VALTCHK" 
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YALTGHK 


If  FLGWRD11  bit  5 (READVEL)  = 0: 

If  ABYEL  > K;6KFTdSEC,  proceed  to  "CONTSERV” 
Switch  FLGWRD11  bit  5 (READVEL)  to  1 
Establish  "LRVJOB"  (pr32) 


CONTSERV  Inhibit  interrupts 

Switch  FLGWRD11  bits  4 (RNGEDATA)  and  7 (VELDATA)  to  0 


G0PYCYG1  If  FLAGWRD3  bit  9 (READRFLG)  = 1 or  FLAGWRD3  bit  11  (N0R29FLG)  = 1 
or  RADMODES  bit  13  (RGDUOFLG)  = 1 or  RADMODES  bit  2 (AUTOMODE)  = 1: 

Switch  RADMODES  bit  10  (DESIGFLG)  to  0 

Proceed  to  "N0R29N0W" 

If  RADMODES  bit  14  (REMODFLG)  and  bit  11  (REPOSMON)  = 0: 


Proceed  to  "R29’' 

NOR29NOW  Release  interrupt  inhibit 
HGALG  = |R1S|  - LANDMAG 
HGALG1  = HGALG 
ALTBITS  = KtALTGONV  HGALG 
UHZP  = unlt(piTR  * mYP) 

pi  = ps  [refsmma.t] 

W1  = VIS  [^FSMMA-^ 

TS  = K;ARG0NV1  | MITR  * Vis|  ^ / |ps| 
Inhibit  interrupts 


RUNIT  = UNITR 
sp  - 

DALTRATE  = TS 
sp 

R = pS 
V = VIS 
Return 


(=  [refsmm^^'^  ps) 


(to  caller  of  "RVBOTH" ) 
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LRHJOB 


Perform  "LRALT” 


Perform  "RADSTALL" 

If  RADGOOD  = 0: 

If  FLAGWRD5  bit  10  (RNGSCFLG)  = 1: 

Switch  FLAGWRD5  bit  10  (RNGSCFLG)  to  0 
End  job 
STILBADH  = 2 
End  job 

If  STILBADH > 0: 

STILBADH  = STILBADH  - 1 
End  job 

Inhibit  interrupts 
HMEAS  = SAMPLSUM 
MKTIME  = PIPTIME1 
AIG  = CDUTEMP 

7 

AMG  = CDUTEMP 

z 

AOG  = CDUTEMP 

X 

Switch  FLGWRD11  bit  4 (RNGEDATA)  to  1 
Release  interrupt  inhibit 
End  j ob 

LRVJOB  Call  "RDGIMS"  in  o.17  second 
TSn  = 5 

If  VSELECT  = 0,  perform  "LRVELX" 
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If  VSELECT  = 1 , perform  "LRVELZ" 

If  VSELECT  = 2,  perform  "LRVELI" 
Perform  “RADSTALL" 

If  RADGOOD  = 0: 

STILBADV  = 2 
Proceed  to  "ENDLRV" 

If  STILBADV > 0: 

STILBADV  = STILBADV  - 1 
Proceed  to  "ENDLRV" 

Inhibit  interrupts 
VMEAS  = SAMPLSUM 
LRVTIMDL  = LRVTIME 
LRCDUDL  = LRCDU 

Switch  FLGWRD11  bit  7 (VELDATA)  to  1 
ENDLRV  If  VSELECT  = 0,  VSELECT  = 3 
VSELECT  = VSELECT  - 1 
End  Job 

RDGIMS  LRVTIME  = TIMENOW 
LRCDU  = CDU 
PIPTEM  = PIPA 
End  task 
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R10.R11  If  FLAGWRD7  bit  5 (AVEGFLAG)  =0,  end  task 


If  PIPCTR  = 0:  (PIPTIME  + 1.95  seconds) 

If  FLGWRD11  bit  15  (LRBIPASS)  = 0 
and  bit  10  (NOLRREAD)  = 0; 

Establish  "LRHJOB"  (pr32) 

Skip  next  two  (2)  steps 

PIPCTR1  = PIPCTR  - 1 

Call  ''R10,R11"  in  0.25  second 

If  FLGWRD11  bit  1 (HFLSHFLG)  = 1; 

Invert  bit  5 of  DSPIAB^^ 

Switch  bit  15  of  DSPTAB^^  to  1 (flag  for  output) 
If  FLGWRD11  bit  2 (VFLSHFLG)  = 1: 

Invert  bit  3 of  DSPTAB^^ 

Switch  bit  15  of  DSPTAB^^  to  1 (flag  for  output) 

If  FLAGWRD9  bit  9 (LETABORT)  = 0: 

Proceed  to  "LANDISP" 

If  MODREG  = 71 , proceed  to  "LANDISP" 

If  bit  4 of  channel  30  = 0:  (abort  stage) 

Proceed  to  "P71A" 

If  MODREG  = 70,  proceed  to  "LANDISP" 

If  bit  1 of  channel  30  = 0;  (abort) 

Proceed  to  "P70A" 

Proceed  to  "LANDISP" 
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LANDISP  PIPCTR  = PIPCTRI 


If  FLAGWRD7  bit  11  (SWANDISP.)  = 0,  proceed  to  "DISPRSET" 

LADQSAVE  = "ALTR0UT1 " . 

If  IM0DES33  bit  7 = 1 , LADQSAVE  = "ALT0UT1 " 

If  bit  6 of  channel  30  = 1 , proceed  to  "DISPRSET" 

(inertial  data  displa7  discrete  is  reset) 

If  FLAGWRD1  bit  14  (DIDFLAG)  * 1,.  proceed  to  "SPEEDRUN" 

Switch  FLAGWRD1  bit  14  (DIDFLAG)  to  1 

Switch  IMODES33  bit  7 to  0 (display  rate  first) 

If  FLAGWRDO  bit  2 (R1 OFLAG)  = 1 , end  task 

Switch  bit  8 of  channel  12  to  1 (set  inertial  data  display 

modlng  discrete) 

IRAKLATV  = 0 
TRAKFWDV  = 0 
LATVMETR  = 0 
FORVMETR  = 0 

Call  "INTLZE"  in  0.08  second 
End  task 

INTLZE  Switch  bit  2 of  channel  12  to  1 (enable  RRCDU  error  counter) 

Switch  IMODES33  bit  8 to  1 
End  task 

SPEEDRUN  DT  = TIMENOW  - PIPTIME 
sp 

WECT  = i GDT  DT  / K;1SEC 

WECT  = WECT  + V + K;KPIP1b5  (PIPA  + PIPATMP) 

- sp  - - - - 

Delay  0.04  second 

If  FLAGWRDO  bit  2 (R1 OFLAG)  = 1,  proceed  to  LADQSAVE 
If  bit  2 of  channel  12=0,  proceed  to  "DISPRSET" 

TS  = WECT  + DELVS 

— — — ms 
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VHY  = TS  . UHYP 
VHZ  = Ts  . razp 

LATVEL  = K:VELCONV  (M32  VHY  + M22  VHZ) 

FORVEL  = KtVELCONV  (M32  VHZ  - M22  VHY) 

If  |fORVEl|<  K:MAXVBITS; 

If  TRAKFWDV  FORVEL;^  0: 

TS  = FORVEL  - FORVMETR 

If  TRAKFWDV  = 0 and  FORVEL  FORVMETR  ZlO: 

If  |ts| > KrMAXVBITS,  TS  = K:MAXVBITS  signTS 
If  TRAKFWDV  FORVEL  < 0: 

TS  = - FORVMETR 
TRAKFWDV  = 0 


If 


FORVEL  I ^ KiMAJVBITS; 

If  FORVMETR  FORVEL  <0: 

TS  = K:MAXVBITS  signFORVEL 
i = 0 

If  FORVMETR  FORVEL  >0: 


If  TRAKFWDV  FORVEL  ^ 0: 

TS  = K:MAXVBITS  signFORVEL  - FORVMETR 
i = 1 SignFORVEL 
If  TRAKFWDV  FORVEL  ^ 0: 

TS  = K;MAXVBITS  signFORVEL 
1=0 

TRAKFWDV  = i 


CDUSCMD  = TS 

FORVMETR  = FORVMETR  + TS 
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ALTR0UT1 


If  |lATVEl|  <K:MAIVBITS: 

If  TRAKLATV  LATVEL  > 0: 

TS  = LATVEL  - LATVMETR 

If  TRAKLATV  = 0 and  LATVEL  LATVMETR  C;0: 

If  |ts|  > K;MA3C7BITS,  TS  = KrMAXVBITS  signTS 
If  TRAKLATV  LATVEL^  0: 

TS  = - LATVMETR 
TRAKLATV  = 0 


If 


LATVELj  > KrMAXVBITS: 

If  LATVMETR  LATVEL<  0: 

TS  = KrMAXVBITS  signLATVEL 
i = 0 

If  LATVMETR  LATVEL^l  0: 


If  TRAKLATV  LATVEL^  0; 

TS  = KrMAXVBITS  signLATVEL  - LATVMETR 
i = 1 signLATVEL 
If  TRAKLATV  LATVEL Or 


TS  = KrMAXVBITS  signLATVEL 
i = 0 

TRAKLATV  = i 
CDUTCMD  = TS 

LATVMETR  = LATVMETR  + TS 

Switch  bits  11  and  12  of  channel  14  to  1 

Proceed  to  LADQSAVE 

Switch  IMODES33  bit  7 to  1 

Switch  bit  2 of  channel  14  to  1 (select  altitude  rate  display) 
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ALT0UT1 


DISPRSET 


ALTRATE  = DT  DALTRATE  + K:ARCONV  RUNIT  • VVECT 
ALTM  = - ALTRATE 

If  ALTM<0,  ALTM  = ALTRATE  with  bit  15  switched  to  1 

Switch  bit  3 of  channel  14  to  1 (altitude  meter  activity  bit) 

End  task 

Switch  IMODES33  bit  7 to  0 

Switch  bit  2 of  channel  14  to  0 (select  altitude  display) 

TS  = K:ARTOA 
If  ALTBITS  ^ 0: 

ALTSAVE  = ALTBITS 
ALTBITS.  = - 1 
TS  = K:ART0A2  DT 
ALTSAVE  = ALTSAVE  + TS  ALTRATE 
If  ALTSAVE  2^0,  ALTSAVE  = 0 
TS  = ALTSAVE 

If  ALTSAVE^S;  Kialtlim,  TS  = (fractional  part  of  (ALTSAVE/2''^))  + 2"*^ 
ALTM  = TS 

Switch  bit  3 of  channel  14  to  1 (altitude  meter  activity  bit) 

End  task 

If  FLAGWRDO  bit  2 (RIOFLAG)  = 0: 

If  IMODES33  bit  8 = 1: 

Switch  bit  2 of  channel  12  to  0 
Switch  bit  8 of  channel  12  to  0 
Switch  bits  7 and  8 of  IMODES33  to  0 
Switch  FLAGWRD1  bit  I4  (DIDFLAG)  to  0 
End  task 
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SETP0S1  STILBADH  = 2 


STILBADV  = 2 
LRLCTR  - 0 
LRMCTR  = 0 
LRRCTR  = 0 
LRSCTR  = 0 
^SELECT  = 0 

ANG  = (UIALHIA^,  LRBETA^ , O) 
Perform  "SETPOS" 

Return 

SETP0S2  ANG  = (LRALPHA^,  LRBETAg,  O) 
Perform  "SETPOS" 

Return 

SETPOS  Perform  "CD^^TR*GS" 

Perform  "SMTONB" 

VYBEAMNB  = jsMNBMA'^  K: UNITY 
VXBEAMNB  = [SMNBMA^  K:  UNITY 
VZBEAMNB  = VXBEAMNB  * pBEAMNB 
PEAMNB  = [sMNBMA:^  K;HBEAMANT 
Return 
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Quantities  In  Computations 


IdPIPADT:  See  IMUC  section. 

ABDELV:  Single  precision  magnitude  of  sensed  change  in  velocity  (D^ELV), 
scaled  BI4  in  units  of  centimeters  per  second. 

ABDVCONV:  Double  precision  magnitude  of  DELV  converted  to  units  of 
meters  per  centisecond  and  scaled  B5. 

ABVEL:  Double  precision  magnitude  of  velocity  for  display,  scaled  B? 
in  units  of  meters  per  centisecond. 

AIG,  AMG,  AOG:  Single  precision  storage  for  CDUTEMP  , CDUTEMP  and 
CDUTEMP^  respectively  for  downlink  purposes.  ^ ^ 

ALTBITS:  Double  precision  altitude  computed  for  display  on  the 

tape-drive. altitude  meter,  scaled  B28  in  units  of  Analog-altitude- 
display  bits.  Set  to  -1  to  indicate  that  it  has  not  been  updated 
since  the  last  time  it  was  sampled  to  drive  the  display. 

ALTM:  Single  precision  cell  used^  to  provide  altitude  and  altitude 

rate  information  to  the  tape-drive  altitude  and  altitude  rate  meters, 
scaled  BI4  in  units  of  Analog-altitude-display  bits  or  Analog- 
altitude-rate-display  bits.  One  Analog-altitude-display  bit  is 
equivalent  to  0.714756  meters  (2.345  feet),  and  one  Analog-altitude- 
rate-display  bit  is  eq'uivalent  to  0.1524  meters  per  second  (0.5  feet 
per  second).  Data  is  provided  to  the  meters  in  serial  binary  form 
at  a 3200  pps  rate  when  bit  3 of  channel  14  is  set,  and  bit  2 of 
channel  14  is  set  or  reset  by  the  program  to  distinguish  between 
altitude-rate  (l)  and  altitude  (0)  information. 

ALTRATE:  Single  precision  altitude  rate  calculated  for  display  on  the 

tape-drive  altitude  rate  meter,  scaled  B14  in  units  of  Analog-altitude- 
rate-display  bits. 

ALTSAVE:  Double  precision  storage  for  previous  altitude  value  for  altitude  meter 
display,  scaled  B28  in  units  of  Analog-altitude-display  bits. 

AMG:  See  COOR  section. 

AVEGEXIT:  Double  precision  variable  address  (program  notation  also 
AVGEXIT)  to  branch  to  the  guidance  routines  specified  by  whichever 
program  is  controlling  a biorn. 

£DU:  See  IMUC  section. 

CDUSCMD,  CDUTCMD:  Single  precision  cells  loaded  with  values  to  be 
transmitted  to  the  Error  Counters  in  the  two  Rendezvous  Radar 
channels  of  the  Coupling  Data  Unit  (RRCDU),  for  use  in  controlling 
the  shaft  and  trunnion  angles  of  the  RR  or  for  positioning  the 
forward  and  lateral  velocity  meters.  Information  is  gated  out  of 
the  cells  if  bits  11  and  12  respectively  of  channel  14  are  set,  and 
the  RRCDU  Error  Counters  recognize  the  information  if  bit  2 of 
channel  12  is  set.  (Error  Counters  reset  to  zero  whenever  bit  2 
of  channel  12  is  reset.)  A satvirated  Error  Counter  (384  pulses) 
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corresponds  to  an  RR  drive  rate  of  10  degrees  per  second;  each  bit 
represents  O.I698  meters  per  second  (0.5571  feet  per  second)  when 
used  to  drive  the  velocity  meters. 

CDUTEMP:  Single  precision  vector  storage  for  the  reading  of  the  ICDU 
at  the  time  of  a FIFA  readj  scaled  B-1  in  units  of  revolutions 
and  stored  in  twos  complement  form. 

COSIGA,  COSMGA,  COSOGA:  See  COOR  section. 

DALTRATE:  Single  precision  expected  rate  of  change  of  ALTRATE,  scaled 
BO  in  imits  of  Analog-altitude-rate-display  bits  per  centisecond. 

DAFBOOLS:  See  DAFA  section. 

DELQFIX:  Double  precision  Landing  Radar  Data  reasonableness 
test  parameter,  scaled  B24  in  units  of  meters;  part  of  the 
erasable  load. 

DELTAH:  Double  precisian  difference  between  the  calculated  altitude 

and  that  measured  by  the  Landing  Radar,  scaled  B24  in  units  of  meters. 

DELTAV:  Double  precision  difference  between  the  calcxilated  velocity 
component  and  that  measured  by  the  Landing  Radar,  scaled  B6  in 
imits  of  meters  per  centisecond. 

DELV:  Double  precision  sensed-change-in-velocity  vector,  scaled  BI4 
in  units  of  centimeters  per  second  (one  FIFA  pulse  represents  one 
centimeter  per  second  on  the  LM)  and  expressed  in  Flatform  coordinates 

D^ELVREF:  Double  precision  sensed-change-in-velocity  vector  converted 
to  a scaling  of  B?  in  units  of  meters  per  centisecond  and  expressed 
in  the  Reference  coordinate  system. 

D^ELVS:  Double  precision  vector  difference  between  velocity  relative 
to  the  rotating  moon  and  inertial  velocity,  scaled  B5  in  units  of 
meters  per  centisecond  and  expressed  in  the  Flatform  coordinate 
system. 

DSFTAB^^:  See  INTR  section.' 

DT:  Single  precision  time  interval  from  beginning  of  navigation  interval 
to  the  time  of  the  generation  of  the  display  on  the  tape-drive  meters, 
scaled  BI4  in  units  of  centiseconds. 

DVCNTR:  Single  precision  counter  set  to  determine  the  length  of  the 
tirust  monitor,  scaled  BI4  in  units  of  navigation  cycles. 

DVTHRUSH:  Single  precision  delta-v  threshold,  scaled  BI4  in  units  of 
centimeters  per  second;  set  according  to  the  engine  in  use. 

DVTOTAL:  Double  precision  sum  of  velocity  gained,  scaled  B?  in  units 
of  meters  per  centisecond. 

FORVEL:  Single  precision  forward  velocity  component  (Body  coordinates) 
of  the  LM  relative  to  the  rotating  moon,  scaled  BI4  in  forward 
velocity  display  units. 
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FOR^JMETR;  Single  precision  storage  for  the  total  value  of  velocity 
displayed  on  the  Forward  velocity  meter,  scaled  BI4  in  forward 
velocity  display  units  (see  definition  of  CDUSCMD) 

OTSM:  Double  precision  gravity  vector  at  the  GSM,  scaled  B8  in  units 
of  meters  per  centisecond  and  expressed  in  the  Platform  coordinate 
system. 

GDT,  ®T1:  Double  precision  gravity  vector  , scaled  B8  in 

units  of  meters  per  centisecond  and  expressed  in  the  Platform 
coordinate  system. 

HEEAMNB:  Double  precision  unit  vector  in  the  direction  of  the  Landing 
Radar  measurement  of  altitude,  scaled  B1  and  expressed  in  the  Body 
coordinate  system. 

HCALC,  HCAIC1 r Double  precision  calculated  altitude  above  the  landing  site 
radius,  scaled  B24  in  imits  of  meters.  HCALC1  is  for  display  purposes. 

HDOTDISP:  Double  precision  calculated  value  of  altitude  rate,  scaled 
B7  in  vinits  of  meters  per  centisecond. 

HLROFF:  Double  precision  quantity  representing  the  altitude  at  which 
LR  altitude  updates  are  inhibited  diiring  the  final  phase  of  descent, 
scaled  B24  in  units  of  meters. 

HMEAS:  Double  precision  Landing  Radar  measurement  of  altitude,  scaled 
B28  in  imits  of  Landing  Radar  low  scale  altitude  bits. 

IMDDES33 : See  INTR  section. 

KrlSEC:  Single  precision  constant  stored  as  100  x;  2~^^,  scaled  BI4  in 
units  of  centiseconds.  Equation  value:  100. 

K:2J:  Double  precision  constant  stored  as  3.24692OIO  E-3,  scaled  BO 
and  unitless.  Equation  value:  3 x 0.001082306?. 

K:20J:  Double  precision  constant  stored  as  3.24692010  E-2,  scaled  BO 
and  unitless.  Equation  value:  Ten  times  K:2J. 

—28 

K:2SECb28;  Double  precision  constant  stored  as  200  x 2~  , program 

notation  2SEC(28;,  scaled  B28  in  units  of  centiseconds.  Equation 
value : 200 . 

K:30kft:  Double  precision  constant  stored  as  1.6768072  E7  x 2~^, 

program  notation  "1-30KFT",  scaled  B24  in  units  of  meters.  Represents 

0 i 

2^  - 9144  meters  (K;posmaxdp  plus  one  least  increment  minus  9144  meters). 
Used  to  check  c\irrent  altitude  against  9144  meters.  Equation  value: 

9144  (Equivalent  to  30,000  feet}. 


K:6KFTdS£C:  Single  precision  constant  stored  as  18.288  x 2~  , scaled 
B7  In  units  of  meters  per  centisecond.  Equation  value:  18.288. 
(Eq\ii valent  to  6000  feet  per  second.) 


SERV  - 22 


K:ALTCONV:  Double  precision  constant  stored  as  1.399078846  x 2 , 

scaled  B4  in  units  of  Analog-altitude-display  bits  per  meter. 

Equation  value:  1.399078846.  (Equivalent  to  0.714756  meters, 
or  2.345  feet,  per  bit.) 

K:altlim:  Single  precision  constant  value  of  bit  16  in  a quantity 
scaled  B14  in  imits  of  Analog-altitude-display  bits.  Equation 
value:  32768. 

K:APSVEX:  Single  precision  constant  stored  as  -3030.  E-2  x 2 scaled. 

B5  in  units  of  meters  per  centisecond.  Equation  value:  -30.30. 

K:ARC0NV:  Single  precision  constant  stored  as  24402g,  scaled  BIO  in 
units  of  Analog-altitude-rate-display  bits  / meter  per  centisecond i- 
Equation  value:  656.125.  (Equivalent  to  0.1524  meters  per  second, 
or  0.5  feet  per  second,  per  bit.) 

K:ARC0NV1:  Double  precision  constant  stored  as  656.167979  x 2 

scaled  BIO  in  units  of  Analog-altitude-rate-display  bits  / meter 
per  centisecond.  Equation  value:  656.167979.  (Equivalent  to 
0.1524  meters  per  second,  or  0.5  feet  per  second,  per  bit.) 

K:ART0A:  Single  precision  constant  stored  as  O.IO66O98  x 2 scaled 
B1  in  units  of  seconds  times  Altitude  bits  / Altitude  rate  bits. 

Equation  value:  O.IO66O98.  (Equivalent  to  0.5  seconds  x 0.5  / 2.345.) 

g 

K:ART0A2:  Single  precision  constant  stored  as  0.0021322  x 2 , scaled 

B-8in  units  of  Altitude  bits  per  centisecond  / Altitude  rate  -bits  per 
second.  Equation  value:  0.0021322.  (Equivalent  to  0.01  x 0.5  / 2.345.) 

-5 

K:DPSVEX:  Single  precision  constant  stored  as  - 29.55888b8  x 2 , scaled 

scaled  B5  in  units  of  meters  per  centisecond.  Equation  value: 

- 29.5588868 

K.-HBEAMANT:  Double  precision  vector  constant  stored  as  ( - O.4687OI8O4I » 

0,  -0. 1741224271 ),  scaled  B1  and  unitless.  Equation  value: 

(- 0.9374036082,  0,  -0. 3482448542  ) . (Altitude  beam  direction 

expressed  in  the  LR  coordinate  system. ) 

K:HSCAL:  Double  precision  constant  stored  as  -0.3288792,  scaled  BO 

in  units  of  meters  per  bit.  Equation  value:  -0.3288792.  (Equivalent 
to  1.0790  feet  per  bit.) 

K:KPIP:  Single  precision  constant  stored  as  0.0512,  scaled  B-9  in  units 
of  meters  per  centisecond  / centimeters  per  second.  Equation  value: 
0.0001. 

K:KPIP1:  Double  precision  constant  stored  as  0.0128,  scaled  B-7  in  imits 
of  meters  per  centisecond  / centimeters  per  second.  Equation  value: 
0.0001. 

K:KPIPlb5:  Double  precision  constant  stored  as  0.0512,  scaled  B-9  in 
units  of  meters  per  centisecond  / centimeters  per  second.  Equation 
value : 0 . 0001 . 
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K:KPIP2:  Double  precision  constant  stored  as  O.OO64,  scaled  B-6  in 
units  of  meters  per  centisecond  / centimeters  per  second.  Equation 
value : 0 . 0001 . 

KiMAXVBITS:  Single  precision  constant  stored  as  00547^,  scaled  B14  in 
forwBrd/lateral  velocity  display  units.  Equation  value:  359. 
(Equivalent  to  6I.O  meters  per  second  or  200.0  feet  per  second.) 

KrmMUDTQ:  Double  precision  constant  stored  as  -7.9720645  E12  x 2 

scaled  B44  in  units  of  meters  cubed  per  centisecond.  Equation  value: 
-7.9720645  E12.  (Equivalent  to  - 200  cs  x 0.3986032  Ell  m3 /cs2. ) 

K:mM''UD'^:  Double  precision  constant  stored  as  -9.8055560  ElO  x 2 
scaled  B44  in  units  of  meters  cubed  per  centisecond.  (Also  called 
-MUDTMUN  v/ith  a scale..factor  of  B38,;  Equation  value:  - 9.8055560  ElO. 
(Equivalent  to  -200  cs  x 0.4902778  E9  meters  cubed  per  centisecond 
squared . ) 

K:PRI031:  Single  precision  constant  stored  as  31000g,  scaled  BB  in 
vinits  of  centiseconds.  Equation  value : 200. 

K:RESQ:  Double  precision  constant  stored  as  40.6809913  E12  x 2 , 

scaled  B58  in  units  of  meters  squared.  Equation  value:  6,378,165 
squared . 

K:UNIIX:,  K:  UNITY,  K:UNITZ:  Three  double  precision  vector  constants 
stored  as  (0.5,  0,  0),  (0,  0.5,  0)  and  (0,  0,  0.5),  scaled  B1  and 
unitless.  Equation  values:  (1,  0,  0),  (0,  1,  0)  and  (0,  0,  l). 

K:VELC0NV:  Single  precision  constant  stored  as  223l6g,  scaled  BIO  in 
forward/lateral  velocity  display  units  / meter  per  centisecond. 

Equation  value:  588.875.  (Equivalent  to  O.I698  meters  per  second, 
or  0.5571  feet  per  second,  per  bit.) 

K:VSCALj-.:  Double  precision  constant  stored  as  0.5410829105,  program 
notation  VZSCAL,  scaled  B-10  in  units  of  meters  per  centisecond 
per  bit.  Equation  value:  0.002642006  / 5.  (Equivalent  to 
0.8668  fps  per  bit;  the  "5"  averages  the  sum  of  five  samples.) 

K:VSCAL„:  Double  precision  constant  stored  as  0. 7565672446,  program 
notation  VYSCAL,  scaled  B-10  in  units  of  meters  per  centisecond 
per  bit.  Equation  value:  O.OO3694176  / 5.  (Equivalent  to 
1.212  fps  per  bit;  the  "5"  averages  the  sum  of  five  samples.) 

K:VSCAL, : Double  precision  constant  stored  as  -0.4020043770,  program 
notation  VXSCAL,  scaled  B-10  in  units  of  meters  per  centisecond 
per  bit.  Equation  value:  -0.001962912  / 5.  (Equivalent  to 
- 0.644  fps  per  bit;  the  "5"  averages  the  sxmi  of  five  samples.) 

LADQSAVE:  Single  precision  octal  return  address  storage. 

LANDMAG;  see  DESC  section. 
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LATVEL:  Single  precision  lateral  velocity  component  (Body  coordinates; 
positive  to  the  right  when  looking  forward)  of  the  LM  relative  to 
the  rotating  moon,  scaled  B14  in  forward/lateral  velocity  units. 

LATVMETR:  Single  precision  storage  for  the  total  value  of  velocity 
displayed  on  the  lateral  velocity  meter,  scaled  B14  in  forward/ 
lateral  velocity  display  units. 

LRALPHA. , LRALPHA2:  Single  precision  angle  from  the  Z spacecraft  axis 
to  the  Z LR  coordinate  axis  measiired  in  a right  hand  rotation  aroLind 
the  -X  spacecraft  axis,  for  LR  positions  1 and  2 respectively,  scaled 
B-1  in  imits  of  revolutions  and  stored  in  twos  complement  form. 

LRBETA.  , LRHETA^:  Single  precision  angle  from  the  4X  spacecraft  axis 
to  the  +X  LR  coordinate  axis  measured  in  a right  hand  rotation  arotind 
the  -Z  LR  coordinate  axis,  for  LR  positions  1 and  2 respectively, 
scaled  B-1  in  units  of  revolutions  and  stored  in  twos  complement  form. 
Part  of  the  erasable  load. 

LRCDU,  niCDUDL:  Single  precision  vector  storage  for  the  value  of  the  three 
ICDU  angles  at  the  estimated  midpoint  of  an  LR  velocity  reading,  scaled 
B-1  in  units  of  revolutions  and  stored  in  twos  complement  form. 
lECDUDL  is  for  downliiik  purposes. 

LRHMAXi  Single  precision  maximum  limit  for  altitude  calculations 
that  are  allowed  to  be  updated  by  the  Landing  Radar  measurement, 
scaled  BI4  in  imits  of  meters.  Part  of  the  erasable  load. 

LRLCTR:  Single  precision  count  of  the  number  of  comparisons  made 
between  HMEAS  and  HCALC,  scaled  BI4  and  unitless. 

LRMCTR:  Single  precision  count  of  the  number  of  comparisons  made 
between  measured  velocity  and  calculated  velocity,  scaled  B14  and 
xmitless. 

LRRCTR:  Single  precision  counter  used  in  conjunction  with  LRLCTR  to 
determine  if  at  least  four  good  comparisons  between  PIMEAS  and 
HCALC  have  been  made  since  the  last  imreasonable  one,  scaled  BI4 
and  unitless. 

LRSCTR:  Single  precision  counter  used  in  conjunction  with  LRMCTR  to 
determine  if  at  least  foin*  good  comparisons  between  measured  velocity 
and  calculated  velocity  have  been  made  since  the  last  unreasonable 
one,  scaled  BI4  and  unitless. 

LRVE:  Single  precision  erasable  memory  constant  representing  the  velocity 
at  which  the  velocity  update  coefficients  are  changed,  scaled  B7  in 
units  of  meters  per  centisecond.  Part  of  the  erasable  load. 

LRVMAX:  Single  precision  maximum  limit  for  velocity  calculations  that 
are  allowed  to  be  updated  by  the  LR  measurement,  scaled  B7  in  tmits 
of  meters  per  centisecond.  Part  of  the  erasable  load. 

LRVTIME,  LRVTIMDL:  Double  precision  time  at  the  estimated  midpoint  of 
the  LR  velocity  sample,  scaled  B28  in  units  of  centiseconds . LRVTIMDL 
is  for  downlink  purposes. 

LRWH:  Single  precision  weighting  factor  for  the  incorporation  of  LR  altitude 
measurements  into  the  LM  state  vector,  scaled  BO  and  -unitless. 

Part  of  the  erasable  load. 
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LRWV.  (i  = 0,1,2):  Single  precision  weighting  factors  for  LR  Z,  Y and  X 
axis  velocity  updates,  scaled  BO  and  unitless.  Part  of  the  erasable  load. 

LRWVF.  (l  = 0,1,2):  Single  precision  weighting  factors  for  LR  Z,  Y and 

X axis  velocity  updates,  scaled  BO  and  unitless.  Part  of  the  erasable  load. 

LRWVFF:  Single  precisian  weighting  factor  for  LR  velocity  updates  for 
P65  and  P66  > scaled  BO  and  unitless.  Part  of  the  erasable  load. 

M22,  M32:  See  DAPA  section. 

MASS,  MASSl:  Double  precision  mass  of  the  vehicle,  scaled  Bl6  in  units 
of  kilograms.  Loaded  by  the  astronaut  (routine  03)  and  updated 
dioring  average-g  navigation. 

MKTIME:  Double  precision  time  of  PIPA  readings  which  are  associated 
with  the  Landing  Radar  altitude  measurement  for  downlink  purposes, 
scaled  B28  in  units  of  centiseconds. 

MODREG;  See  DATA  section. 

[NBSMMA'^  : See  COOR  section. 


PGUIDE:  Double  precision  length  of  the  navigation-guidance  period, 
scaled  B28  in  units  of  centiseconds. 

PIPA:  Single  precision  sensed-change-in-velocity  vector,  scaled  B14  in 

imits  of  centimeters  per  second  and  expressed  in  the  Platform  coordinate 
system.  The  three  components  are  incremented  directly  from  the 
Pulse-Integrating,  Pendulous  Accelerometers  on  the  stable  member  of 
the  Inertial  Measurement  Unit. 

PIPATMP:  Single  precision  vector  storage  for  the  current  PIPA  reading 
for  use  by  the  analog  display  routines,  reset  to  zero  after  the 
current  reading  is  incorporated  into  the  navigation  state  vector; 
scaled  B14  in  units  of  centimeters  per  second  and  expressed  in  the 
Platform  coordinate  system. 

PIPCTR:  Single  precision  counter  scaled  B14  and  unitless;  used  to 
determine  time  elapsed  from  the  beginning  of  the  navigation  cycle 
in  "R10,R11"  and  routine  29. 

PIPCTR1 : Single  precision  temporary  storage  for  PIPCTR. 

PIPTEM:  Single  precision  vector  storage  for  the  sensed  change  in 
velocity  between  the  beginning  of  the  navigation  cycle  and  the 
mean  time  of  the  LR  velocity  sample,  scaled  B14  in  units  of  centi- 
meters per  second  and  expressed  in  the  Platform  coordinate  system. 

PIPTIME:  Double  precision  time  of  the  most  recent  PIPA  read  cycle, 
scaled  B28  in  units  of  centiseconds;  time  at  which  the 
state  vector  is  valid. 

PIPTIMEl:  Temporary  storage  for  PIPTIME  to  avoid  changing  the  down- 
link state  vector  until  it  is  updated  homogeneously. 
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R:  see  DESC  section 


R1S:  Temporary  storage  for  R to  avoid  changing  the  state  vector  on  the 
downlink  until  it  is  updated  homogeneously,  scaled  B24  in  units  of 
meters  and  expressed  in  the  Platform  coordinate  system. 

RADGOOD,  RADMODES;  See  RADR  section. 

RADSKAL;  Double  precision  erasable  memory  quantity  representing  the  LR 
scale  Information  for  hl^  scale  radar  output,  scaled  B21  in  units  of 
low-scale  altitude  bits  per  meter  per  centlsecondj  part  of  erasable  load. 

RCSM:  Double  precision  position  vector  of  the  GSM  measured  from  the 
center  of  the  earth  or  moon,  program  notations  R-OTHER  and  R(CSM), 
scaled  B29  or  B24  (descent  giiidance)  in  units  of  meters  and 
expressed  in  the  Reference  or  the  Platform  (descent)  coordinate 
system. 

I^^FSMMA^  ; see  COOR  section. 

RMAGSQ:  Double  precision  square  of  the  magnitude  of  the  position 
vector,  scaled  B58  (CALCGRAV)  or  B48  (MUNGRAV)  in  units  of 
meters  squared. 

M:  Double  precision  vector  position  of  the  LM  measured  from  the 
center  of  the  earth  or  moon,  scaled  B29  in  units  of  meters  and 
expressed  in  the  Reference  coordinate  system. 

Ml : Temporary  storage  for  RN  to  avoid  changing  the  state  vector  on 
the  downlink  until  it  is  updated  homogeneously. 

RPCRTQSW:  Double  precision  required  X component  of  the  X-body  axis 
in  Platform  coordinates  at  the  time  of  LR  reposition  to  position 
2,  scaled  B1  and  unitlessj  part  of  the  erasable  load  and  may  be 
altered  by  V59. 

RPCRTIME;  Single  precision  value  of  TTF  at  which  the  LR  may  be 
repositioned  to  position  2,  scaled  B17  in  units  of  centisecondsj 
part  of  the  erasable  load  and  may  be  altered  by  V59. 

RTX1 , RTX2;  See  ORBI  section. 

RUNIT;  Single  precision  unit  vector  along  the  position  vector  of  the 
LM  with  respect  to  the  center  of  the  moon,  scaled  B1 , unitless,  and 
expressed  in  the  Platform  coordinate  system. 

SAMPLSUM;  See  RADR  section. 

SINIGA,  SINMGA,  SINOGA:  See  COOR  section. 

SKALSKAL;  Single  precision  erasable  memory  factor  by  which  the  correction 
to  the  LR  data  is  reduced  if  the  LR  is  on  low  range  scale,  scaled  BO 
and  unitless;  part  of  the  erasable  load. 

[jSMNBMA!^  : see  COOR  section. 

STILBADH,  STILBADV:  Single  precision  counters,  scaled  BI4  and  unitless. 

TOM:  Single  precision  storage  for  -PIPA,  scaled  BI4  in  units  of 

centimeters  per  second.  TOM  is  used  in  the  R.O.D.  computations  of 
the  DESC  section. 
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TIME5:  s«e  DAPA  section 


TIMENOW:  see  EXVB  section, 

TRAKFWDV:  Single  precision  flag  set  to  1 , 0 or  - 1 to  Indicate 
whether  the  previously  computed  value  of  FORVEL  was  limited  to 
K:MAXVBITS  or  not,  scaled  B14  and  unitless. 

TRAKLATV;  Single  precision  flag  set  to  1 , 0 or  - 1 to  indicate 
whether  the  previously  computed  value  of  LATVEL  exceeded 
K:MAXVBITS  or  not,  scaled  B14  and  unitless. 

TTF:  see  DESC  section. 

UHYP:  Double  precision  unit  vector  normal  to  the  GSM  orbital  plane, 
scaled  B1  and  unitless. 

UHZP:  Double  precision  unit  local  vertical  vector  in  the  forward 
direction,  scaled  B1  and  unitless. 

UNITGOBL:  See  BURN  section. 

UNITR:  Double  precision  unit  vector  along  the  vector  from  the  center  of 
the  moon  or  the  earth  to  the  LM,  program  notation  UMIT/r/,  scaled  Bl, 
unitless  and  expressed  in  the  Platform  or  Reference  coordinate  system. 

V:  See  DESC  section. 

VIS:  Temporary  storage  for  V to  avoid  changing  state  vector  on  the  down- 
link until  it  is  updated  homogeneously,  scaled  B7  in  units  of  meters 
per  centisecond  and  expressed  in  the  Platform  coordinate  systau. 

VBEAM:  Double  precision  unit  vector  along  one  of  the  three  Landing  Radar 
velocity  measurement  directions,  scaled  Bl  and  expressed  in  Platform 
coordinates  at  LRVTIME. 

Double  precision  inertial  velocity  vector  of  the  GSM,  program 
notations  V-OTHER  and  V(CSM),  scaled  B?  in  units  of  meters  per 
centisecond  and  expressed  in  the  Reference  or  the  Platform  (for 
Descent)  coordinate  system. 

VELBIAS;  Double  precision  erasable  constant  representing  the  Landing 
Radar  velocity  reasonability  test  limit,  scaled  B6  in  lonits  of  meters 
per  centisecond;  part  of  the  erasable  load. 

VEST:  Double  precision  projection  of  calculated  velocity  onto  the  par-' 
ticular  LR  velocity  component  direction  being  processed,  scaled  B6 
in  units  of  meters  per  centisecond. 

VHY,  VHZ:  Single  precision  lateral  and  forward  components  of  velocity 
relative  to  the  rotating  moon  expressed  in  the  Platform  coordinate 
system  (lateral  velocity  positive  to  the  right  when  looking  forward); 
scaled  B5  in  units  of  meters  per  centisecond. 

VMEAS:  Double  precision  velocity  meastu*ement  from  the  LR  sampling, 
scaled  B28  in  -units  of  Landing  Radar  velocity  bits. 
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VN;  Double  precision  inertial  velocity  vector  of  the  LM,  scaled  B7 
in  units  of  meters  per  centlsecond  and  expressed  in  the  Reference 
coordinate  system. 

VN1 ; Temporary  storage  for  VN  to  avoid  changing  the  state  vector  on 
the  downlink  until  it  is  updated  homogeneously. 

VSELECT:  Single  precision  index  used  to  distinguish  among  the  Z (O), 

Y ( 1 ) and  X ( 2)  axes  of  the  Landing  Radar  coordinate  system, 
scaled  BI4  and  unitless. 

WECT:  Single  precision  velocity  vector  used  in  the  calculation  of 
forward,  lateral  and  vertical  velocity  components  of  the  analog 
display,  scaled  B5  in  units  of  meters  per  centlsecond  and  expressed 
in  the  Platform  coordinate  system. 

VXBEAMNB,  VYBEAMNB,  VZBEAMNB:  Double  precision  unit  vectors  along  the 
X,  I and  Z Landing  Radar  velocity  measurement  directions  (orthogonal) 
scaled  B1  and  expressed  in  the  Body  coordinate  system. 

see  DESC  section. 

MBPIP,  l^PIP,  ZNBPIP;  Double  precision  unit  vectors  along  the  X, 

Y and  Z spacecraft  axes,  scaled  B1  and  expressed  in  the  Platform 
coordinate  system  at  PIPTIME. 

QxNBPI^  : Double  precision  matrix  with  the  first  row  equal  to  the 
components  of  ^BPIP,  the  second  row  equal  to  the  components  of 
WBPIP,  and  the  third  row  equal  to  the  components  of  ^BPIP, 
scaled  B1  and  unitless. 
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Up  and  Down  Telemetry 


UPRUPT 


UPTMFAST 


DNTMFAST 


DODOWNTM 


SAMPTIME  = TIMENOW  (for  noun  65) 

TS  = INLINK 
INLINK  = OOOOOg 

Switch  bit  3 of  channel  11  to  1 (uplink  activity  lamp) 

TS  should  be  of  the  form  xxxxx  kkkkk  xxxxx^  where  five  x' s 
represent  the  five  bit  keycode  and  five  k's  represent  the 
complement  of  that  keycode.  If  TS  is  not  of  this  form: 

Switch  FLAGWRD7  bit  4 (UPLOCKFL)  to  1 

Resume 

TScode  = low  5 bits  of  TS 

If  TScode  = 22g:  (error  reset) 

Switch  FLAGWRD7  bit  4 (UPLOCKFL)  to  0 
If  TScode  ^ 22g: 

If  FLAGWRD7  bit  4 (UPLOCKFL)  = ,1,  resume 
Establish  "CHARIN" 

Set  MPACq  of  "CHARIN"  job  = TScode 
Resume 

If  bit  11  of  IMODES33  = 0: 

Perform  "ALARM"  with  TS  = 01106g 
Return 

If  bit  12  of  IM0DES33  =0: 

Perform  "ALARM"  with  TS  = 01105g 
Rettim 

If  bit  7 of  channel  13  = 1:  (word  order  code) 

Proceed  to  address  specified  in  DNTMGOTO 

Perform  "C13STALL" 

■Set  bit  7 of  channel  13  to  1 


(pr30 
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DNPHASEl 


DNPHASE2 


DODNCHAN 


Proceed  to  address  specified  in  DNTMGOTO 
SOBLIST  = -1 
DNECADR  = -1 
DNTMGOTO  = ''DNPHASE2" 


CTLIST  = K:DNTABLE, 


'DWLSTCOD 


Perform  "WOZERO” 


Channel  34  = -DNLSTCOD 
Channel  35  “ K:LOWIDCOD 
Resiime 

If  DNECADR  and  SUBLIST  are  both  <0:  (control  list) 

If  CTLIST  < 0: 

Proceed  to  4th  line  of  "DNPHASEl" 

ADR  - 

If  ADR  > 0,  CTLIST  = CTLIST  + 1 
If  ADR  <0:  (end  of  list) 

CTLIST  = -CTLIST 
ADR  = -ADR 
DNECADR  = ADR 

If  DNECADR  = K;timeadr,  perform  "WOZERO" 
DOWNTYPE  = bits  14-12  of  DNECADR 
If  DOWNTYPE  < 6,  proceed  to  "FETCH2WD" 

If  DOWNTYPE  = 6,  proceed  to  "DODNPTR" 

Pioceed  to  "DODNCHAN" 

If  DNECADR  > 0,  proceed  to  "FETCH2WD" 

Proceed  to  "NEXTINSL" 

1 = low  8 bits  of  DNECADR 
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FETCH2WD 


DODNPTR 


NEXTINSL 


J = i + 1 
DNECADR  = -1 
Channel  34  ^ channel  1 
Cheuinel  35  “ channel  j 
Resme 

EBANK  = bits  11-9  of  DNECADR 
TS  = low  8 bits  of  DNECADR 
DOWNTYPE  = DOWNTIPE  - 1 

DNECADR  = 2^^  DOWNTYPE  + 2®  EBANK  + TS  + 2 

(putting  DOWNTYPE  into  bits  14-12,  EBANK  into  bits 
11-9}  maiking  DNECADR  negative  after  DOWNTYPE  is 
reduced  below  zero) 

ADRl  = TS  + 1400g 

ADR2  » TS  + 1401g 

Channel  34  = ®adr1 
Channel  35  = 

Restu&e 

SUBADR  = EpNECADR  - 30000g 

If  SUBADR  < 0:  (snapshot) 

SDBLIST  = DNECADR  (address  of  sublist) 

i = 0 

SUBADR  = )SUBADR|  - OOOOlg 
Proceed  to  "SNAP LOOP" 

SUBLIST  = DNECADR 

SUBADR  = _ 3oooOg 

If  SUBADR  > 0,  SUBLIST  = SUBLIST  + 1 
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SNAPLOOP 


If  SUBADR  <0,  SUBLIST  = -1 
DNECADR  = jSUBADR) 

DOWNTYPE  = bits  14-12  of  DNECADR 
If  DOWNTYPE  < 6,  proceed  to  •'FETCH2WD" 

If  DOWNTYPE  = 6,  proceed  to  "DODNPTR" 
Proceed  to  "DODNCHAN" 

EBANK  = bits  11-9  of  SUBADR 
ADRl  = 1401g  + low  8 bits  of  SUBADR 
ADR2  = 1402g  + low  8 bits  of  SUBADR 
DNTMBUFF^  = E^^^ 
j = i + 1 
DNTMBUFFj  = E^DR2 
i = i + 2 

SUBLIST  = SUBLIST  + 1 
SUBADR  = _ 30Q00 

o 

If  SUBADR  >0:  (continue  snapshot) 

SUBADR  = ISUBADRJ  - 1 
Proceed  to  "SNAPLOOP" 

SUBLIST  = <SUBADR|  - 1 
DNECADR  = -1 
SUBADR  = SUBLIST 
SUBLIST  = -1 

EBANK  = bits  11-9  of  SUBADR 
ADRl  = 1401g  + low  8 bits  of  SUBADR 
ADR2  = 1402g  + low  8 bits  of  SUBADR 
Channel  34  = 


(1401  and  1402  to 
compensate  for  the 
5th  step  of  "DODNPTR" 
and  the  11th  step  of 
"SNAPLOOP") 
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DNDUMPI 


DNDUMPI3 


DNDIIMPl 


DNDUMP 


DNDUMP2 


Channel  35  ” 

Resume 

DUMPLOC  = OOOOOg 
DNTMGOTO  = "DNDUMPI3" 

Perform  "WOZERO" 

Channel  34  ~ K:ERASID 
Channel  35  = KrLOWIDGOD 
Resume 

DNTMGOTO  = "DNDUMPI'' 

Channel  34  ® DUMPLOC 

Channel  35  “ least  significant  half  of  TIMENOW 
Resume 

DNTMGOTO  = "DNDUMP" 

Proceed  to  "DNDUMP2" 

DUMPLOC  = DUMPLOC  + 2 

TS  = low  8 bits  of  DUMPLOC 

If  TS  > 0,  proceed  to  "DNDUMP2" 

(otherwise,  TS  = 0 and  d\jmp  is  changing  banks) 
If  bit  13  of  DUMPLX  » 0; 

Proceed  to  second  line  of  "MIDUMPI" 
Proceed  to  "DNPHASEl" 

EBANK  = bits  11-9  of  DUMPLOC 
TS  = low  8 bits  of  DUMPLOC 
ADR2  = 1401g  -*■  TS 
ADRl  = 1400g  + TS 
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Channel  34  = 

Channel  35  = 

Resume 

SVDWNl  R-OTHER  = RCV  + TOELTAV 
V-QTHER  = VGV  + pUV 

Return 

SVDWN2  If  FLAGWRD9  bit  1 (AVEMIDSW)  = 0: 

P = RCV  + TOELTAV 
VN  = VCV  + pUV 
PIPTIME  = TET 
Return 

WOZERO  Perform  "G13STALL" 

t.»h  bii  7 of  channel  13  to  0 (word  order  code) 

Return 
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Quantities  in  Computations 


I 

ADR:  Single  precision  temporary  storage  for  the  address  taken  from 
the  control  list.  If  it  is  negative  this  indicates  the  end  of  i 
a downlist. 

ADRl,  ADR2:  Single  precision  addresses  (without  EBANK  information) 
of  the  two  consecutive  registers  to  be  transmitted  on  the  downlink. 

CTLIST:  Single  precision  address  of  the  next  entry  in  the  downlink 
control  list.  When  the  final  down].lst  quantity  is  read,  CTLIST  is 
complemented  to  cause  downlist  to  be  started  again. 

DNECADR:  Single  precision  octal  address  of  the  first  of  two  con- 
secutive registers  to  be  transmitted  on  the  downlink  (in  bits  8-1). 
Bits  14-12  contain  a code  indicating  the  type  of  sample  to  be  taken 
(see  DOWNTYPE).  Bit  15  is  set  (DNECADR  made  negative)  to 

Indicate  that  control  is  to  be  returned  to  the  control  list. 

DNLSTCOD:  Single  precision  index  (range  0-5)  Indicating  which  of  the 
downlists  is  to  be  telemetered,  scaled  B14  and  unitless.  Loaded 
by  various  programs  to  select  the  proper  downlist.  See  K:DNTABLE. 

DNTMBUFF:  A series  of  single  precision  buffer  cells  used  to  store  a 
simultaneous  "snapshot"  of  a series  of  E-memory  cells  all  sampled 
at  the  same  downlink  Interrupt,  thereby  making  the  data  time 
homogeneous. 

DNTMGOTO:  Single  precision  octal  address  controlling  the  phase  of 
operation  of  the  downlink  program. 


DOWNTIFE:  Variable  describing  bits  14-12  of  DNECADR  in  the  normal 
downlink  mode.  If  DOWNTIPE  = 7,  the  address  in  DNECADR  is  inter- 
preted as  that  of  a channel.  If  DOWNTIPE  is  less  than  6,  the 
address  in  DNECADR  is  interpreted  as  that  of  a series  of  N con- 
secutive registers  (N  = 2 (DOWNTIPE  + l)).  If  DOWNTIPE  = 6,  the  addre 
in  DNECADR  ifl  interpreted  as  that  of  a sub-list  and  control  Is 
transferred  to  the  sub-list  decoder  ("DODNPTR"). 


DDMPLOC;  Single  precision  E-memory  register  which  contains  the  counter 
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and  ECADR  for  each  dvisp-word  balnf  aent.  Bits  8-1  prorlde  the 
relatiTe  address  within  the  SBAWL;  bits  11-9  define  the  SBANK 
(propagated  from  bit  8);  bits  13-12  senre  as  a counter  of  tbs 
number  of  complete  dumps  \diieh  haTS  occurred.  When  bit  l3  be- 
comes 1 then  memory  has  been  dumped  twice  and  the  diuqplag  stops. 

^ADR*  Single  precision  register  whose  address  is  in  ADR.^ 

EBANK:  See  MTX  section. 

IMODES33:  See  INTR  section. 

INLINK:  Single  precision  serial  input  register  for  receipt  of  uplink 
data.  When  the  required  sixteen  bits  of  data  are  received  from 
the  uplink  decoder,  program  interrupt  #7  is  generated. 

KzDNTABLEj^  (i  = 0-5) X Table  of  six  octal  starting  addresses  of  the 
downli^  lists. 

i List  address 

0 "LMCSTADL" 

1 "LMAGSIDL" 

2 "LMRENDDL" 

3 "LMORBMDL" 

4 "LMDSASDL" 

5 "lmlsALDL" 

KzERASID:  Single  precision  octal  constant  stored  as  01776g.  Used  as 
E-memory  octal  dump  downlist  I.D.  word,  loaded  in  downlink  word. la. 

KzLOWIDCOD:  Single  precision  octal  constant  stored  as  77340g.  Loaded 
into  downlist  word  lb  of  each  of  the  six  downlink  lists.  ^Sometimes 
referred  to  as  the  "sync"  bits. 

Kitimeadr;  Single  precision  constant  stored  as  77753d»  program 
notation  MINTIME2.  Equation  value:  00024g,  address  of  TIMENOW. 

MPACq!  See  DSKI  section. 

PIPTIME:  See  SERV  section. 

R^-OTHER,  V-OTHER:  Double  precision  navigation  state  vectors  of  the  GSM 
scaled  B29  and  B7  respectl’bely  in  units  of  meters  and  meters/centi- 
seconds.  See  RCSM,  VCSM  in  SERV  section. 

RCV,  VCV:  See  CONG  section. 

M:  See  SERV  section. 

SAMPTIME:  See  DSKI  section. 
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SUBADR:  Single  precision  address  oode  word  like  DNECADR  but  taken 
from  a sub-list. 

SUBLIST:  Single  precision  address  of  the  next  entry  In  a downlink 
sub-list. 

TDELTAV,  TNBV:  See  ORBI  section. 

TET:  See  ORBI  section. 

IIMENOW:  See  EZVB  section. 

VN:  See  SERV  section. 
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General  Downlink  Information 


The  LM  Guidance  Computer  (LGC)  downlink  takes  the  form  of  40-bit  words 
transmitted  as  a basic  rate  of  50  words/second  (part  of  a telemetry 
stream  at  51*2  kbps).  A "low  bit  rate"  of  one-fifth  of  this  transmission 
rate  also  exists,  although  no  computer  words  are  included  in  low  bit  rate 
data.  Each  40-bit  word  is  divided  into. four  parts: 

a)  The  first  bit  is  the  word  order  code  bit,  set  zero  for  the  first 
word  pair  and  the  fifty-first  word  pair  and  one  for  the  other  98 
pairs  in  the  standard  telemetry  cycle. 

b)  Bits  #2  - #17  contain  the  first  word  of  the  word  pair  (bit  15 
is  in  bit  bit  l4  in  bit  #3?  •••  bit  1 in  bit  #l6,  and  an  odd 
parity  bit  in  bit  #17).,  The  odd  parity  bit  makes  the  total  number 
of  binary  "ones"  in  bits  #2  - #17  an  odd  number. 

c)  Bits  #18  - #33  contain  the  second  word  of  the  word  pair  (bit 
15  is  in  bit  #l8,  bit  l4  in  bit  #19?  •••  bit  1 in  bit  #32,  and  an 
odd  parity  bit  for  bits  #l8  - #33  in  bit  #33). 

d)  Bits  #34  - #4o  are  the  same  as  bits  #2  - #8  (bits  15-9  of  first 
word  of  the  word  pair),  so  that  the  total  number  of  bits  in  the 
digital  downlink  from  the  computer  is  a multiple  of  8 bits  (i.e., 

5 X 8 = 40). 

The  computer  hardware  monitors  the  period  of  the  telemetry  interrupts 
received  from  the  telemetry  system,  and  rejects  the  interrupt  (takes  no 
action)  if  the  interrupts  occur  too  rapidly.  The  mechanization  requires 
a computer  100  pps  pulse  to  occur  between  each  accepted  telemetry  inter- 
rupt (which,  under  normal  conditions,  only  occur  once  every  20  ms,  or 
at  a 50  pps  rate).  A channel  bit  (channel  33  bit  12)  is  set  to  a binary 
zero  if  an  interrupt  is  rejected,  and  an  alarm  pattern  (ll05g)  is  also 
produced. 

The  convention  is  established  in  the  program  that  "bit  15"  is  the  sign 

bit  (a  binary  one  if  quantity  negative)  and  "bit  1"  is  the  least  sig- 

nificant magnitude  bit.  Using  "a"  for  the  first  word  of  a pair  and  "b" 
for  the  second  word,  the  bit  stream  would  appear  as  follows: 

woe  15a  l4a  13a  12a  11a  10a  9a  8a  7a  6a  5a  4a  3a  2a  la  Parity 

15b  l4b  13b  12b  11b  10b  9b  8b  7b  6b  5b  4b  3b  2b  lb  Parity^ 

15a  l4a  13a  12a  11a  10a  9a 

(woe  is  the  "word  order  code",  discussed  in  item  (a)  above.) 
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Most  telemetered  words  have  negative  niombers  expressed  in  ones  complement 
form,  and  in  general  the  signs  of  the  most  significant  and  least  signif- 
icant portions  will  not  agree,  since  the  individual  portions  of  a multiple 
precision  quantity  are  considered  generally  as  separate  "words"  in  the 
computer  arithmetic  unit.  Several  words  in  the  downlist  are  used  as  control 
quantities  in  the  program  and  have  explicit  meanings  assigned  to  their 
individual  bits.  These  words  have  their  sign  bits  set  separately  from 
the  rest  of  the  word,  'and  hence  are  not  subject  to  the  same  conversion 
process  as  other  "negative"  quantities. 

Scaling,  units,  and  definition  references  for  each  parameter  are 
contained  in  the  tables. 

The  downlink  program  has  the  capability  to  sample  a selected  set  of 
erasable  locations  essentially  at  the  same  time  with  the  contents  of  these 
locations  stored  in  a set  of  unshared  erasable  to  be  downlinked  when 
individual  telemetry  interrupts  ajre  received.  By  this  means  a time-homo- 
geneous set  of  downlink  information  can  be  obtained  provided  the  program 
loading  the  cells  involved  observes  proper  restrictions.  These  selected 
buffered  areas  are  commonly  called  "snapshots".  The  LUMINARY  downlists 
have  the  following  snapshots : 

Coast  and  Align  List  Words  2-8,  52-58 


AGS  Initialization  and  Update  List 
Rendezvous  and  Prethrust  List 
Orbital  Maneuvers  List 
Descent  and  Ascent  List 
Lunar  Surface  Align  List 


Words  52-58 

Words  2-8,  9-13,  52-58 
Words  2-8,  52-58 
Words  2-13,  52-58 
Words  2-8,  9-13,  52-58 
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Downlink  Sequences 


There  are  six  different  100-word  lists  which  can  be  sent  by  the  program 
during  the  flight  (plus  the  special  erasable  memory  dump).  For  conven- 
ience, these  lists  have  been  assigned  serial  numbers,  #0  through  #5  (listed 
in  order  of  increasing  identification  words).  During  a given  program,  a 
certain  list  is  transmitted  as  defined  below: 

List  jtO  The  Coast  and  Align  List  is  transmitted  during: 

POO  LGC  Idling 

P51  IMU  Orientation  Determination 
P52  IMU  Realignment 
P06  LOG  Power  Down 

List  #1  The  AGS  Initialization  and  Update  List  is  transmitted 
during: 

P27  LGC  Update. 

• r47  AGS  Initialization 

List  ^ The  Rendezvous  and  Prethrust  List  is  transmitted  during: 

P20  Rendezvous  Navigation 

P21  Ground  Track  Determination 

P25  Preferred  Tracking  Attitude 

P30  External  Delta  V Maneuver  Guidance 

P32  Coelliptic  Sequence  Initiation  (CSl) 

P33  Constant  Differential  Altitude  (CDH) 

P34  Transfer  Phase  Initiation  (TPl) 

P35  Transfer  Phase  Midcourse  (TPM) 

P72  CSM  CSI  Targeting 
P73  CSM  CDH  Targeting 
P74  CSM  TPI  Targeting 
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List  #3 


P75  CSM  TPM  Targeting 
P76  Target  DELTA  V 

The  Orbital  Maneuvers  List  is  transmitted  during: 

P40  dps  Thrust 
P4l  PCS  Thrust 
p42  APS  Thrust 
p47  Thrust  Monitor 

List  jjh  The  Descent  and  Ascent  List  is  transmitted  during: 

P12  Powered  Ascent  Guidance 
P63  Braking  Phase  Guidance 
p64 ' Approach  Phase  Guidance 

p66  Rate  of  Descent  (ROD)  Landing  Phase  Guidance 

p68  Confirm  Lunar  Landing 
P70  DPS  Abort  Guidance 
P71  APS  Abort  Guidance 

List  #5  The  Lunar  Surface  Align  List  is  transmitted  during: 

P22  RR  Lunar  Surface  Navigation 
P57  Lunar  Surface  Alignment 

Several  cells  are  identified  as  "Spare" : by  program  assembly 
technique,  the  word  on  the  downlink  has  the  first  half  as  OOOOOg  and 
the  second  half  as  a quantity  of  negligible  usefulness  for  post-flight 
processing  (the  contents  of  the  computer  accumulator  register,  cell  0000, 
when  the  telemetry  interrupt  was  recognized). 

Words  marked  with  an  asterisk  in  the  list  were  transmitted  as  a 
result  of  a double  precision  pickup  in  the  downlink  program  and  have 
no  knovm  importance. 
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COAST  and  IMU  ALIGNMENT  LIST 


WORD  # 

FIRST  REGISTER 

1 

LIST  ID  (777773) 

2 

Rt-OTHERq  (X  comp.) 

3 

R^OTHERg  (Y  comp.) 

4 

R-OTHER^  (Z  comp.) 

5 

V-OTHERq  (X  comp.) 

6 

V-OTHER2  (Y  comp.) 

7 

V-OTHER4  (Z  comp.) 

8 

TETCSM  (T-OTHER) 

9 

AGSK  (K-F ACTOR) 

10 

TALIGN 

11 

DOWNTORK2  (POSTORKU) 

12 

DOWNTORK^  (POSTORKV) 

13 

DNRADATAi  (DNRRANGE) 

14 

TEVENT 

15 

REFSMMATq  (RiCj) 

16 

REFSMMAT2  (R1C2) 

17 

REFSMMATq  (R1C3) 

18 

REFSMMATq,  (R2C1) 

19 

REFSMMATg  (R2C2) 

20 

REFSMMATio  (R2C3) 

21 

AOTCODE 

22 

RLSq  ( X-comp) 

23 

RLS2  (Y-comp) 

24 

RLS,  (Z-comp) 

SECOND  REXIISTER 
SYNC  PATTERN  (773408) 
R-0THER-|_  (X  comp.) 
Rr-OTHER^  (Y  comp.) 
R-OTHER^  (Z  comp.) 
V-OTHERi  (X  comp.) 
V-OTHER3  (Y  comp.) 
V-OTHER3  (Z  comp.) 
TETCSM  (T-OTHER) 

AGSK  (K-F ACTOR) 
TALIGN 

DOWNTORK3  (NEGTORKU) 
DOWNTORK5  (NBGTORKV) 
DNRADATA2  (DNRRDOT) 
TEVENT 

REFSMMAT]_  (RiCi) 
REFSMMAT3  (R1C2) 
REF3MAT5  (R1C3) 
REFSMMAT7  (R2C1) 
REFSMMATg  (R2C2) 
REFSMMATii  (R2C3) 
*SINIGA 
RLS^  (X-comp) 

RLS^  (Y-comp) 

RLSj-  (Z  -comp) 


ERASABLE  ADDRESS 


I 1717  - 1724 

I 1725  - 1732 

1570-1 
2020-1 
2774-5 
3115,  3116 
3117,  3120 

1330,  1331 

13a-2 

^ 1733  - 1746 

J 

•0734,  0735 
! 2022  - 2027 


TELE-14 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

25 

DNRADAIA^  (DNLRVELX) 

DNRADATA5  (DNLIWELY) 

1333,  1334 

26 

DNRADATA£,  (DNLR7ELZ) 

DNRADATAr7  (DNLRALT) 

1335,  1336 

27 

VGPREVq  (VGTIG-X  comp) 

VGPREVj^  (VGTIG-X  comp) 

28 

VGPREV2  (VGTIG-Y  comp) 

VGPREV3  (VGTIG-Y  comp) 

3700  - 3705 

29 

VGPREVq  (VGTIG-Z  comp) 

VGPREV5  (VGTIG-Z  comp) 

30 

REDOCTR 

thetadq  (X- angle) 

0320,  0321 

31 

THETADi  (Y- ANGLE) 

THETAD2  (Z-ANGLE) 

0322,  0323 

32 

RSBBQ 

RSBBQH-l 

U32,  U33 

33 

OMEGAP 

OMEGAQ 

3021,  3022 

34 

OMEGAR 

ALPHAQ 

3023,  3024 

35 

CDUXD 

CDUYD 

3234,  3235 

36 

CDUZD 

^DELCDUX 

3236,  3237 

37 

CDUX 

CDUY 

0032,  0033 

38 

CDUZ 

CDUT 

0034,.  0035 

39 

FLAGWRDO 

FLAGWRDl 

40 

FLAGWRD2 

FLAGWRD3 

1 

41 

FLAGWRD4 

FLAGWRD5  ( 

)>  0074  - 0107 

42 

FLAGWRD6 

FLAGWRD7  ( 

43 

FLAGWRD8 

FLAGWRD9 

\ 

44 

FLGWRDIO 

FLGWRDll 

J 

45 

DSPTABq 

DSPTABq  'N 

46 

DSPTAB2 

DSPTAB3  / 

47 

DSPTABq 

DSPTAB5  \ 

y 1022  - 1035 

48 

DSPTABq 

DSPTABy  / 

49 

DSFTABg 

DSPTAB9  1 

50 

DSPTABio 

DSPTABii  J 
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WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

51 

TIMENOW  (TIME2) 

TIMENOW  (TIMEl) 

0024-5 

52 

RNq  (X  comp.) 

RN]^  (X  comp.) 

! 1217  - 1224 

53 

RN2  (Y  comp.) 

RN^  (Y  comp.) 

54 

RN^  (Z  comp.) 

RN^  ( Z comp . ) 

55 

VNq  (X  comp. ) 

VN^  (X  comp.)  j 

1 

56 

VN2  (Y  comp. ) 

VN^  (Y  comp.)  1 

> 1225  - 1232 

1 

57 

VN.  (Z  comp.) 

4 

VN^  (Z  comp.) 

1 

58 

PIPTIME 

PIPTIME 

1233-4 

59 

OMEGAPD 

OMEGAQD 

3242,  3243 

60 

OMEGARD 

♦ecduw 

3244,  3245 

61 

CADRFLSHo 

CADRFLSHi 

0372,  0373 

62 

CADRFLSH2 

FAILREGq 

0374,  0375 

63 

FAILREGi 

FAILREG2 

0376,  0377 

64 

RADMODES 

DAPBOOLS 

0110,,  0111 

65 

OGC 

OGC 

2737  - 2740 

66 

IGC 

IGC 

2741-2 

67 

MIC 

MIC 

2743-4 

68 

BESTI  (STAR  ID  l) 

BESTJ  (STAR  ID  2) 

2755,  2756 

69 

STARSAVIq  (X  comp.) 

STARSAVli  (X  comp.) 

j 

70 

STARSAVI2  (Y  comp.) 

STAESAVI3  (Y  comp.) 

j 2760  - 2765 

71 

STARSAVIq  (Z  comp.) 

STAESAVI5  (Z  comp.) 

1 

72 

STARSAV2o  (X  comp.) 

STARSAV2i  (X  comp.) 

j 

73 

STARSAV22  (Y  comp.) 

STARSAV23  (Y  comp.) 

■2766  - 2773 

74 

STARSAV2^  (Z  comp.) 

STARSAV25  (Z  comp.) 

I 

75 

DNRADATA^  (DNLRS^ELX) 

DNRADATA5  (DNLR\^ELY) 

1333,  1334 

76 

DNRADATA£,  (DNLRVELZ) 

DNRADATAy  (DNLRALT) 

1335,  1336 
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WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

77 

CDUS 

PIPA  (X) 

0036,  0037 

78 

PIPA  (Y) 

PIPA  (Z) 

0040,  0041 

79 

LASTTCMD  (LASTYCMD) 

LASTSCMD  (LASTXCMD) 

0112,  0113 

80 

LEMMASS 

CSMMASS 

1326,  1327 

81 

IM0DES30 

IM0DES33 

1277,  1300 

82 

TIG 

TIG 

34a-2^ 

83 

OMEGAP 

OMEGftQ 

3021,  3022 

84 

OMEGAR 

ALPHAQ 

3023,  3024 

85 

CDUXD 

CDUYD 

3234,  3235 

86 

CDUZD 

^DELCDUX 

3236,  3237 

87 

CDUX 

CDUY 

0032,  0033 

88 

CDUZ 

GLUT 

0034,  0035 

89 

ALPHAQ 

ALPHAR 

3024,  3025 

90 

DOWNTORKo  (POSTORKP) 

DOWNTORKi  (NEGTORKP) 

3113,  31U 

91 

CHANRELll 

CHANNEL12 

92 

CHANNEL13 

CHANNELI4 

93 

CHANNEL30 

CHANNEL31 

94 

CHANMEL32 

CHANNEL33 

95 

DSPTABq 

DSPTAB]_ 

V 

96 

DSPTAB2 

DSPTAB3 

97 

DSPTAB, 

DSPTABc 

i 

A* 

P 

/ 1022  - 1035 

98 

DSPTABq 

DSPTABy  y 

f 

99 

DSPTABg 

DSPTABg  1 

100 

DSPTAB3_q 

DSPTABj^^  J 

1 

TELE-17 


AGS  INITIALIZATION  & UPDATE  LIST 


WORD  # FIRST  REGISTER  SECOND  REGISTER  ERASABLE  ADDRESS 


1 

LIST  ID  (77776g) 

SYNC  PATTERN  (77340g) 

2 

AGSBUFFq  (LM  X POS) 

‘‘AGSBUFF]^  (not  used  by  AGS) 

2200, 

2201 

3 

AGSBUFF2  (LM  Y POS) 

^AGSBUFF^  (not  used  by  AGS) 

2202, 

2203 

4 

AGSBUFFq  (LM  Z POS) 

AGSBUFFq  (not  used  by  AGS) 

2204, 

2205 

5 

AGSBIFF]_2  (Vector  time 
MSB) 

^AGSBUFFj^^  (not  used  by 'AGS) 

2214, 

2215 

6 

AGSBUFFi  (LM  X VEL) 

*AGSBUFF2  (not  used  by  AGS) 

2201, 

2202 

7 

AGSUBFF3  (LM  Y VEL) 

* AGSBUFFq  (not  used  by  AGS) 

2203, 

2204 

8 

AGSBUFF5  (LM  Z VEL) 

AGSBUFFq,  (not  used  by  AGS) 

2205, 

2206 

9 

AGSBUFFto  (Vector  time 
LSB) 

*’^V0NE2  (not  used  by  AGS) 

2215, 

2216 

10 

AGSBUFFq,  (CSM  X POS) 

* AGSBUFFq  (not  used  by  AGS) 

2206, 

2207 

11 

AGSBUFFq  (CSM  Y POS) 

^AGSBUFFg  (not  used  by  AGS) 

2210, 

2211 

12 

AGSBUFF^o  2 

^AGSBUFF-]  1 (not  used  by  AGS) 

. J . 

2212, 

2213 

13 

AGSBUFF-ip  (Vector  time 
MSB) 

^AGSBUFF^^  (not  used  by  AGS) 

2214, 

2215 

U 

AGSBUFFq  (CSM  X VEL) 

^AGSBUFFq  (not  used  by  AGS) 

2207, 

2210 

15 

AGSBUFF9  (CSM  Y VEL) 

*AGSBUFFio  (not  used  by  AGS) 

{\ 

2211, 

2212 

16 

AGSBUFFii  (CSM  Z VEL) 

^AGSBUFF]^2  (not  used  by  AGS) 

t.t"-  1 ■ 

2213, 

2214 

17 

AGSBUFFq_3  (Vector  time 
LSB) 

*V0NE2  (not  used  by  AGS) 

2215, 

2216 

18 

COMPNUMB 

UPOLDMOD 

1167, 

1170 

19 

UFVERB 

UPCOUNT 

1171, 

1172 

TELE-18 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

20 

UPBUFFq 

UPBUFFi 

21 

UPBUFF2 

UPBUFF3 

22 

UPBUFFq 

UPBUFF5 

23 

UPBUFFq, 

UPBUFFy 

/ 

24 

UPBUFFg 

UPBUFFg 

1 

^ 1173  - 1216 

25 

UPBUFF]_o 

UPBUFFji 

26 

UPBUFF12 

UPBUFF]_3 

1 

27 

UPBUFF]^ 

UPBUFF15 

\ 

28 

UPBUFF]_£) 

UPBUFF]_7 

j 

29 

UPBUFF18 

UPBUFFig 

/• 

30 

REDOCTR 

THETADq  (X-angle) 

0320,  0321 

31 

THETADi  (Y-angle) 

THETAD2  (Z-angle) 

0322,  0323 

32 

RSBBQ 

RSBBQfl 

1432,  1433 

33 

OMEGAP 

OMEGAQ 

3021,  3022 

34 

OMEGAR 

ALPHAQ 

3023,  3024 

35 

CDUXD 

CDUYD 

3234,  3235 

36 

CDUZD 

^DELCDUX 

3236,  3237 

37 

CDUX 

CDUY 

0032,  0033 

38 

CDUZ 

CDUT 

0034,  0035 

39 

FLAGWRDO 

FLAGWRDl 

1 ^ 

40 

FLAGWRD2 

FLAGWRD3 

I 

1 

41 

FLAGWRD4 

FLAGWRDS 

\ 

/ 

> 0074  - 0107 

42 

FLAGWRD6 

FLAGWRD7 

' 

43 

FLAGWRD8 

FLAGWRD9 

J 

44 

FLGWRDIO 

FLGWRDll 

TELE-19 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

45 

DSPTABo 

DSPTABg 

46 

DSPTAB2 

DSPTAB3 

47 

DSPTAB^ 

DSPTAB5  . 

) 1022  - 1035 

48 

DSPTAB^ 

DSPTABg 

/ 

49 

DSPTABg 

DSPTABg 

50 

DSPTABiO 

DSPTAB]_i  ^ 

51 

TIMENOW  (TIME2) 

TIMENOW  (TIMEl) 

0024-5 

52 

RNq  (X  comp.) 

RN;j^  (X  comp.)  \ 

53 

RN2  (y  comp.) 

RN3  (Y  comp.)  1 

1217  - 1224 

54 

RN^  (Z  comp.) 

RN3  ( Z comp . ) ) 

55 

VNq  (X  comp.) 

VN]_  (X  comp.) 

56 

VN2  (Y  comp.) 

VN3  (Y  comp.) 

1225  - 1232 

57 

VN^  (Z  comp.) 

VN3  (Z  comp.) 

58 

PIPTIME 

PIPTIME 

1233-4 

59 

OMEGAPD 

OMBGAQD 

3242,  3243 

60 

OMEGARD 

*ECDUW 

3244,  3245 

61 

CADRFLSHq 

CADRFLSHq 

0372,  0373 

62 

CADRFLSH2 

FAILREGq 

0374,  0375 

63 

FAILREG^ 

FAILREG2 

0376,  0377 

64 

RADMODES 

DAPBOOLS 

0110,  0111 

65 

DOWNTORK2  (POSTORKU) 

DOWNTORK3  (NEGTORKU) 

3115,  3116 

66 

DOWNTORK^  (POSTORKV) 

DOWNTORK5  (NEGTORKV) 

3117,  3120 

67 

SPARE 

SPARE 

68 

SPARE 

SPARE 

69 

AGSK  (K-FACTOR) 

AGSK  (K-FACTOR) 

2020-1 

TELE-20 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE 

ADDRE. 

70 

UPBUFFq 

UPBUFFj^ 

71 

UPSTFFg 

UPBUFF3 

72 

UPBUFFq 

UPBUFF5 

73 

UPBUFF£) 

UPBUFF7 

/ 

74 

UPBUFFg 

UPBUFFg 

} 1173  ■ 

- 1216 

75 

UPBUFFio 

UPBUFFii  / 

76 

UPBUFF12 

UPBUFF13 

77 

UPBUFF14 

UPBUFF15 

78 

UPBUFF15 

UPBUFF]_y  ! 

79 

UPBUFF18 

y 

UPBUFFig 

80 

LEMMASS 

CSMMASS 

1326, 

1327 

81 

IM0DES30 

IM0DES33 

1277, 

1300 

82 

SPARE 

SPARE 

83 

Ol^GAP 

OMEGAQ 

3021, 

3022 

84 

OMEGAR 

ALPHAQ 

3023, 

3024 

85 

CDUXD 

CDUYD 

3234, 

3235 

86 

CDUZD 

* DELCDUX 

3236, 

3237 

87 

CDUX 

CDUY 

0032, 

0033 

88 

CDUZ 

CDUT 

0034, 

0035 

89 

ALPHAQ 

ALPHAR 

3024, 

3025 

90 

DOWNTORKq  (POSTORKP) 

DCJWNTDRK^  (NBGTORKP) 

3113, 

3IU 

91 

CHANNELll 

CHANNEL12 

92 

CHANNELI3 

CHANNELI4 

93 

CHANNSL30 

CHANNEL31 

94 

CHAMEL32 

CHANNEL33 

TELE-21 


WORD  ^ FIRST  REGISTER 

95  DSPTABo 

96  DSPTAB2 

97  DSPTAB4 

98  DSPTAB6 

99  DSPTABg 

100  DSPTABio 


SECOND  REGISTER 
DSPTABi 
DSPrAB3 
DSPTAB5  . 

DSPTAB7 

DSPTAB9 

DSPTABii 


ERASABLE 


1022  - 


ADDRESS 


1035 


TELE-22 


RENDEZVOUS  & PRETHRUST  LIST 


WORD 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

1 

LIST  ID  (777758) 

SYNC  PATTERN  (773408) 

2 

R-OTHERq  (X  comp.) 

R-OTHERi  (X  comp. ) 

3 

R-OTHER2  (Y  comp.) 

R-OTHER3  (Y  comp. ) 

1717  - 1724 

4 

R-OTHEI^  (Z  comp.) 

R-OTHER5  (Z  comp.) 

5 

V-OTHERo  (X  comp.) 

V-OTHEI^  (X  comp.)  \ 

6 

V-OTHER2  (Y  comp.) 

V-OTHER3  (Y  comp.)  1 

1725  - 1732 

7 

V-OTHER4  (Z  comp.) 

V-OTHER3  (Z  comp.)  ) 

8 

TETCSM  (T-OTHER) 

TETCSM  (T-OTHER) 

1570-1 

9 

RANGRDOT  i DNRBJ'j'jliE/ 

RANGRDOT+1  — , 

3760,  3761 

10 

AIG 

AMG 

3457,  3460 

11 

AOG 

TRKMKCNT 

3461,  3462 

12 

TANGNBq  (RR  trunnion) 

TANGNBi  (RR  shaft) 

3752,  3753 

13 

MKTIME 

MKTIME 

3754-5 

U 

DELLT4  (Tp  Lambert) 

DELLT4  (Tp  Lambert) 

3451-2 

15 

RTARGo  (X  comp. ) 

KTAEG^  (X  comp. ) 

I 

16 

RrARG2  (Y  comp.) 

RTARGo  (Y  comp.) 

3443  - 3450 

17 

RTARG^  (Z  comp.) 

ETARG^  (Z  comp.) 

) 

18 

DELVLVCq  (delvslv-x) 

DELVLVCi  (DELVSLV-X) 

19 

DELVLVC2  (DELVSLV-Y) 

DELVLVC3  (DELVSLV-Y)  ^ 

3433  - 3440 

20 

DELVLVC4  (DELVSLV-Z) 

DELVLVC5  (DELVSLV-Z) 

21 

TCSI  (CSI  time) 

TCSI  (CSI  time) 

3633-4 

22 

DELVEETIq  (X  comp . ) 

DELVEETli  (X  comp.) 

1 

23 

DELVEETI2  (Y  comp.) 

DELVEETI3  (Y  comp.) 

> 2266  - 2273 

24 

DELVEETl^  (Z  comp.) 

DELVEETI5  ( Z comp . ) 

TELE-23 


WORD  § 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDREi 

25 

SPARE 

SPARE 

26 

TPASS4  (TPF  time) 

TPASS4  (TPF  time) 

3630-1 

27 

X789x  (RR  shaft  bias) 

X789x  (RR  shaft  bias) 

1700-1 

28 

X789y  (RR  trunnion  bias) 

I789y  (HR  trunnion  bias) 

1702-3 

29 

LASTTCMD(LASTYCMD) 

LASTSCMD  (LASTXCMD) 

0112  - 0113 

30 

REDOCTR 

THETADq  (X-angle) 

0320,  0321 

31 

THETAD2_  (Y-angle) 

THETAD2  (Z-angle) 

0322,  0323 

32 

RSBBQ 

RSBBQfl 

1432,  U33 

33 

OMEGAP 

OMEGAQ 

3021,  3022 

34 

OMEGAR 

ALPHAQ 

3023,  3024 

35 

CDUXD 

CDUYD 

3234,  3235 

36 

CDUZD  ^ 

’^DELCDUX 

3236,  3237 

37 

CDUX 

CDUY 

0032,  0033 

38 

CDUZ 

CDUT 

0034,  0035 

39 

40 

41 

42 

43 

U 

45 

46 

47 

48 

49 

50 


FLAGWRDO 

FLAGWRD2 

FLAGWRD4 

FLAGWRDe 

FLAGWRD8 

FLGWRDIO 

DSPTABq 

DSPTAB2 

DSPTABq 

DSPTABq 

DSPTABg 

DSPTABio 


FLAGWRDl 

FLAGWRD3 

FLAGWRD5 

FLAGWRD7 

FLAGWRD9 

FLGWRDll 

DSPTABq 

DSPTAB3 

DSPTAB5 

DSPTAB7 

DSPTABg 

DSPTABii 


0074  - 0107 


,1022  - 1035 


TELE-24 


WORD  # FIRST  REGISTER 

51  TIMENOW  (TIME2) 

52  FJNq  (X  comp. ) 

53  RN2  (Y  comp.) 

54  (Z  comp.) 

55  VNq  (X  comp.) 

56  VN2  (Y  comp.) 

57  VN^  (Z  comp.) 


SECOND  REGISTER 
TIMENOW  (TIMEl) 

RNj  (X  comp.) 

RN^  (Y  comp.) 

RN^  (Z  comp.) 

VN^  (X  comp. ) 

VN^  (Y  comp.) 

VN^  (Z  comp.) 


ERASABLE  ADDRESS 

0024-5 

1217  - 1224 


1225  - 1232 


58 

PIPTIME 

PIPTIME 

1233-4 

59 

OMEGAPD 

OMEGAQD 

3242,  3243 

60 

OMEGARD 

^ECDUW 

32A4,  3245 

61 

CADRFLSHq 

CADRFLSHi 

0372,  0373 

62 

CADRFLSH2 

FAILREGq 

0374,  0375 

63 

FAILREGi 

FAILREG2 

0376,  0377 

64 

RADMODES 

DAPBOOLS 

0110,  0111 

65 

DOWNTORK2 

(POSTORKU) 

DOWNTORK3 

(NEGTORKU) 

3115,  3116 

66 

DOWNTORK4 

(P0ST0RK7) 

DOWNTORK5 

(NEGTORKV) 

3117,  3120 

67 

SPARE 

SPARE 

68 

TCDH 

TCDH 

1776-7 

69 

DELVEET2q 

(X  comp . ) 

DELVEET2^ 

(X  comp. ) 

70 

DELVEET22 

(Y  comp.) 

DELVEET2^ 

(Y  comp.)  1 

1 2274  - 2301 

71 

DELVEET2, 

4 

(Z  comp.) 

DELVEET2. 

5 

(Z  comp.) 

i 

72 

TTPI 

TTPI 

3635-6 

73 

DELVEET30 

DSLVEET31 

74 

DELVEET32 

DELVEET33 

’ 2365  - 2372 

75 

DELVEET34 

DELVEET35 

1 

76 

ELEV 

ELEV 

2256-7 

TELE-25 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

77 

ODDS 

PIPA  (X) 

0036,  0037 

78 

PIPA  (Y) 

PIPA  (Z) 

0040,  0041 

79 

LASTTCMD  (LASTYCMD) 

LASTSCMD  (LASTXCMD) 

0112,  0113 

80 

LEa^MASS 

CSMMASS 

1326,  1327 

81 

IMDDES30 

IMODES33 

1277,  1300 

82 

TIG 

TIG 

3441-2 

83 

OMEGAP 

OMEGAQ 

3021,  3022 

84 

OMBGAR 

ALPHAQ 

3023,  3024 

85 

CDUXD 

CDUYD 

3234,  3235 

86 

CDUZD 

'*DELCDUX 

3236,  3237 

87 

CDUX 

CDUY 

0032,  0033 

88 

CDUZ 

CDUT 

0034,  0035 

89 

ALPHAQ 

ALPHAR 

3024,  3025 

90 

DOWNTORKo  (POSTORKP) 

DOWNTORKi  (NEGTORKP) 

3113,  3114 

• 91 

CHANNELll 

CHANNEL12 

92 

CHANNEL13 

CHANNEL14 

93 

CHAIJNEL30 

CHANNEL31 

94 

CHANNEL32 

CHANNEL33 

95 

SPARE 

SPARE 

96 

CENTAMG 

CENTANG 

3620-1 

97 

NN 

NN 

3466-7 

98 

DIFFALT 

DIFFALT 

3577  - 3600 

99 

DELVTPF 

DELVTPF 

2347  - 2350 

100 

SPARE 

SPARE 

TELE-26 


ORBITAL  MAMEUVERS  LIST 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

1 

LIST  ID  (777748) 

SYNC  PATTERN  (773408) 

2 

R-OTHERq  (X  comp.) 

R-OTHERt  (X  comp. ) 

1 

3 

R-OTHER2  (Y  comp.) 

R^0THER3  (Y  comp.) 

1717  - 1724 

4 

R-OTHER/^  ( Z comp . ) 

1 

R-OTHER3  (Z  comp.) 

5 

V-OTHERo  (X  comp.) 

V-OTHERt  (X  comp.) 

6 

V-OTHER2  (Y  comp.) 

V-OTHER3  (Y  comp.) 

i 1725  - 1732 

7 

V-OTHEI\^  (Z  comp.) 

V-OTHER5  (Z  comp.) 

8 

TETCSM  (T-OTHER) 

TETCSM  (T-OTHER) 

1570-1 

9 

DELLT4 

DELLT4 

3451-2 

10 

RTARGq  (X  comp.) 

RTARGt  (X  comp.)  j 

11 

RrARG2  (Y  comp.) 

RTARG3  (Y  comp.)  / 

3443  - 3450 

12 

RTARGq  (Z  comp.) 

RTARGq  (Z  comp.)  | 

13 

ELEV 

ELEV 

2256-7 

14 

TEVENT 

TEVENT 

1341-2 

15 

REFSMMATq  (RiC^) 

REFSMMATt  (RiCi)  ^ 

16 

REFSMMAT2  (R1C2) 

REFSMMAT3  (R1C2) 

17 

REFSMMAT4  (R1C3) 

REFSMMAT5  (R1C3) 

\ 1733  - 1746 

18 

REFSMMATq  (R2C1) 

REFSMMAT7  (R2C1) 

19 

REFSMMATg  (R2C2) 

REFSMMAT9  (R2C2) 

20 

REF  SMMAT to  ( R2^3  ) 

REFSMMATii  (R2C3)  ^ 

21 

TCSI 

TCSI 

3633-4 

22 

DELVEETIq  (X  comp.) 

DELVEETl3_  (X  comp.)  ) 

23 

DELVEETI2  (Y  comp.) 

DELVEETIq  (Y  comp.)  ( 

2266  - 2273 

24 

DELVEETIq  (Z  comp.) 

DELVEETl 5(2  comp . ) j 

TELE- 27 


WORD  # 


FIRST  REXjISTER 


SECOND  REX^ISTER 


ERASABLE  ADDRESS 


25 

VGPREVq  (VGTIG-X  comp.) 

VGPREVq  (VGTIG-X  comp.) 

26 

VGPREV2  (VGTIG-Y  comp.) 

VGPREV3  (VGTIG-Y  comp.) 

[ 3700  - 3705 

27 

VGPREVq  (VGTIG-Z  comp.) 

VGPREVq  (VGTIG-Z  comp.) 

28 

DNRADATA^  (DNLRVELZ) 

DNRADATA.7  (DNLRALT) 

1335,  1336 

29 

TPASS4  (TPF  time) 

TPASS4  (TPF  time) 

3630-1 

30 

REDOCTR 

THETADo  (X-angle) 

0320,  0321 

31 

THETADi  (Y-angle) 

THETAD2  (Z-angle) 

0322,  0323 

32 

R3BBQ 

RSBBQ+1 

1432,  1433 

33 

OMEGAP 

OMEGAQ 

3021,  3022 

34 

OMEGAR 

ALPHAQ 

3023,  3024 

35 

CDUXD 

CDUYD 

3234,  3235 

36 

CDUZD 

'^^DELCDUX 

3236,  3237 

37 

CDUX 

CDUY 

0032,  0033 

38 

CDUZ 

CDUT 

0034,  0035 

39 

40 

a 

42 

43 

44 

45 

46 

47 

48 

49 

50 


FLAGWRDO 

FLAGWRD2 

FLAGWRD4 

FLAGWRD6 

FLAGWRD8 

FLGWRDIO 

DSPTABo 

DSPTAB2 

DSPTAB^ 

DSPTAB^ 

DSPTABg 

DSPrAB3_Q 


FLAGWRDl 

FLAGWRD3 

FLAGWRD5 

FLAGWRD7 

FLAGWRD9 

FLGWRDll 

DSPTABq^ 

DSPTAB3 

DSPTABg 

DSPTABy 

DSPTABg 

DSPTAB^^ 


0074  - 0107 


1022  - 1035 


TELE-28 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

51 

t 

TIMENW  (TtME2) 

J . V > 

TMKNOW  (timed 

0024-5 

52 

RNq  (X  comp.) 

RN-j_  (X  comp.) 

1 

53 

RN2  (Y  comp.) 

RN^  (Y  comp.) 

[ 1217  - 1224 

54 

RN^  ( Z comp . ) 

RN^  (Z  comp.) 

1 

55 

VNq  (X  comp.) 

VN-j^  (X  comp.) 

56 

VN2  (Y  comp.) 

VN^  (Y  comp.) 

1 1225  - 1232 

57 

VN^  (Z  comp.) 

VN^  (Z  comp.) 

58 

PIPTIME 

PIPTIME 

1233-4 

59 

OMEGAPD 

OMEGAQD 

3242, 3243 } 

60 

OMEGARD 

^ECDUW 

3244,  3245 

61 

CADRFLSHq 

CADRFLSH]_ 

0372,  0373 

62 

CADRFLSH2 

FAILREGq 

0374,  0375 

63 

FAILREG]_ 

FAILREG2 

0376,  0377 

64 

RADMODES 

DAPBOOLS 

0110,  0111 

65 

D0Wlfr0RK2  (POSTORKU) 

DOWNTORK3  (NEGTORKU) 

3115,  3116 

66 

DOWNTORK^  (POSTORKV) 

DOWNTORK3  (NBGTORKV) 

3117,  3120 

67 

SPARE 

SPARE 

68 

TCDH 

TCDH 

1776-7 

69 

DELVEET20  (X  comp.) 

DELVEET21  (X  comp.) 

1 

70 

DELVEET22  (Y  comp.) 

DELVEET23  ( Y comp . ) 

[ 2274  - 2301 

71 

DELVEET2^  (Z  comp.) 

DELVEET25  (Z  comp.) 

) 

72 

TTPI 

TTPI 

3635-6 

73 

DELVEET3o  (X  comp.) 

DELVEET3i  (X  comp.) 

74 

DELVEET32  (Y  comp. ) 

DELVEET33  (Y  comp. ) 

' 2365  - 2372 

75 

DELVEET3^  (Z  comp.) 

DELVEET33  (Z  comp.) 

76 

DNRADATAi  (DWRRANGE) 

DNRADATA2  (DNRRDOT) 

1330,  1331 

IELE-29 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

77 

DNRADATA^  (DNLRVELX) 

DNRADATA5  (DNLR^ELY) 

1333,  1334 

78 

DNRADATA^,  (DNLIWELZ) 

DNRADATA^  (DNLRALT) 

1335,  1336 

79 

DIFFALT 

DIFFALT 

3577  - 3600 

80 

LEMMASS 

CSMMASS 

1326,  1327 

81 

IM0DES30 

IMODES33 

1277,  1300 

82 

TIG 

TIG 

3441-2 

83 

OMEGAP 

OMEGAQ 

3021,  3022 

84 

OMEGAR 

ALPHAQ 

3023,  3024 

85 

CDUXD 

CDUYD 

3234,  3235 

86 

CDUZD 

^ DELCDUX 

3236,  3237 

87 

CDUX 

CDUY 

0032,  0033 

88 

CDUZ 

CDUT 

0034,  0035 

89 

ALPHAQ 

ALPHAR 

3024,  3025 

90 

DOWNTORKq  (POSTORKP) 

DOWNTORKi  (NEGTORKP) 

3113,  3IU 

91 

CHANNELll 

CHANNEL12 

92 

CHANEEL13 

CHANNELI4 

93 

CHAiraEL30 

CHANNEL31 

94 

CHANNEL32 

CHANNEL33 

95 

PIPTIMEl 

PIPTIMEl 

3560-1 

96 

DELVq  (X  comp.) 

DELV^  (X  comp.) 

97 

DELV2  (Y  comp.) 

DELV^  (Y  comp.)  j 

' 

j 0324  - 0331 

98 

DELV^  (Z  comp.) 

DELV^  (Z  comp.) 

99 

SPARE 

SPARE 

100 

TGO 

TGO 

3516-7 

TELE-30 


DESCENT  AND  ASCENT  LIST 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

1 

LIST  ID  (777738) 

SYNC  PATTERN  (773400) 

2 

LRCDUDLq  (LRXCDUDL) 

LRCDUDLq  (LRYCDUDL) 

2334,  2335 

3 

LRCDUDL2  (LRZCDUDL) 

LRVTIMDL  (MSB) 

2336,  2337 

4 

VSELECT 

^ VMEAS  (MSB) 

3651,  3652 

5 

LRVTIMDL 

LRVTIMDL 

2337  - 2340 

6 

VMEAS  (LR  Velocity) 

■ VMEAS  (LR  Velocity) 

3652-3 

7 

MKTIME 

MKTIME 

3754-5 

8 

HMEAS  (LR  Range) 

HMEAS  (LR  Range) 

3654-5 

9 

RMg  (RR  Range) 

RMj^  (RR  Range  rate) 

3756,  3757 

10 

AIG  (Y-angle) 

AMG  (Z-angle) 

3457,  3460 

11 

AOG  (X-angle) 

TRKMKCNT 

3461,  3462 

12 

TANGNBq  (RR  Trunnion) 

TANGNBq  (RR  Shaft) 

3752,  3753 

- 13 

MKTIME 

MKTIME 

3754-5 

U 

TEVENT 

TEVENT 

1341-2 

15 

UNFCg  (X  comp.) 

UNFCi  (X  comp.)  1 

16 

UNFC2  (Y  comp.) 

UNFC^  (Y  comp.)  1 

17 

UNFC^  ( Z comp . ) 

UNFC5  ( Z comp . ) 

j 3252  - 3257 

18 

VGVECTq  (X  comp.) 

VGVECTi  (X  comp.) 

19 

VGVECT2  (Y  comp.) 

VGVECT3  (Y  comp.) 

* 3645-3652 

20 

VGVECT^i^  (Z  comp.) 

VGVECT3  (Z  comp.) 

21 

TTF 

TTF 

3642-3 

22 

DELTAH 

DELTAH 

3664-5 

TELE-31 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

23 

RLSq  (X  comp.) 

RLSj  (X  comp.)  1 

24 

RLSg  (y  comp. ) 

RLS^  ( Y comp . ) / 

2022  - 2027 

25 

RLS^  (Z  comp.) 

RLS^  (Z  comp.)  1 

26 

ZDOTD 

ZDOTD 

2276-7 

27 

X789x  (I®  Shaft  bias) 

X789x  (I®  Shaft  bias) 

1700-1 

28 

X789y.  (RR  Trunnion  bias) 

X789„  (RR  Trunnion  bias) 

i 1702-3 

29 

LASTTCMD  (LASTYCMD) 

LASTSCMD  (LASTXCMD) 

0112,  0113 

30 

REDOCTR 

THETADq  (X-angle) 

0320,  0321 

31 

THETAD^  (Y-angle) 

THETAD2  (Z-angle) 

0322,  0323 

32 

RSBBQ 

RSBBQfl 

U32,  U33 

33 

OMEGAP 

OMEGAQ 

3021,  3022 

34 

OMBGAR 

ALPHAQ 

3023,  3024 

35 

CDUXD 

CDUYD 

3234,  3235 

36 

CDUZD 

^ DELCDUX 

3236,  3237 

yi 

CDUX 

CDUY 

0032,  0033 

38 

CDUZ 

CDUT 

0034,  0035 

39 

FLAGWRDO 

FLAGWRDl  > 

\ 

40 

FLAGWRD2 

FLAGWRD3 

41 

FLAGWRD4 

FLAGWRD5  ' 

\ 0074  - 0107 

42 

FLAGWRD6 

FLAGWRD7  , 

f 

43 

FLAGWRD8 

FLAGWRD9 

\ 

44 

FLGWRDIO 

FLGWRDll 

) 

45 

DSPTA^ 

DSPTABi 

46 

DSPTA^v 

DSPTA^ 

> 1022  - 1035 

47 

DSPTA^/i 

DSPTAB5 

TELE-32 


WORD 


FIRST  REGISTER 
DSPTAB^ 

DSPTABg 
DSPTABio 
TIMENOW  (TIME2) 

RNq  (X  comp.) 

RN2  (X  comp.) 

RN^  ( Z comp . ) 

VNq  (X  comp.) 

VN2  (X  comp. ) 

VN^  (Z  comp.) 

PIPTIME 

OMEGAPD 

OMEGAHD 

CADRFLSHo 

CADRFLSH2 

FAILREGi 

RADMODES 

D0WOT’0RK2  (POSTORKU) 
DOWNTORK^  (POSTORKV) 
EGUq  (X  comp.) 

EGU2  (X  comp.) 

RGIJ^  ( Z comp . ) 

VGUq  (X  comp.) 

VGU2  (X  comp.) 

VGU^  ( Z comp . ) 


SECOND  REGISTER 
DSPTAB7 
DSPTAB9 
DSPTABii  . 

TIMENCW  (TIMEI) 

RNi  (X  comp.) 

RN3  (X  comp.) 

RN5  ( Z comp . ) 

VNi  (X  comp.) 

VN3  (X  comp.) 

VN5  (Z  comp.) 
PIPTIME 
OMEGAQD 
*ECDUW 
CADRFLSHi 
FAILREGq 
FAILREG2 
DAPBOOLS 

DOWNTORK3  (NEGTORKU) 
DOWNTORK5  (NEGTORKV) 
RGU-j^  (X  comp.) 

RIU3  (X  comp.) 

BGU3  (Z  comp.) 

VGUi  (X  comp.) 

VGU3  (Y  comp.) 

VGU3  ( Z comp . ) 


ERASABLE  ADDRESS 


1022  - 1035 


0024-5 


1217  - 1224 


1225  - 1232 


1233-4 
3242,  3243 
3244,  3245 

0372,.  0373 

0374,  0375 

0376,  0377 
0110,  0111 
3115,  3116 
3117,  3120 


2626  - 2633 


3626  - 3633 


tele-33 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRE; 

73 

LANDq  (X  comp.) 

LANI^  (X  comp. ) 

74 

LAND2  (y  comp.) 

LAND^  ( y comp . ) j 

3634  - 3641 

75 

LAND^  (Z  comp.) 

LAND^  ( Z comp . ) 

76 

AT 

AT 

2262-3 

77 

TLAND 

TLAND 

2400-1 

78 

FC 

"^RDOTV 

3615,  3616 

79 

LASTTCMD  (LASTYCMD) 

LASTSCMD  (LASTXCMD) 

0112,  0113 

80 

LBMMASS 

CSMMASS 

1326,  1327 

81 

fM0DES30 

IM0DES33 

1277,  1300 

82 

TIG  ■ 

TIG 

3441-2 

83 

OMEGAP 

OMEGAQ 

3021,  3022 

84 

OMBGAR 

ALPHAQ 

3023,  3024 

85 

CDUXD 

CDUYD 

3234,  3235 

86 

CDUZD 

DELCDUX 

3236,  3237 

87 

CDUX 

CDUy 

0032,  0033 

88 

CDUZ 

CDUT 

0034,  0035 

89 

ALPHAQ 

ALPHAR 

3024,  3025 

90 

DOWNTORKq  (POSTORKP) 

DWNTCBIK^  (NEGffiORKP) 

3113,  3114 

91 

CHANNELll 

CHANNEL12 

92 

CHAMELI3 

CHANNELI4 

93 

CHANNEL30 

CHANNEL31 

94 

CHANNEL32 

CHANNEL33 

95 

PIPTIMEl 

PIPTIMEl 

..  3560-1 

96 

DSLVq  (X  comp.) 

DELVj^  (X  comp.)  j 

97 

DSLVg  (y  comp.) 

DELV3  (y  con^.)  [ 

.0324  - 0331 

98 

DELV^  (Z  comp.) 

DELV3  (Z  comp.)  1 

TELE-34 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

99 

PSEUD055 

FC 

3614,  3615 

100 

TTOGO 

TTOGO 

3453-4 

TELE-35 


LUNAR  SURFACE  ALIGNMENT  LIST 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

1 

LIST  ID  (77772g) 

SYNC  PATTERN  (773408) 

2 

R^OTHERq  (X  comp.) 

R-OTHER]_  (X  comp.)  j 

3 

R-OTHER2  (Y  comp.) 

R-OTHER3  ( Y comp . ) 

1717  - 1724 

4 

R-OTHER^  (Z  comp.) 

R-OTHER5  (Z  comp.) 

5 

V-OTHERq  (X  comp.) 

V-OTHERi  (X  comp.) 

6 

V-OTHER2  (Y  comp.) 

■ V-OTHER3  (Y  comp.) 

1725  - 1732 

7 

V-OTHERq  (Z  comp.) 

V-OTHER5  (Z  comp.)  ) 

8 

TETCSM  (T-OTHER) 

TETCSM  (T-OTHER) 

1570-1 

9 

BANGRDOT 

RANGRDOT+l 

3760,  3761 

10 

AIG 

AMI 

3457,  3460 

11 

AOG 

TRKMKCNT 

3461,  3462 

12 

TANGNBq  (RR  trunnion) 

TANGNBi  (RR  shaft) 

3752,  3753 

13 

MKTIME 

MKTIME 

3754-5 

14 

TALIGN 

TALIGN 

2774-5 

15 

REFSMMATo  (RiC]_) 

REFSMMATi  (RiC]_)  ^ 

16 

REFSMMAT2  (R1C2) 

REFSMMAT3  (R1C2) 

17 

REFSMMAT^  (R1C3) 

REFSMMAT5  (R1C3) 

\ 1733  - 1746 

18 

REFSMMAI5  (R2C1) 

REFSMMAT7  (R2C1) 

/ 

19 

REFSMMATg  (R2C2) 

REFSMMATg  (R2C2) 

20 

REFSMMATj^O  (^2^3) 

REFSMMATii 

) 

21 

YNBSAVq  (X  comp.) 

YNBSAVi  (X  comp.)  1 

22 

YNBSAV2  (Y  comp.) 

YNBSAV3  (Y  comp.)  1 

2236  - 2243 

23 

YNBSAV^  (Z  comp.) 

YNBSAV5  (Z  comp.)  1 

tele-36 


FIRST  REGISTER 


SECOND  REGISTER 


ERASABLE  ADDRESS 


WORD  # 


24 

ZNBSAVq  (X  comp.) 

ZNBSAVq  (X  comp.)  ] 

25 

ZNBSAV2  (I  comp.) 

ZNBSAV3  (Y  comp.)  > 

2244  - 2251 

26 

ZNBSAV4  (Z  comp.) 

ZNBSAV3  (Z  comp.)  j 

27 

X7893J  (RR  shaft  bias) 

X789x  (RR  shaft  bias) 

1700-1 

23 

X789y  (RR  trunnion  bias) 

X789y  (RR  trunnion  bias) 

1702-3 

29 

LASTTCMD  (LASTYCMD) 

LASTSCMD  (LASTXCMD) 

0112,  0113 

30 

REDOCTR 

THETADo  (X-angle) 

0320,  0321 

31 

THETADi  (Y-angle) 

THETAD2  (Z-angle) 

0322,  0323 

32 

RSBBQ 

RSBBQfl 

1432,  1433 

33 

OMEGAP 

OMBGAQ 

3021,  3022 

34 

OMEGAR 

ALPHAQ 

3023,  3024 

35 

CDUXD 

CDUYD 

3234,  3235 

36 

CDUZD 

'*DELCDUX 

3236,  3237 

37 

CDUX 

CDUY 

0032,.  0033 

38 

CDUZ 

CDUT 

0034,  0035 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


FLAGWRDO 

FLAGWRD2 

FLAGWRD4 

FLAGWRD6 

FLAGWRD8 

FLGWRDIO 

DSPTABq 

DSPTAB2 

D3FrAB4 

DSPTABq 

DSPTABg 

DSPTABio 


FLAGWRDl 

FLAGWRD3 

FLAGWRD5 

FLAGWRD7 

FLAGWRD9 

FLGWRDll 

DSPTABq 

DSPTAB3 

DSPTAB5 

DSPTABy 

DSPTABg 

DSPTABii 

TELE-37 


0074  - 0107 


1022  - 1035 


WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

erasable  address 

51 

TIMINCW  (TIME2) 

TIMKNCW  (TIMEi; 

0024-5 

52 

RNq  (X  comp.) 

RNj  (X  comp. ) 1 

53 

RN2  (X  comp.) 

RN^  (Y  comp.) 

1217  - 1224 

54 

RN^  (Z  comp.) 

RN5  ( Z comp . ) 

55 

VNo  (X  comp.) 

VNi  (X  comp.) 

56 

VN2  (X  comp.) 

VN3  (Y  comp.) 

1225  - 1232 

57 

VN^  (Z  comp.) 

VN5  ( Z comp . ) 1 

58 

PIPTIME 

PIPTIME 

1233-4 

59 

OMBGAPD 

OMEGAQD 

3242,  3243 

60 

OMEGARD 

’*ECDUW 

3244,  3245 

61 

CADRFLSHo 

cadrf;shj 

0372,  0373 

62 

CADRFLSH2 

FAILREGq 

0374,  0375 

63 

FAILRSGi 

FAILREG2 

0376,  0377 

64 

RADMODES 

DAPBOOLS 

0110,  0111 

65 

OGC 

OGC 

2737  - 2740 

66 

IGC 

IGC 

2741-2 

67 

MGC 

MIC 

2743-4 

68 

BEST I (STAR  IDl) 

BESTJ  (STAR  ID2) 

2755,  2756 

69 

STARSAVIq  (X  comp.) 

STARSAVli  (X  comp.) 

1 

70 

STARS  AVI 2 (X  comp.) 

STARSAVI3  (Y  comp.) 

[ 2760  - 2765 

71 

STARSAVIq  (Z  comp.) 

STARS  AVI 5 (Z  comp.) 

72 

STARSAV2o  (X  comp.) 

STARSAV2i  (X  comp.) 

73 

STARSAV22  (X  comp.) 

STARSAV23  (Y  comp.) 

.2766  - 2773 

74 

STARSAV2^  (Z  comp.) 

STARSAV25  (Z  comp.) 

, 

75 

GSAVq  (X  comp.) 

GSAVi  (X  comp.) 

1 

76 

GSAV2  (X  comp.) 

GSAV3  (Y  comp.) 

> 2230  - 2235 

77 

GSAV^  (Z  comp.) 

GSAV5  (Z  comp.) 

tele-38 

1 

WORD  # 

FIRST  REGISTER 

SECOND  REGISTER 

ERASABLE  ADDRESS 

78 

AGSK  (K-F ACTOR) 

AGSK  (K-F ACTOR) 

2020-1 

79 

LASTTCMD  (LASTYCMD) 

LASTSCMD  (LASTXCMD) 

0112,  0113 

80 

LEMMASS 

CSMMASS 

1326,  1327 

81 

IM0DES30 

IM0DES33 

1277,  1300 

82 

TIG 

TIG 

3441-2 

83 

OMEGAP 

OMEGAQ 

3021,  3022 

84 

OMEGAR 

ALPHAQ 

3023,  3024 

85 

CDUXD 

CDUYD 

3234,  3235 

86 

CDUZQ 

*DELCDUX 

3236,  3237 

87 

CDUX 

CDUY 

0032,  0033 

88 

CDUZ 

CDUT 

0034,  0035 

89 

ALPHAQ 

ALPHAR 

3024,  3025 

90 

DOWNTORKq  (postorkp) 

DOWNTORKq  (NEGTORKP) 

3113,  3114 

91 

CHARRELll 

CHANNEL12 

92 

CHANNEL13 

CHANNELI4 

93 

CHANIffiL30 

CHANNEL31 

94 

CHANNEL32 

CHANNEL33 

95 

PIPTIMEl 

PIPTIMEl 

3560-1 

96 

DELVq  (X  comp.) 

DELVj  (X  comp.) 

97 

DELV2  (Y  comp.) 

DELV^  (Y  comp.) 

0324  - 0331 

98 

DSLV^  (Z  comp.) 

DELV5  (Z  comp.)  1 

99 

SPARE 

SPARE 

100 

SPARE 

SPARE 

TELE-39 


The  following  table  gives  the  downlink  parameters,  basic  scale  factors, 
units,  and  sections  referenced  for  definitions.  The  pages  following  this 
table  contain  a list  of  definitions  compiled  from  the  listed  references. 

Definition 


Mnemonic 

12.  ^ r 

Scale  Factor 

Units 

Reference 

AGSBUFF^  T-  (12SP) 

0-13  (2DP) 

Position  - 
B25  (EARTH) 

B23  (MOON) 
Velocity  - 
B15  (EARTH) 

B13  (MOON) 

Time  - B18 

feet 

feet/ second 

seconds 

EXVB 

AGSK  (DP) 

B28 

centlseconds 

EXVB 

AIG  (SP ) 

B-1  (2' s comp) 

revolutions 

RNAV  SERV 

ALPHAQ  (SP) 

B-2 

revolutions/second 

squared 

DAPA 

ALPHAR  (SP) 

B-2 

revolutions/ second 
sqxiared 

DAPA 

AMG  (SP) 

B-1  (2*  a comp) 

revolutions 

RNAV  SERV 

AOG  (SP) 

B-1  (2' s comp) 

revolutions 

RNAV  SERV 

AOTCODE  (SP) 

OCTAL 

optics  code 

ALIN 

AT  (DP) 

B-9 

meters/ centisecond 
squared 

1 \ 

six  times  the 
decimal  equivalent 

ASCT 

BESTI  (SP) 

B14  ) 

ALIN 

BESTJ  (SP) 

B14  ) 

of  the  star  IDs 

ALIN 

CADRFLSHq_2  (3SP) 

OCTAL 

address 

DINT 

CDUS  (SP) 

B-1  ( 2 • s comp ) 

revolutions 

RADR 

CDUT  (SP) 

B-1  (2' s comp) 

revolutions 

RADR 

CDUX  (SP) 

B-1  (2's  comp) 

revolutions 

IMUC  COOR  DAPA 

CDUY  (SP) 

B-1  (2’ s comp) 

revolutions 

IMUC  CCX)R  DAPA 

TELE-40 


Mnemonic 

Scale  Factor 

Units 

Definition 

Reference 

CDUZ  (SP) 

B-1  (2' s coinp) 

revolutions 

IMUC  COOR  DAPA 

CDUXD  (SP ) 

B-1  (2' s comp) 

revolutions 

DAPA 

CDUYD  (SP) 

B-1  (2*  s comp) 

revolutions 

DAPA 

CDUZD  (SP) 

B-1  (2's  comp) 

revolutions 

DAPA 

CHAMELS  (see  CHANNEL  tables) 

CENTANG  (DP) 

BO 

revolutions 

TRGL 

COMPNUMB  (SP) 

BU 

counts 

EXVB 

CSMMASS  (SP) 

B16 

kilograms 

DAPB 

DAPBOOLS  (see  FLAGWORD 

tables  or  DAPA) 

DELCDUX  (SP) 

B-1  (2* s comp) 

revolutions 

DAPA 

DELLT4  (DP) 

B28 

centiseconds 

TRGL 

DELTAH  (DP) 

B24 

meters 

SERF 

DELV  (3DP) 

BI4 

centimeters/ second 

SERF 

DELVEETl  (3DP) 

B7 

meters/ centisecond 

TRGX 

PLVEET2  (3DP) 

B7 

meters/centisecond 

TRGX 

PELVEET3  (3DP) 

B7 

meters/ centisecond 

TRGL 

DELVLVC  ( 3DP ) 

B7 

meters/ centisecond 

TRGX 

DELVTPF  (DP) 

B7 

meters/ centisecond 

TRGL 

D IFF ALT  (DP) 

B29 

meters 

TRGX 

DNRADATAi  (SP) 

BI4 

counts 

RADR 

DNRADATA2  (SP) 

BI4 

counts 

RADR 

DNRADATA4  (SP) 

BI4 

counts 

RADR 

TELE-41 


Mnemonic 

Scale  Factor 

Units 

Definition 

Reference 

DNRADATA5  (SP) 

BI4 

coimts 

RADR 

DNRADATA6  (SP) 

BI4 

coTints 

RADR 

DNRADATA7  (SP) 

BI4 

colon  ts 

RADR 

DOWNTORK-  c (6SP) 
DSPTABo_11  (s**  DSKI) 

B5 

jet-seconds 

DAPB 

ELEV  (DP)''’ 

BO 

revolutions 

TRGL  TRGX 

FAILREGq_2  (3SP) 

OCTAL 

alarm  code 

PGSR 

FC  (SP) 

BI4 

throttle  pulses 

DESC 

FLAGWRDq  (see  FLAGWORD  tables) 

GSAV  (3DP) 

B1 

unit  vector 

ALIN 

HMEAS  (DP) 

B28 

counts 

SERV 

IM0DES30,  33  (see  IMUC  and  INTR  Sections) 

LAMD  (3DP) 

B24 

meters 

DESC 

LASTSCMD  (SP) 

BI4 

pulses 

RADR, 

LASTTCMD  (SP) 

BI4 

pulses 

RADR 

LEMMASS  (SP) 

B16 

kilograms 

DAPB 

IRVCDUDL  (3DP) 

B-1  (2*s  comp) 

revolutions ' 

SERV 

LRVTIMDL  (DP) 

B28 

cent! seconds 

SERV 

MKTIME  (DP) 

B28 

centiseconds 

SERV  RNAV 

M (DP) 

BI4 

counts 

TRGX 

OGC,  IGC,  MGC  (3DP) 

BO 

revolutions 

COOR 

OMEGAP  (SP) 

B-3 

revolutions/ sec 

DATA 

OMEGAQ  (SP) 

B-3 

revolutlons/sec 

■ DAPA 

OMEGAR  (SP) 

B-3 

revolutions/sec 

DAPA 

tele-42 


Mnemonic 

Scale  Factor 

Units 

Definition 

Reference 

OMEGAPD  (SP) 

B-3 

revolutions/sec 

DAPA 

OMEGA OP  (SP) 

B-3 

revolutions/sec 

DAPA 

OMEGARD  (SP) 

B-3 

rfevolutions/aec 

DAPA 

PIP A (3SP) 

B14 

counts 

SERV 

PIPTIME  (DP) 

B28 

centiseconds 

SERV 

PIPTIMEl  (DP) 

B28 

centiseconds 

SERV 

PSEUDO 55  (SP) 

B14 

throttle  pulses 

DESC 

RADMODES  ( see  FLAGWORD 
RANGRDOT  (2SP)  (Same  as 
R-OTHER  (3DP) 

tables  or  RADR) 
DNRADATAi  2) 

B29  " 

meters 

TELE 

REDOCTR  (SP) 

BI4 

counts 

PGSR 

t—i 

0 

1 

(6DP) 

B1 

unit  vector 

COOR 

RGU  (3DP) 

B24 

meters 

DESC 

pS  (3DP) 

B27 

meters 

DESC 

RM  (DP) 

B29 

meters 

RNAV 

P (3DP) 

B29 

meters 

SERV 

RSBBQ  (2SP) 

OCTAL 

address 

PGSR 

RTARG  (3DP) 

B29 

meters 

TRGL 

STARSAVl  (3DP) 

B1 

unit  vector 

ALIN 

STARSAV2  (3DP) 

B1 

unit  vector 

ALIN 

TALIGN  (DP) 

B28 

centiseconds 

ALIN 

TANGNBq  (SP) 

B-1 

revolutions 

RADR 

TANGNBi  (SP) 

B-1 

revolutions 

RADR 
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Mnemonic 

Scale  Factor 

Units 

Definition 

Reference 

TCDH  (DP) 

B28 

centiseconds 

TRGX 

TCSI  (DP) 

B28 

centiseconds 

TRGX 

TEVENT  (DP) 

B28 

centiseconds 

BURN 

TETCSM  (DP) 

B28 

centiseconds 

i 

ORBI 

TGO  (DB) 

B28 

centiseconds 

BURN 

^TAD  (3SP) 

B-1  ()2 ' s comp) 

revolutions 

ATTM  IMUC 

TIG  (DP) 

B28 

centiseconds 

BURN 

TIMENOW  (DP) 

B28 

centiseconds 

EXVB 

TLAND  (DP) 

B28 

centiseconds 

DESC 

TPASS4  (DP) 

B28 

centiseconds 

TRGL 

TRKMKCNT  (SP) 

B14 

counts 

RNAV 

TTF  (DP) 

B17 

centiseconds 

DESC 

TTOGO  (DP) 

B28 

centiseconds 

BURN 

TTPI  (DP) 

B28 

centiseconds 

TRGL 

UNPC  (3DP) 

variable 

variable 

BURN  DESC 

DPBUFFQ_^g  (20SP) 

OCTAL 

variable 

EXVB 

UPCOUNT  (SP) 

B14 

counts 

EXVB 

UPOLDMOD  (SP) 

B14 

program  number 

EXVB 

UPVERB  (SP ) 

B14 

last  digit  of  verb 

EXVB 

V-OTHER  (3DP) 

B7 

meters/ centisecond 

TELE 

VCffREV  (3DP) 

B7 

meters/ centisecond 

BURN 

VGU  (3DP) 

BIO 

meters/ centisecond 

DESC 

VGVECT  (3DP) 

B7 

meters/ centisecond 

ASCT 
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Mnemonic 

Scale  Factor 

Units 

Definition 

Reference 

VMEAS  (DP) 

B28 

counts 

SERV 

P (3DP) 

B7 

meters/ centlsecond 

SERV 

VSELEGT  (SP) 

B14 

LR  velocity  code 

SERV 

X789o_i  (DP> 

B5  (EARTH) 

B3  (MOON) 

radians 

RNAV 

X7892_3  (dp) 

B5  (EARTH) 

B3  (MOON) 

radians 

RNAV 

PBSAV  (3DP) 

B1  . ' ■ 

unit  vectxir 

ALIN 

ZDOTD  (DP) 

B7 

meters/ centlsecond 

ASGT 

PBSAV  (3DP) 

B1 

unit  vector 

ALIN 

AGSBUFFq j2,4*  Single  precision  X,  Y,  and  Z components  of  the  LM  position 
vector,  scaled  B25  (earth)  and  B23  (moon)  in  units  of  feet  and  in  stable 
member  coordinates. 

AGSBUFFj^^^^;  Single  precision  X,  Y,  and  Z components  of  the  LM  velocity- 
vector,  scaled  B13  (moon)  or  B15  (earth)  in  units  of  feet/ second  and  in 
stable  member  coordinates. 

AGSBUFF^  g _ Single  precision  X,  Y,  and  Z components  of  the  GSM  position 
vec-tor,  scaled  B25  (earth)  or  B23  (moon)  in  units  of  feet  and  in  stable 
member  coordinates. 

AGSBUFF^  g Single  precision  X,  Y,  and  Z components  of  the  GSM  velocity 

vector,  scaled  B15  (earth)  or  B13  (moon)  in  -units  of  feet/ second  and  in 
stable  member  coordinates. 

AGSBUFF^P  Double  precision  difference  between  the  time-tag  of  the  state 
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vectors  in  AGSBUFF^  and  the  time  stored  in  AGSK,  scaled  B18  in  units 
of  seconds. 

AGSK:  Double  precision  time  of  AGS  initialization,  scaled  B28  in  units  of 
centiseconds. 

ALPHAQ,  ALPHAR:  Single  precision  storage  for  the  most  significant  halves 
of  AOSQ  and  AOSR  for  dovm  telemetry,  scaled  B-2  in  units  of  revolutions 
per  second  squared. 

AOSQ,  AOSR;  Double  precision  disturbing  acceleration  due  to  thrust  vector/ 
c.g.  offset  or  other  external  torques,  scaled  B-2  in  units  of  revolutions 
per  second  squared. 

AOG,  AIG,  AMG;  Single  precision  storage  for  ICDU  angles,  scaled  B-1  in 
units  of  revolutions  and  stored  in  two's  complement  form. 

AOTCODE;  A single  precision  scalar  containing  the  star  selection  code  in 
bits  6-1  (an  octal  number  from  1 to  45g  for  stars,  0 for  a planet,  and 
46g-508  for  sun,  earth,  and  moon),  and  the  AOT  detent  code  in  bits  9-7 
(1,2, 3, 4, 5 or  6 for  AOT  detents;  0 for  COAS  calibration;  7 for  COAS 
position  to  be  specified. ) 

AT:  Double  precision  LM  thrust  acceleration  magnitude,  scaled  B-9  in  units 
of  meters  per  centisecond  squared. 

BESTI;  Single  precision  value,  scaled  B14,  of  the  index  parameter  for  star 
#1  of  the  "best"  star  pair  as  determined  by  "R56. " It  is  the  star  farthest 
from  the  AOT  center  detent  position  and  will  be  zero  if  no  star  pairs  are 
foiand  that  are  satisfactory.  In  "R59”  it  is  the  value  of  the  index  param- 
eter of  the  first  celestial  body  used  for  marking  (if  two  bodies  are  to  be 
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used).  It  is  equal  to  six  times  the  .decimal  equiveilent -of  the  "star 
selection  code. " ru-.  sl..  ; 

BESTJ;  See  BESTI.  In  "R56"  it  is  the  index  parameter  for  star  #2  which  is 
the  closest  star  to  the  AOT  center  detent  position.  In  "R59"  it  is  the 
index  parameter  of  the  second  celestial  body  used  for  marking  (if  two 
are  to  be  used)  or  the  index  parameter  of  the  single  body  being  used 
(Technique  3 alignment). 

CADRFLSHi  (i  = 0,1,2):  Three  single  precision  cells  for  storage  of  return 
address  Information  required  by  priority,  mark  and  normal  display  re- 
quests. In  the  program  CADRFLSH  is  used  for  storage  of  the 
address  of  the  step  after  that  at  which  the  display  interface  routine 
is  called, 

CDUT,  CDUS:  LGC  input  counters  incremented  directly  from  the  Coupling  Data 
Unit  to  maintain  LGC  knowledge  of  the  RR  trunnion  and  shaft  angles,  res- 
pectively. Single  precision  angles  stored  in  two's  complement  form  and 
scaled  B-1  in  units  of  revolutions. 

CDU  (CDUx,  CDUy,  CDUg;):  Single  precision  vector  containing  the  measiired 
values  of  the  IMU  gimbal  angles  (outer,  inner,  and  middle  gimbal  in  X, 

Y,  and  Z components,  respectively),  scaled  B-1  in  units  of  revolutions 
and  stored  in  two's  complement  form.  Each  component  is  an  LGC  input 
counter  incremented  directly  from  the  Coupling  Data  Unit  in  response  to 
changes  in  the  IMU  gimbal  angles. 

CDUD:  Single  precision  vector  interface  with  steering  and  attitude  maneuver 
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routines  containing  the  desired  values  for  the  IMU  gimbal  angles  (outer, 
inner,  and  middle  gimbal  angles  in  X,  Y,  and  Z components,  respectively), 
scaled  B-1  in  units  of  revolutions  and  stored  in  tvro's  complement  form. 

CENTANG:  Double  precision  central  angle  between  the  passive  vehicle's 
position  at  TIG  and  at  intercept,  scaled  BO  in  units  of  revolutions. 

COMPNUMB;  Single  precision  nimiber  of  components  (each  single  precision 
octal)  in  a program  27  update,  sceiled  B14  and  lonitless. 

CSMMASS:  Single  precision  astronaut  input  of  the  mass  of  the  CSM,  scaled  Bl6 
in  units  of  kilograms. 

DELCDU:  Interface  with  steering  and  attitude  maneuver  routines,  minus 
desired  change  in  gimbal  angles  per  100  millisecond  period,  scaled  B-1 
in  units  of  revolutions,  stored  in  two's  complement  form. 

DELLT4:  Double  precision  maneuver  transfer  time,  scaled  B28  in  units  of 
centiseconds. 

DELTAH;  Double  precision  difference  between  the  calculated  altitude  and 
that  measured  by  the  Landing  Radar,  scaled  B24  in  units  of  meters. 

DELV:  Double  precision  sensed-change- in-velocity  vector,  scaled  B14  in  units 
of  centimeters  per  second  (one  PIPA  pulse  represents  one  centimeter  per 
second  on  the  LM)  and  esqaressed  in  Platform  coordinates. 

DELVEETl:  Double  precision  vector  corresponding  to  the  velocity- to-be- 
gained  vector  for  the  CSI  bum,  scaled  B7  in  units  of  meters  per  centi- 
second.  Parallel  to  the  orbital  plane  of  the  passive  vehicle  and  perpen- 
dicular to  the  active  vehicle  position  vector  at  TCSI. 

DELVEET2;  Double  precision  vector  corresponding  to  the  velocity- to-be-gained 
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vector  for  the  CDH  b\im,  scaled  B7  in  units  of  meters  per  centisecond. 
Parallel  to  the  orbital  plane  of  the  passive  vehicle. 

DELVEET3:  Double  precision  velocity  to  be  gained  vector,  scaled  B7  in  units 
of  meters  per  centisecond.  Calculated  by  the  "INITVEL"  routine. 

DELVLVC^;  Double  precision  velocity  vector  expressed  in  local  vertical  coor- 
dinates, scaled  B7  in  units  of  meters  per  centisecond.  In  the  local  ver- 
tical coordinate  system,  X is  along  the  horizontal  component  of  velocity, 

Z points  toward  the  center  of  attraction,  and  Y completes  a right-handed, 
orthogonal  system. 

DELVTPF:  Double  precision  magnitude  of  the  velocity  to  be  gained  in  the 
final  rendezvous  maneuvers  of  the  terminal  phase,  scaled  B7  in  units  of 
meters  per  centisecond. 

DIFFALT;  Double  precision  difference  of  passive  and  active  vehicle  altitudes 
at  the  time  of  CDH,  scaled  B29  in  units  of  meters;  negative  if  the  passive 
vehicle  is  below  the  active  vehicle  at  CDH,  and  displayed  to  the  astronaut 
during  P32-72  and  P33-73. 

DNRADATAj^:  Special  storage  for  downlink  of  radar  data.  1 = 1,2,4»5,6,  and 
7 to  index  six  single  precision  cells  (consecutive  except  between  i = 2 
and  4)  alternately  labeled  DNRRANCffi,  DNRRDOT,  DNLRVELX,  DNLRVELY,  DNLRVELZ, 
and  DNLRALT,  respectively.  RNRAD  is  a single  precision  LGC  counter  advanced 
directly  by  whichever  radar  circuit  is  enabled  for  sampling,  scaled  B14  in 
units  of  counts. 

Sample  Type  Value  of  1 count 


* DNRRDOT 


-0.19135344  meters/ second 


-0.6278  fps 


Value  of  1 count 


Sample  Type 

DNRRANGE 

Low  scale 
High  scale 

**  DNLRVELX 

**  DNLRVELY 

**  DNLRVELZ 

" DNLRALT 


2.859024  meters 
22.872192  meters 

-0.1962912  meters/second 

0.3694176  meters/second 

0.2642006  meters/second 


9.38  feet 
75.04  feet 

-O.644O  fps 

1.212  fps 

0.8668  fps 


Low  scale  0.3288792  meters  1.0790  feet 

High  scale  1. 644796  meters  5.3950  feet 

* DNRRDOT  has  a bias  to  be  subtracted  from  the  raw  counts. 

K;RDOTBIAS:  Double  precision-  coaatantostored  aS-17000’x  2T^^95>^46t;aied' B28 

in  units  of  radar  counts  (same  as  RNRAD).  Equation  value:  17000. 

**DNLRVELg:  These  have  a bias  to  be  added  to  the  raw  counts. 


K:LVELBIAS:  Single  precision  constast' Stored  as  -12288  x 2“^^,  scaled  BI4 
in  units  like  those  of  RNRAD.  Equation  value;  -12288. 


DOWNTORKi  (1  = 0-5);  Single  precision  table  of  quantities  for  downlink 
which  give  cumulative  jet  on  times  for  the  various  axes;  the  correspon- 
dence is  (0,  +P;  1,  -Pj  2,  +U;  3,  -Uj  4»  +V}  5,  -V);  Scaled  B5  in  units 
of  seconds. 

ELEV;  Double  precision  elevation  angle  of  the  line-of-sight  to  the  passive 
vehicle;  measured  from  the  vector  which  is  perpendicular  to  the  active 
vehicle  position  vector,  perpendicular  to  MOT  * RPASS,  and  whose  dot 
product  with  the  active  vehicle  velocity  vector  is  positive.  An  angle 
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between  0 and  1 (O  and  360  degrees)  scaled  BO  in  units  of  revolutions. 

ELEV  is  greater  than  (180  degrees)  if  the  passive  vehicle  is  below 
the  active  vehicle's  local  horizontal.  ELEV  is  an  astronaut  input  in 
P32-72  and  an  optional  input  in  P34-74* 

FAILREGi  (i  = 0,1,2);  Three  single  precision  registers  used  for  storage 
of  the  alarm  code  information,  FAILREGQjI  are  zeroed  via  an  "ERE?0R  RESET 
FAILREG2  is  unaltered.  All  three  registers  are  zeroed  by  a Verb  36. 
FAILREGg  contains  the  first  alarm  after  the  "ERROR  RESET";  FAILREG-| 
contains  the  second;  and  faTIRRP.^  always  contains  the  most  recent. 

FC:  Single  precision  storage  for  the  magnitude  of  desired  thrust,  scaled 
BI4  in  units  of  DPS  throttle  pulses. 

K:SCALEFAC;  Double  precision  constant  stored  as  797.959872  x 2“^^,  scaled 
BI6  in  units  of  DPS  throttle  pulses/kilogram  meter  per  centisecond  squared. 
Equation  value:  797.959872.  (Equivalent  to  12.532  newtons  or  2.8173 
pounds  force  per  pulse.) 

GSAV:  Double  precision  storage  for  unit  gravity  vector  determined  in  previous 
pass  throu^  "P57,"  scaled  B1  and  expressed  in  navigation  base  coordinates. 
HMEAS:  Double  precision  Landing  Radar  measurement  of  altitude,  scaled  B28 
in  units  of  low  scale  landing  radar  altitude  bits. 

K:HSCAL:  Double  precision  constant  stored  as  -0.3288792,  scaled  BO  in  units 
of  meters  per  bit.  Equation  value:  -0.3288792.  (Equivalent  to  1.0790 
feet  per  bit.) 

LAND:  Double  precision  position  vector  of  the  landing  site,  scaled 

B24  in  units  of  meters,  measured  from  the  center  of  the  moon  and  expressed 
in  the  Platform  coordinate  system. 
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LA.STSCMD,  LASTTCMD:  Storage  for  the  previous  value  of  total  RR  shaft  and 
trunnion  CDU  error  counters;  scaled  B14  in  units  of  RR  drive  pulses. 

Used  to  convert  present  position  deviation  into  a desired  rate  command 
to  be  inserted  into  CDUSCMD  or  CDUTCMD. 

K:RDESGAIN;  Single  precision  constant  stored  as  0.53624,  scaled  B12 
in  units  of  RR  drive  pulses  per  radian  of  error.  Equation  value  2196.5. 
(Equivalent  to  0.5  x 2sec~  x 360  deg/rev  x ( 10/384)”  pulses  per  degree 
per  second.  The  first  two  terms  null  0.5  of  the  error  in  second,  and 
the  fourth  is  derived  from  the  fact  that  a saturated  error  counter  causes 
a drive  rate  of  10  degrees  per  second.) 

K:RRSPGAIN;  Single  precision  constant  stored  as  0.59062,  scaled  B15  in 
units  of  RR  drive  pulses  per  revolution  of  error.  Equation  value:  19353. 
(Equivalent  to  0.7  x 2sec”  x 360  deg/rev  x (IO/384)”  pulses  per  degree 
per  second.  The  first  two  terms  "null  0.7  of  the  error  in  ^ second," 
and  the  fourth  is  derived  from  the  fact  that  a saturated  error  counter 
causes  a drive  rate  of  10  degrees  per  second.) 

LEMMASS:  Single  precision  astronaut  input  of  the  mass  of  the  LM,  scaled  B16 

in  units  of  kilograms. 

yiCDUDL:  Single  precision  vector  storage  for  the  value  of  the  three  ICDU 

angles  at  the  estimated  midpoint  of  an  LR  velocity  reading,  scaled  B-1 
in  units  of  revolutions  and  stored  in  two's  complement  form. 

LRVTIMDL:  Double  precision  time  at  the  estimated  midpoint  of  the  LR  velocity 

sample,  scaled  B28  in  \anits  of  centiseconds. 

MKTIME:  Double  precision  time  of  PIPA  readings  which  are  associated  with 

the  LR  altitude  measurement  for  downlink  purposes,  scaled  B28  in 
units  of  centiseconds.  Also  the  time  of  RR  range  rate  measurement, 
considered  to  be  RR  time  of  mark. 

NN:  Double  precision  number  designating  the  apsidal  crossing  after  CSI  at 

which  the  CDH  burn  will  be  executed,  scaled  BI4  and  unitless.  (NN  = 1 
indicates  that  the  CDH  burn  will  be  executed  at  the  first  apsidal  crossing 
after  CSI.)  NN  is  used  in  P34»  35,  74  and  75  as  a flag  to  specify  pre- 
cision or  conic  integration.  In  "S3435.2  it  is  used  to' set  "VTARGTAG. 
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OGC,  IGC,  MjC:  Double  precision  commanded  gimbal  angles  scaled  BO  in  units 

of  revolutions  or  (equivalently)  scaled  B21  in  units  of  gyro  torque  pulses 
-21 

of  2 revolutions  each. 

OMEXjAP,  OMEGAQ,  OMEGAR*  Single  precision  estimated  vehicle 

rate,  calculated  using  commanded  accelerations  and  times,  scaled  B-3  in 
units  of  revolutions  per  second.  Limited  to  +0.12499  (+44«997  degrees/second) 
by  overflow  checks. 

OMEGAPD,  OMEGAQD,  OMEGARD:  Single  precision  rate  biases  generated  in  the 

attitude  maneuver  and  steering  routines,  scaled  B-3  in  units  of  revolutions 
per  second. 

PIPA:  Single  precision  sensed-change-in-velocity  vector,  scaled  B14  in  units 
of  centimeters  per  second  and  expressed  in  the  Platform  coordinate  system. 

The  three  components  are  incremented  directly  from  the  Pulse-Integrating, 
Pendulous  Accelerometers  on  the  stable  member  of  the  Inertial  Measurement 
Unit . 

PIPTIME:  Double  precision  time  of  the  most  recent  PIPA  read  cycle,  scaled 
B28  in  units  of  centiseconds;  time  at  which  the  average-g  and  free-flight 
state  vector  is  valid. 

PIPTIMEl:  Temporary  storage  for  PIPTIME  to  avoid  changing  the  downlink 
state  vector  until  it  is  updated  homogeneously. 

PSEUD055:  Single  precision  storage  for  telemetry  of  the  throttle  command 
sent  to  the  descent  engine,  scaled  B14  in  units  of  throttle  pulses. 

R-OTHER:  Double  precision  navigation  position  vector  of  the  GSM,  scaled  B29 
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in  units  of  meters.  See  RCSM  in  SEW  section. 

REDOCTR:  Single  precision  counter  set  to  zero  in  a fresh  start  and  in- 
cremented whenever  a hardware  restart  occurs;  scaled  B14  and  unitless. 

[REFSMMAT] : Double  precision,  3x3  transformation  matrix,  scaled  B1  and 
unitless.  Defined  such  that  ^m  = |[WFSMMA^  ^f  where  A is  a vector 
expressed  in  stable  member  and  reference  coordinates,  respectively. 

ffiU:  Double  precision  position  vector  of  the  LM,  scaled  B24  in  units  of 
meters,  measured  from  the  landing  site  on  the  moon's  surface  and  ex- 
pressed in  the  Descent  Guidance  coordinate  system. 

WS:  Double  precision  vector  position  of  the  landing  site  relative  to  the 
center  of  the  moon,  scaled  B27  in  units  of  meters  and  expressed  in  the 
Seleno graphic  (moon-fixed)  coordinate  system;  part  of  the  erasable  load. 

RM:  Double  precision  magnitude  of  measured  range,  scaled  B29  in  iinits  of 
meters.  Also  used  in  routine  29  as  two  single  precision  storage  cells 
(RMq  and  RM^)  for  downlink.  They  are  Identical  to  DNRADATA^,  and 
DNRADATAg,  respectively. 

Double  precision  vector  position  of  the  LM  measured  from  the  center 
of  the  earth  or  moon,  scaled  B29  in  units  of  meters  and  expressed  in 
the  Reference  coordinate  system. 

RSBBQ:  Storage  for  the  value  of  the  address  where  a hardware  restart  occurred. 
The  most  significant  part  contains  the  BBANK  and  SUPERBNK  information;  the 
least  significant  part  contains  the  Q-register  information. 

OTARG:  Target  position  vector  input  to  "INITVEL".  Scaled  B29  in  units  of 
meters.  Upon  exit,  "INITVEL"  loads  WARG  with  the  biased  target  position 
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vector,  if  such  a biased  vector  is  calculated. 

STARSAVl,  STARSAV2:  Double  precision  vectors  scaled  B1  and  unitless.  Used 
to  store  the  two  "measurement"  vectors  for  comparison  with  two  "reference" 
vectors  to  determine  IMU  alignment.  Expressed  in  stable  member  coor- 
dinates . 

TETCSM:  Double  precision  state  vector  time  for  GSM  scaled  B28  in  units 

of  centiseconds . 

TALIGN:  Double  precision  time  for  determination  of  IMU  alignment,  scaled 
B28  in  units  of  centiseconds. 

TAMjNBq,  TAUGNB^;  Temporary  two's  complement  storage  (astronaut  desired 

or  radar  marked)  radar  position  angles  (trunnion  and  shaft,  respectively), 
scaled  B-1  in  unit  of  revolutions. 

TCDH;  Double  precision  time  of  ignition  of  the  CDH  burn,  scaled  B28  in  units 
of  centiseconds;  an  astronaut  input  in  P33-P73. 

TCSI;  Double  precision  time  of  ignition  of  the  CSI  burn,  scaled  B28  in 
units  of  centiseconds.  It  may  be  either  an  astronaut  input  or  computed 
by  the  program. 

TEVENT:  Double  precision  time-of -event  for  downlink  information,  scaled 
B28  in  units  of  centiseconds. 

TGO:  Double  precision  predicted  length  of  burn,  scaled  B28  in  units  of 
centiseconds. 

THETAD:  Single  precision  vector  containing  the  gimbal  angles  that  define 
the  desired  orientation  to  which  the  attitude  maneuver  routines  are  to 
maneuver;  scaled  B-1  in  units  of  revolutions  and  stored  in  two's  complement 
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form.  Also  called  CPHI  in  program. 

TIG:  Double  precision  predicted  time  of  Ignition  input  to  the  burn  routines, 
or  predicted  cutoff  time,  scaled  B28  in  units  of  centlseconds . 

TIMENOW:  Double  precision  computer  clock,  incremented  every  centisecond 
(one  hundredth  of  a second)  by  the  LGC  oscillator;  scaled  B28  in  units 
of  centlseconds. 

TLAND:  Double  precision  nominal  time  of  lunar  landing,  scaled  B28  in  units 
of  centlseconds;  part  of  the  erasable  load. 

TPASS4:  Double  precision  scheduled  time  of  target  intercept,  scaled  B28 
in  units  of  centlseconds. 

TRKMKCM':  Single  precision  count  of  number  of  navigation  updates  made  during 
P20  or  P22,  scaled  BI4  and  iinitless.  Cell  also  used  in  R29  to  indicate 
data  storage  for  dovjnllnk;  1 - data  stored,  0 - data  not  stored. 

TTF:  Double  precision  negative  time  from  now  until  achlement  of  target 

conditions  of  the  present  quidance  phase,  scaled  B17  in  units  of  centlseconds. 

TTCGO:  Double  precision  time  until  engine  ignition  (or  cutoff),  scaled  B28 
in  units  of  centlseconds. 

TTPI:  Double  precision  time  of  terminal  phase  initiation,  scaled  B28  in 
units  of  centlseconds;  an  astronaut  input  in  P32-P72  and  P34-P74. 

UNFC:  Double  precision  desired  thrust  acceleration  vector,  with 

variable  scaling  in  units  of  meters  per  centisecond  squared  and  expressed 
in  the  Platform  coordinate  system.  During  the  pre-ignition  phase  com-  . 
putations  for  the  powered  descent  maneuver  (P63),  UNFC  represents  the 
Delta-V  vector  for  the  pre-full  throttle  thrust,  scaled  B7  in  units  of 
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meters  per  centlsecond. 

UPBUFFQ_^g:  Single  precision  buffer  cells  for  P27  updates. 

UPCOUNT;  Single  precision  number  of  components  received  in  a P27  update, 
scaled  BI4  and  unitless. 

UPOLDMOD;  Single  precision  storage  for  the  value  of  MODREG  at  the  initial- 
ization of  a P27  update  , scaled  BI4. 

Single  precision  indication  of  the  verb  that  initiated 
a P27  update,  scaled  BI4  and  unitless. 

V-OTHER:  Double  precisions  navigation  velocity  vector  of  the  GSM  scaled 
B7  in  units  of  meters/centisecond. 

VGPREV;  Double  precision  previous  value  of  VG,  program  notation  also  VGTIG, 
scaled  B7  in  units  of  meters  per  centlsecond  and  expressed  in  the  ref- 
erence coordinate  system. 

VGU;  Double  precision  velocity  vector  of  the  LM  relative  to  the  rotating 
moon,  scaled  BIO  in  units  of  meters  per  centlsecond  and  expressed  in 
the  Descent  Guidance  coordinate  system. 

VGVECT:  Double  precision  velocity- to-be-gained  vector  in  Platform  coor- 
dinates, scaled  B7  in  units  of  meters  per  centisecond. 

VMEAS:  Double  precision  velocity  measurement  (sum  of  5 samples)  from  the 
LR  sampling,  scaled  B28  in  units  of  Landing  Radar  velocity  bits. 

K:VSCALq;  Double  precision  constant  stored  as  0.5410829105,  program  no- 
tation VZSGAL,  scaled  B-10  in  units  of  ttfrtera  per  ceniisecbnd  per  bit. 
Equation  value:  0.  G02642Q06/5.  (Equivalent  to  0. 8668  fps  pep  bit';  the - 
"511  averages  the  sum  of  five  samples.  ) 
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K:VSCAL2:  Double  precision  constant  stored  as  0.7565672446^ .program  no- 
tation VYSCAL,  scaled  B-10  in  units  of  meters  per  centisecond  per  bit. 
Equation  value:  0.003694176/5.  (Equivalent  to  1.212  fps  per  bit;  the 
"5"  averages  the  sum  of  five  samples. ) 

K:VSCAL^:  .Double  precision  constant, stored  as  -0.40200437.70;  program  no- 
tation VXSCAL,  scaled  B-10  in  units  of  meters  per  centisecond  per  bit. 
Equation  value:  -0.001962912/5.  (Equivalent  to  -0.644  fps  per  bit; 
i the  "5"  averages  the  sian  of  five  samples.  ) 

W:  Double  precision  Inertial  velocity  vector  of  the  LM,  scaled  B7  in 

units  of  meters  per  centisecond  and  expressed  in  the  Reference  coordinate 
system. 

VSELECT:  Single  precision  index  used  to  distinguish  among  the  Z (O), 

Y (1)  and  X (2)  axes  of  the  Landing  Radar  coordinate  system,  scaled 
B14  and  unitless. 

X789:  Double  precision  vector  containing  the  best  estimate  of  bias 

necessary  to  offset  RR  position  error,  scaled  B5  (earth)  or  B3  (moon) 
in  units  of  radians. 

YNBSAV,  _^BSAV:  Double  precision  unit  vectors  in  the  directions  of  the 

Y and  Z navigation  base  axes,  scaled  B1  and  expressed  in  moon-fixed 
coordinates. 

ZDOTD:  Double  precision  desired  downrange  velocity  scaled  B7  in  units 
of  meters/centisecond. 
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TEST 


Testing  Routines 


YBTSTLTS  Inhibit  interrupts 

If  MODREG  i 0,  proceed  to  "ADl/END" 

Switch  bit  1 of  IMODES33  to  1 (indicate  lamp  test  in  progress) 
Switch  bits  7,  6,  5»  4»  3 and  1 of  channel  11  to  1 

(illuminate  operator  error  lamp;  initiate  verb-noun  flash;  illuminate 
key  release,  temperature  caution,  uplink  activity,  and  ISS  warning 
lamps) 

Switch  DSPTAB^^  to  100  000  110  111  IOO2 

(Signal  "T4RUPT"  to  light  the  program  alarm,  tracker  fail, 
glmbal  lock  warning,  no  attitude,  and  Ul  fall  lamps) 

Perform  "C13STALL*' 

Switch  bit  10  of  channel  13  to  1 (Light  restart,  standby 

and  computer  warning  lamps) 

Switch  DSPTAB^  to  -05675g  for  i = 10  thru  0 (display  all  8's) 

Switch  DSPTABj^  to  -07675g  for  i = 1,  4 and  6 (display  + signs) 

NOUT  = 11 

Release  interrupt  inhibit 
Call  "TSTLTS2"  in  5 seconds 
End  job 

TSTLTS2  Establish  "TSTLTS3"  (pr30) 

End  task 

TSTLTS3  Inhibit  interrupts 

Switch  bits  7,  4,  3 and  1 of  channel  11  to  0 
(Leave  verb-noun  and  key  release  flashing) 

Perform  "C13STALL" 

Switch  bit  10  of  channel  13  to  0 

TS  = bit  4 of  channel  12 

(leave  no  attitude  lamp 

Switch  DSPTAB^^  to  40000g  + TS  lit  if  in  coarse  align) 

Switch  bit  1 of  IMODES33  to  0 
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SH0WSUM2 


SDISPLAY 


Svd-tch  bits  13,  12  and  11  of  IM0DES33  to  1 

(Reset  PIPA  fail.  Downlink  fail  and  Uplink  fail  bits) 

Switch  bits  13,  12  and  10  of  IM0DES30  to  1 . 

(Reset  IMU  fail,  ICDU  fail  and  PIPA  fail  bits) 

Switch  bit  15  of  IM0DES30  to  0 (Reset  IMU  temperature  bit) 

Switch  RADMDDES  bit  7 (RCDUFAIL ) to  1 

Switch  RADMODES  bits  8 (LRVELFLG),  5 (LRALTFLG)  and  4 (RRDATAFL)  to  0 
Release  interrupt  inhibit 

Establish  "DSPMMJOB"  (pr30) 

MONSAVEl  - AOOOOg 

Switch  bit  6 of  channel  11  to  0 (verb-nom  flash  off) 

Perform  "RELDSP"  • 

If  CADRSTOR  / +0,  proceed  to  "PINBRNCH" 

End  job 

Perform  "PRIOCHNG”  with  A = OyOOOg  (change  priority  to  07g) 

SKEEP6  =1 
SMODE  = -to 
SELFRET  = "SELFCHK" 

Proceed  to  "STSHOSUM" 

SKEEP3  = SKEEP2 
SKEEP2  = TSbank 
MPAC2  = "SKEEPl" 

Proceed  to  "GQXDSPF"  with  TS  = K:V05N01  (SKEEPl,  SKEEP2,  SKEEP3) 

(If  terminate,  continue  at  next  step;  if  proceed,  proceed 
to  "NXTBNK";  if  other  response,  repeat  at  previous  step.) 

SKEEPl  = "SELFCHK" 

Proceed  to  "ENDEXT" 
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SELFCHK  SKEEPl  = "ERASCHK'-'. 


CHECKNJ 


ERASCHK 


Perform  "CHECKNJ" 

\ 

If  SMODE  = -H3: 

Proceed  to  second  step  of  "SELFCHK"  (idle  loop) 

If  SMODE  = -0: 

SCOUNT  = SCOUNT  + 1 

Proceed  to  address  specified  in  SKEEPl 
If  I SMODE  1 > lOg: 

SMDDE  = +0 
Proceed  to  "SELFCHK" 

SCOUNT  = SCOUNT  + 1 

If  IsmDDeI  = 1,  2,  3,  6,  7 or  lOgi 

Proceed  to  address  specified  in  SKEEPl 
If  IsmODEI  = 4,  proceed  to  "ERASCHK" 

If  1 SMODE 1 = 5,  proceed  to  "ROPECHK" 

SELFRET  =.  return  address 
Proceed  to  "ADVAN" 

(Returns  to  caller  of  "CHECKNJ"  via  SELFRET  if  or  vdien  no 
jobs  require  processing. ) 

SKEEP2  = 1 

EBANK  = 0 

SKEEIP7  = 0146lg  (address  of  first  non-special  cell  in  bank  0) 
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ERASLOOP 


SKEEP3  = 01777g  (last  address  in  bank  0) 
Inhibit  interrupts 
SKEEP4  = EBANK 

SKEEP5  = EskeeP7 
i = SKEEP7  + 1 

SKEEP6  = E. 

1 

ERESTORE  = SKEEP7 
F..,  = SKEEP7 

E.  = SKEEP7  + 1 

""  ®SKEEP7  ~ ^i 

If  TS  -1,  perform  "PRERRORS" 

If  ERESTORE  ^ +0;  (did  not  perform  "PRERRORS") 


.SKFEP7 

E.  = - E. 
1 1 


- E, 


SKEEP7 


TS  E^  - Egj^ggp^ 


If  TS  / -1,  perform  "PRERRORS" 
If  ERESTORE  ^ -HD: 


^SKEEP7  = 


E. 

1 


SKEEP6 
ERESTORE  = HD  . 
Release  interrupt  inhibit 


(restore  original  contents) 


Perform  "CHECKNJ" 

EBANK  = SKEEP4  (in  case  it  was  changed  by  another  job) 

SKEEP7  = SKEEP7  -t-  1 

If  SKEEP7  ^ SKEEP3,  proceed  to  "ERASLOOP" 
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If  SKEEP2  > 0: 


SKEEP2  = SKEEP2  - 1 

SKEEP7  = 0006lg  (first  non-special  cell  in  unswitched 

erasable ) 

SKEEP3  = 01373g 
Proceed  to  "EEASLOOP" 

(Othervd-se  SKEEP2  = 0) 

SKEEP2  = 1 
EBANK  = EBANK  + 1 
If  EBANK  =-  2: 

SKEEP7  = 01400g 
SKEEP3  = 01773 g 
Proceed  to  "ERASLOOP" 

If  EBANK  < lOg: 

SKEEP7  = 0l400g 
SKEEP3  = 01777g 
Proceed  to  "ERASLOOP" 

EBANK  = 3 
SKEEP2  = 50g 

CNTRLOOP  TS  = - contents  of  cell  specified  by  (SKEEP2  + iOg) 

If  SKEEP2  > 0: 

SKEEP2  = SKEEP2  - 1 
Proceed  to  "CNTRLOOP" 

CYR  = 25252g  (should  cycle  right  and  become  12525g) 

CYL  = 25252g  (shoiild  cycle  left  and  become  5.2524g) 

SR  = 25252g  (should  shift  right  and  become  12525g) 
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PRERRORS 


EDOP  = 25252g  (should  shift  right  7 and  become  00125q) 
TS  = 25252g  + CYR  + CYL  + SR  + EDOP  + 52400g 
If  TS  -1,  perform  "PRERRORS" 

TS  = CYR  + CYL  + SR  + EDOP  + 1 
If  TS  ^ -1,  perform  "PRERRORS" 

SCOUNT,  = SCOUNT.  + 1 
SKEEPl  = "ROPECHK" 


Proceed  to  second  step  of  "SELFCHK" 
If  ERESTORE  ^ +0: 


Eskeep?  = 

= SKEEP6  • 
ERESTORE  = +0 


(restore  original  contents) 


Inhibit  interrupts 
SFAIL  = return  address 


ALMCADRq  = SFAIL 
ERCOUNT  = ERCOUNT  + 1 
TS  = 01102g 
Perform  "AIiARM2" 

If  SMODE  ^ 40: 


SMDDE  = 40 


Proceed  to  "SELFCHK" 

If  SMDDE  < 0,  proceed  to  "SELFCHK" 
Return  via  SFAIL 
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ROPECHK 


SI^EiEP6  — “0 


STSHOSUM 


COMADRS 


FXADRS 


ADRSCHK 


SKKKPiy  — 0 
SKEEP7  =1 
SKEEPl  - 0 
SKEEP3  = OOOOOg 
SKEEP5  = 1 
L = SKEEP4 

FCADR  = bits  15-11  of  SKEEP4  + SKEEP3 
Perform  "SUPDACAL" 

SKEEP2  = A (contents  of  fixed  memory  cell  specified  by 

FCADR  and  L) 

SKEEPl  = SKEEPl  + SKEEP2  with  end  around  carry  of  + overflow 
TS  = 02000g  + SKEEP3  - SKEEP2 
Proceed  to  "ADRSCHK" 

SKEEP2  = contents  of  cell  specified  in  SKEEP3  (fixed-fixed 

banks  2,3) 

SKEEPl  = SKEEPl  + SKEEP2  with  end  around  carry  of  + overflow 
TS  = SKEEP3  - SKEEP2 
TSadr  = bits  10-1  of  SKEEP3 

If  TSadr  = 01777g,  proceed  to  "SOPTION"  (end  of  bank) 

If  SKEEP5  0,  proceed  to  "SOPTION"  (2  consecutive  TC  SELF 
instructions  have  been  encountered,  indicating  that  the 
rest  of  the  bank  is  unused) 

If  TS  = -0:  (contents  of  cell  equals  its  address) 

If  SKEEP5  = 0,  SKEEP5  = -1  (2nd  consecutive  TC  SELF) 

If  SKEEP5  > 0,  SKEEP5  = SKEEP5  - 1 (ist  TC  SELF) 

If  TS  ^ -0,  SKEEP5  = 1 
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(SKEEP6  = 1 or  -0) 

If  SKEEP6  > 0 and  NEWJOB  > 0: 

Proceed  to  "CHANGl" 

When  jobs  of  higher  priority  are  finished  (if  any), 
"CHANGl"  vd.ll  return  here 

Proceed  to  "ADRS-fl" 

If  SKEEP6  = -0,  perform  "CHECKNJ" 

ADFtS-t  1 3KEEP3  - SKEEP3  1 (increment  address) 

If  SKEEP7  > +0,  proceed  to  "COMADRS" 

Proceed  to  "FXADRS" 

SOPTION  TSbank  = integral  part  of  SKEEP4  (rescaled  from  64  to  B14) 
TS  ---  8^  (fractional  part  of  SKEEP4)  (rescaled  from  B4  to  B14) 
If  TS  0:  (equals  30g  or  40g) 

TSbank  --  TS  4 TSbank  - 30q 
If  SKEEP6  ^ 0,  proceed  to  "SDISPLAY" 

SKEEPl  = jSKEEPll 

If  SKEEPl  ^ TSbank,  perform  "PRERRORS" 

NKTBNK  If  SKEEP4  = 33.04q: 

If  SKEEP6  ^ 0,  proceed  to  "STSHOSUM" 

Proceed  to  "SELFCHK" 

SKEEP4  = SKEEP4  + 1 

If  SKEEP4  = 30j.,  SKEEP4  = SKEEP4  + 0.03^  (011„  in  bits  7-5 

“ for  "SUPDACAL") 

If  SKEEP4  ^ 40^,  SKEEP4  = 30. 04^  (100,  in  bits  7-5 

for^"SUPDACAL" ) 

(Only  difference  betvreen  address  in  banks  30^-33^  and  40--43j» 
is  the  SUPERBNK  setting.)  oh  oh 
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If  SKEEP7  > 0: 


SKEEP7  = SKEEP7  - 1 (-tO  if  0) 
SKEEPl  = 0 
SKEEP3  = OOOOOg 
SKEEP5  ="  1 

Proceed  to  "COMADRS" 


If  SKEEP7  = tO: 

SKEEP7  "=  -1 
SKEEP3  = 04000g 
SKEEPl  - 0 
SKEEP3  ~ 1 
Proceed  to  "FXADRS" 
If  SKEEP7  = -1: 

SKEEP7  = -0 
SKEEP3  = 06000g 
SKEEPl  = 0 
SKEEP5  = 1 


(banks  2 and  3 are  addressed 
using  the  "fixed-fixed" 
address  scheme  instead  of 
the  normal  bank  address 
scheme  ) 


(bank  3) 


Proceed  to  "FXADRS" 
SKEEP7  = 64 
SKEEPl  = 0 
SKEEP3  = OOOOOg 
SKEEP5  = 1 

Proceed  to  "COMADRS" 
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REDO 


MODREG  = 07 


Establish  "DSFMMJOB"  (pr30) 

Perform  "IMUZERO" 

Perform  "IMUSTALL" 

If  ISSGOOD  = 0,  proceed  to  "S0MERR2" 

NDXCTR  = 0 
TORQNDX  =0 

OVFLOWCK  = 0 . 

Set  matrix  ("xNb”]  = 0 

rescaled  B-2  revs 
twos  complement,  B-1  in  revs 
K;V06N41 

"ENDTESTl" ; If  proceed,  continue 
repeat  this  step) 

ones  complement,  BO  revs 

rescaled  to  BO  revs 

0 

cos (azimuth) 
sin(AZIMI]TH) 

If  FLAGWRD3  bit  14  (GLOKFAIL)  =1: 

NDXCTR  = NDXCTR  + 1 

Switch  FUGWRD3  bit  14  (GLOKFAIL)  to  0 


DSPTEMl  +1 , = LATITUDE 

dp 

DSPTEMl  = AZIMUTH 

Proceed  to  "GOFLASH"  with  TS  = 
(if  terminate,  proceed  to 
below;  if  other  response, 

AZIMUTH  = DSPTEMl 

LATITUDE  = DSPTEMl  +1 

WANGI  = -cos (LATITUDE) 

WANGO  = sin(LATITUDE) 
r 

1 0 

0 sin(AZIMUTH) 

0 -cos (AZIMUTH) 

Perform  "CALCGA" 

Perform  "IMUCOARS" 
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Perform  "IMUSTALL" 


If  ISSGOOD  = 0,  proceed  to''30MERR2" 

If  NDXCTR  > 0: 

Proceed  to  "PIPACHK" 

Perform  "IMUFINE" 

Perform  "IMUSTALL” 

If  ISSGOOD  = 0,  proceed  to  "S0MERR2" 

Call  "GOESTIMS"  in  PERFDLAY^  centi-seconds 

dp 

A = "ESTIMS" 

Proceed  to  "JOBSLEEP" 

GOESTIMS  Awaken  job  with  starting  address  "ESTIMS" 

End  task 

ESTIMS  Inhibit  interrupts 

Call  "ALLOOP"  in  ISEGXT  Centi-seconds 
PIPA  = 0 

Release  interrupt  inhibit 

Zero  77  erasable  memory  cells  starting  at  location  "ALXIS  -1" 

GCOMPSW  = 0 

ALXIS  = 144 

CMPX1  = -1 

ALK  = K;soupy0 

ALK2  = K;soupy2 

DELV  = 0 

^OMP  = 0 
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If  TORQNDX  i 0: 

ERVECTOR  = K:omegms  ( sinLATITUDE,  -cosLATITUDE,  O) 
TStraark  - TIMENOW 
ERCOMP  = 0 
Proceed  to  "SLEEPIE" 

SLEEPIE  If  TORQNDX  > 0,  perform  "EARTHR*" 

End  job 

TORQUE  DSPTEM2  = 0 

DSPTEM2  +1  = DRIFTI 

sp 

TS  = POSITON  - 1 
SOUTHDR^g  = DRIFTIgp 
Perform  "SHOW" 

Proceed  to  "PIPACHK" 

PIPACHK  If  NDXCTR  = 0,  perform  "EARTHR»" 

DATAPL  +4  = 17 
LENGTHOT  = 58 
RESULTCT  = 1 

PIPApipiNDEx  " ° 

DATAPL  = 0 
sp 

Perform  "CHECKG" 

Call  "PIPATASK"  in  .02  seconds 
End  job 

PIPATASK  LENGTHOT  = LENGTHOT  - 1 
If  LENGTHOT  > 0: 

Call  "PIPATASK"  in  5.12  seconds 
Establish  "PIPJOBB"  (pr20) 

End  task 
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PIP JOBS 


If  NDXCTR  = 0,  perform  "EARTHR*" 
If  lENGTHOT  > 0,  end  Job. 
RESULTCT  = 5 
Perform  "CHECKG" 


If  DATAPL+I^p  < 0, 


DATAPlW-4^p  = - DATAPLf4jjp 


If  DATAPLfl^p  = 0,  perform  "CCSHOLE" 

DATAPLf4^p  = DATAPL+4^p  - DATAPI/K)^p 

TS  = DATAPLf6^  - DATAPL+2. 

dp  dp 

If  TS  < 0: 

28  28  23 

TS  = TS  2 (the  2 corresponds  to  2 centiseconds 

DSPTEM2^p  = K:dc585  DATAPL+4^p  / TS  (with  forced  sign  agreement) 

If  NDXCTR  > 0: 

THETAD  = 0 

Perform  "IMUCOARS" 

Perform  "IMUSTALL" 

If  ISSGOOD  = 0,  proceed  to  "S0MERR2" 

Perform  "SHOW" 

LENGTHOT  = 3990 
TS  = POSITON  - 2 
DRIFTT^p  = - SOUTHDRj,g 
If  PIPINDEX  >0: 

ERCOMP  = ERCOMP  K:bt5 

X X 

ERCOMP  = ERCOMP  - K:bt5 

y y 

If  PIPINDEX  = 0: 

ERCOMP  = ERCOMP  - K:bt5 

7 7 

ERCOMP  = ERCOMP  + K;bt5 

z z 
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Perform  "EARTHR»" 


VALMIS 


ENDTEST1 


CHECKG 


ERVECTOR  = 0 

X 

TORQNDX  = (1  - 2"  ) 

LOSVEC  = CDU 

X 

Proceed  to  "ESTIMS" 
DSPTEM2  +1  = DRIFTO 

sp 

DSPTEM2  = 0 


Perform  "SHOW" 

Switch  FLAGWRDO  bit  8 (IMUSE)  to  0 
MODREG  = -0 

Establish  "DSPMMJOB"  (pr30) 

Proceed  to  "ENDEXT" 

QPLACE  = return  address 


Inhibit  interrupts 


ZERONDX  = - PIPA 
If  PIPA 

PIP INDEX 


PIPINDEX 
+ ZERONDX  = 0: 


Release  interrupt  inhibit 


Check  for  new  job  and  perform  it  if  required;  if  a new  job 
is  performed,  proceed  to  2n(i  line  of  "CHECKG" 

If  a new  job  is  not  performed: 

Inhibit  interrupts 

Proceed  to  4th  line  of  "CHECKG" 

DATAPLRgsuLTCT  ~ ^^^SlPINDEX 

D AT AP .mp.T  T C^hannel  3i  Channel  4)  (sample  with 

special  precaution  to  assure  that  the  two  halves  are  consistent) 

Release  Interrupt  inhibit 

Proceed  to  address  specified  by  QPLACE 
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SHOW 


DSPTEM2  +2  = POSITON 


Proceed  to  "OOFLASH"  with  TS  = K:V06N98 

(if  terminate,  proceed  to  "ENDTESTl" ; if  proceed, 
proceed  below;  if  other  response,  proceed  to  "SHOW”) 

Return 

EARTHR^  TSt  = TIMENOW 

TStI  = TSt  - TStmark 
If  TStI  < 0: 

TStI  = TSt1,+  2 centi-seconds 

ERCOMP  = P.C0MP  + [XSM]  TStI  pVECTOR 
TStmark  = TSt 
TS  =•  "ERCOMP" 

Perform  "IMUPULSE" 

Perform  "IMUSTALL" 

If  ISSGOOD  = 0,  proceed  to  "S0MERR2" 

Return 

ATJ.nOP  If  OVFLOWCK  > 0,  end  task 
TS  = ALTIM 
If  TS  = +0: 

ALTIMS  = +0 
ALTIM  = -0 
If  TS  = -0: 

ALTIM  = +0 

If  TS  < 0:  (shoiild  not  be  positive) 

ALTIM  = -(  I ALTIM  | - 1 ) 

If  GEOCOMPS  - 1 r 0 or  LENGTHOT  >0: 

Call  "ALLOOP"  in  ISECXT  centi-seconds 
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DELV  = FIFA  (most  significant  half  only) 

FIFA  =0 

Establish  "ALFLT"  (pr20) 

End  task 

ALFLT  If  GEOCOMFS  > 0,  perform  "I/FIFA" 

TS  = [xaMj"^  DELV 
. DFIFAY  = - TS 

y 

DFIFAZ  = TS 

z 

If  GEOCOMFS  > 0,  proceed  to  "FERFERAS" 

If  ALT IMS  > 0: 

TS  = 144-  ALXIS 
ALTIM  = ALFDK^g 
ALTIMS  = ALFDK^g  ^ ^ 

ALDK  = ALFDK^g  ^ 2 
ALDK^  = ALFDK^3  ^ ^ 

ALDK^  = ALFDK^g  ^ ^ 

ALDK^  = ALFDK^g  ^ g 
ALDKg  = AIFDK^g  ^ 

ALXIS  = ALXIS  - 12 
INTY  = INTY  - Krpipasc  DFIFAY 
DELM  = K:vesc  VLAUN  - INTY 

y y 

INTZ  = INTZ  - Kipipasc  DFIFAZ 

DELM  = K:vesc  VLAUN  - INTZ 
z z 

ALK  = ALDK  ALK 

ALK^  = ALDK^  ALK^ 
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INTY  = INTY  + ALK  DELM 

y 

ALK.  = ALK,  + ALDK 

4 4 4 . 

ANGX  = ANGX  + 4 ALK,  DELM 

4 y 

VLAUN  = VLAUN  + KiaskO  DELM 

y y y 

ANGZ  = ANGZ  + ALK„  DELM 
2 y 

ALK.  = ALK,  + ALDK, 

o o b 

DRIFTO  = DRIFTO  + 4 ALK,  DEIJ4 

6 y 

ACCWD  = ACCWD  + K:ask2  DELM 

y y y 

INTZ  = INTZ  + ALK  DELM 

z 

ALKg  = ALKg  + ALDKg 

DRIFTI  = DRIFT I + 4 ALK«  DELM 

o z 

VLAUN  = VLAUN  + KiaskO  DELM 
z z z 

ANGY  = ANGY  + ALK„  DELM 
2 z 

ACCWD  = ACCWD  + K:ask2  DELM 
z z z 

TS  = [tRANSMI]  (POSNV  , VLAUN  , ACCWD  ) 

(POSNV  , VLAUN  , ACCWD  ) = TS 

y»  y»  y/ 

TS  = [transmi]  (POSNV^,  vlaun^,  accwd^) 

(POSNV  , VLAUN  , ACCWD  ) = TS 
z z Z “ 

SNANGi  = sin(K:georgj  ANGi)  (i  = x,  y,  z) 

CSANGi  - cos(K:georgj  ANGi)  (i  = x,  y,  z) 

P ERF ERAS  Proceed  to  erasable  memory  cell  3400  (E7,  I4OO) 

This  is  the  point  where  the  program  apparently  returns  from  erasable 
memory . 

If  LENGTHOT  > 0: 

LENGTHOT  = LENGTHOT  - 1 
Proceed  to  "SLEEPIE" 

If  TORQNDX  > 0,  L0SVECt=  CDU^ 
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SOMEERRR 


S0MERR2 


OGC  = JxSmJ  (-K;georgj)(ANGX,  ANGY,  ANGZ) 

TS  = "OGC" 

Perform  "IMUPULSE" 

Perform  "IMUSTALL" 

If  ISSGOOD  = 0,  proceed  to  "S0MERR2" 

If  TORQNDX  > 0,  proceed  to  "VALMIS" 

ERVECTOR  = K:omegms  ( sinLATITUDE,  -cosLATITUDE,  O) 

TStmark  = TIMENOW 

ERCOMP  = 0 

Proceed  to  "TORQUE" 

OVFLOWCK  = 1 ■ 

Perform  "ALARM"  with  TS  = 0l600j 
Proceed  to  "ENDTEST1" 

Perform  "ALARM"  with  TS  = 01601 g 
Switch  FLAGWRDO  bit  8 (IMUSE)  to  0 
End  job 
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Quantities  in  Computations 


1SECXT:  Single  precision  quantity,  scale  factor  B14»  mits  centi-seconds, 
giving  required  period  of  computations  for  "ALLOOP" . 


A;  See  MATX  section. 


ACCWD  , ACCWD  : Double  precision  value  of  horizontal  acceleration  of 
launch  vehicle  (due  to  sway)  in  north-south  and  east-west  directions 
respectively,  scale  factor  B9,  units  cm/sec^. 


AIDK,  ALDK2:  Set  of  double  precision  buffer  cells  used  to  contain  the 
values  of  the  time  constants  for  the  erection  angles  (PIPA  outputs 
and  east  axis  leveling  angle),  scale  factor  BO,  as  read  from  the 
ALFDK  table  set. 


ALDK^,  ALDK^,  ALDK  : Set  of  double  precision  buffer  cells  used  to  contain 
the  values  of  the  slopes  of  the  gains  for  azimuth  angle,  vertical  drift, 
and  north-south  drift  respectively;  scale  factor  BO,  read  from  ALFDK 
table  set. 


ALFDK  ; Table  of  erasable  memory  quantities  used  in  "ALFLT"  to  update 
values  of  parameters  to  be  used  for  filtering  in  gyro  drift 
computations.  The  table  consists  of  five  double  precision  constants, 
one  single  precision  constant  (the  setting  for  ALTIM),  and  a reset 
value  of  ALTIMS  (which  could  be  e.g.  -1  for  all  tables).  Values 
must  be  initialized  by  an  erasable  memory  load  (with  the  first  value 
at  "ALFDK",  with  settings  for  ALTIM,  ALTIMS,  ALDK,  ALDK  , ALDK  , ALDK., 
and  ALDKg  stored  in  that  order  (first  two  single  precision,  remainder^ 
double  precision).  Scale  factor  of  first  two  assumed  BI4,  and  the 
remainder  assumed  BO,  in  this  writeup. 


ALK,  ALK^,  A.LK  , A.LK  , ALKgi  Values  of  gains  updated  each  cycle  in 

gyro  drift  determination  computations.  ALK  and  ALK^  are  initialized  to 
non-zero  values  in  "ESTIMS"  and  multiplied  by  time  constants  for 
PIPA  outputs  and  erection  angles  respectively,  with  scale  factors  due 
to  initialization  of  BO  (ALK)  and  B2.  The  others  (ALK^,  ALK^,  and  ALKg) 
are  initialized  to  0 values  in  "ESTIMS",  and  are  incremented  each 
cycle  to  achieve  varying  gains  for  azimuth  angle,  vertical  drift,  and 
north-south  drift  respectively:  all  are  considered  to  have  scale 
factor  BO  (see  ALFDK). 

ALMCADR;  See  PGSR  section, 

ALTIM:  Single  precision  value  of  time  remaining  prior  to  change  in 
filter  constants  for  drift  measurements,  scale  factor  BI4,  units 
seconds.  To  cause  a set  of  gains  to  be  used  for  T seconds,  ALTIM 
is  set  to-(T  - 2) . 


ALTIMS:  Single  precision  flag  cell  set  to  0 when  a gain  chaqge  should 
be  made  (see  ALTIM),  and  then  reset  (e.g.  to  -1)  when  the  gain  change 
has  been  done,  scale  factor  BI4. 

ALXIS:  Single  precision  cell,  scale  factor  BI4,  used  to  control  selection 
of  values  from  ALFDK^  erasable  memory  table  (set  to  144  in  "ESTIMS"). 
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ANGX,  ANGY,  ANGZt  Values  of  detemlned  angle  changes  about  vertical, 
south,  and  east  axes  respectively,  scale  factor  BO,  units  revolutions! 
they  are  aslnuth  alignment  angle,  south  axis  leveling  angle,  and 
east  axis  leveling  angle  respectively. 

AZIMUTH!  Double  precision  erasable  memory  constant,  scale  factor  BO, 
units  revolutions.  It  gives  the  azimuth  of  the  vehicle  Z-axls  east 
of  notth. 

CADRSTOR!  See  DINT  section. 

CDU:  See  COOR  section. 

CMPX1 1 Single  precision  cell,  scale  factor  B14,  used  to  set  proper 
contents  of  Index  register  XI  to  permit  use  of  an  Index  loop  (XI 
Is  set  sucesslvely  to  + 1 ) to  perform  calculations  In  "ALFLT". 

CSANG^  (i  = X,  Y,  Z):  Values  of  cosine  of  ANGX,  ANGY,  and  ANGZ,  scale 
factor  B1,  stored  in  push-dovm  list  locations  16D,  18D,  end  20D 
respectively. 

CYR,  CYL,  SR,  EDOP;  Cycle  right,  cycle  left,  shift  right  and  shift  right 
7 registers. 

DATAPL:  Set  of  cells  used  to  retain  "prelaunch  data”,  loaded  in  "CHECKG” 
with  sampled  accelerometer  value  and  corresponding  value  of  time 
information  in  (channel  3,  channel  4)  scaling  (B23  cs). 

DELM  , DELM  : Value  of  measurement  quantity  in  south  and  easterly 
directions  used  in  drift  test,  scale  factor  B-2,  \inlts  radians. 

DELV:  See  SERV  section. 

DPIPAY,  DPIPAZ:  Value  of  accelerometer  output  modified  for  use  in 

gyro  psirameter  calculations.  The  y axis  of  this  system  is  south  and 
and  the  z axis  is  east  (from  [XSM]  ).  Scale  factor  is  614>  units 
accelerometer  counts. 

DRIFTI;  Value  of  gyro  drift  measurement  output  displayed  in  "TORQUE", 
scale  factor  (assumed)  BO,  vinits  radians,  giving  the  south  gyro 
drift. 

DRIFTO:  Value  of  gyro  drift  measiirement  output  displayed  in  "VAIMIS", 
scale  factor  (assumed)  BO,  units  radians,  giving  the  vertical  gyro 
drift. 

DRIFTT:  Input  drift  to  gyro  drift  determination  routine  (to  separate 
east  gyro  drift  from  azimuth  error),  scale  factor  BO,  units  radians. 

It  has  only  its  most  significant  half  loaded  by  calling  routines, 
with  the  least  significant  half  set  to  0. 
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DSPTAB^  (i  = 0 - 10):  See  DSKY  section. 

DSPTAB^^:  See  INTR  section. 

DSPTEM1 , etc:  See  DATA  section. 

^ADR*  Contents  of  single  precision  erasable  memory  register  whose 
address  is  ADR, 

EBANK;  See  MATX  section. 

ERCOMP:  Value  of  gyro  compensation  to  be  sent  to  gyros,  scale  factor 
B21 , units  pulses  (or  scale  factor  BO,  units  revolutions,  since 
one  pulse  is  2“^^  revolution). 

ERCOUNT:  Single  precision  count  of  errors  encountered  in  the  erasable 
memory  self-check,  scale  factor  B14,  initialized  at  0 by  a fresh  start. 

ERESTORE:  Single  precision  storage  for  the  address  of  the  first  of  two 
erasable  memory  cells  currently  being  tested  by  the  "ERASCHK"  routine. 
Set  to  +0  when  the  "ERASCHK"  is  complete  or  not  functioning. 

ERVECTOR:  Earth  rotation  vector  initialized  in  "ESTIMS",  scale  factor  B1, 
units  gyro  pulses  / centi-second. 

FCADR:  See  MATX  section. 

^OMP:  Value  of  required  gyro  compensation  command,  computed  with  a 
scale  factor  B14,  but  used  in  "IMUPULSE"  with  a scale  factor  B2,1 
(or,  alternatively,  with  a scale  factor  BO  revolutions  rather  than 
B21  gyro  pulses,  since  there  are  2^^  gyro  pulses  / revolution). 

GCOMPSW:  Single  precision  control  cell  used  to  bypass  the  performance 
of  "l/PIPA"  and  "NBDONLY"  if  it  is  negative. 

GEOCOMPS:  Single  precision  control  cell  which  when  positive  will 
cause  the  calculations  performed  in  "ALFLT"  to  be  skipped  and 
control  transferred  to  the  erasable  memory  programs.  Normally 
set  to  0. 

IM0DES30:  See  IMUC  section. 

IMODES33:  See  INTR  section. 

INTY,  INTZ:  Value  of  filtered  accelerometer  output  (corrected  for  vehicle 
sway  etc.)  used  in  gyro  drift  test,  scale  factor  B-2,  units  radians. 
Could  also  be  considered  to  be  "south"  and  "east"  velocity  increments 
expressed  in  \mits  of  g's  (see  K:pipasc). 
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ISSGOOD:  See  IMUC  section. 


K:askO:  Constant,  program  notation  "ALSK",  scale  factor  B12,  stored  as 
05427  12577rt>  equation  value  709.833965.  Value  corresponds  to 
0.72402338  X 980. 402  X 2“^^  where  first  term  is  wind-induced  sway 
velocity  gain,  second  converts  DELM  to  units  of  cm/sec  (i.e,  units  of 
VLAUN ) , and  third  term  is  scale  factor. 

K:ask2:  Constant,  program  notation  "ALSK  +2",  scale  factor  B12,  stored 
as  77567  44202^,  equation  value  ^24. 2167470.  Value  corresponds  to 
0.03490074  X (-1)  X 980.402  X 2~  , where  first  term  is  wind-induced 
accelerometer  gain,  second  is  an  equation  factor,  third  converts  to 
units,  of  cm/sec'^,  and  fourth  term  is  scale  factor. 

K:bt5:  Constant,  program  notation  "BIT5",  scale  factor  BO,  units 
revolutions,  stored  as  00020g,  equation  value  0.00098.  Value  is 
2“^^  revolution  corresponding  to  about  360/1024  = 0.35°,  serving 
to  offset  platform  to  account  for  accelerometer  dead  zones.  Could 
also  be  considered  to  have  value  of  2^'  gyro  torquing  pulses;  there 
are  2^^  pulses/rev. 

K:dc585:  Constant,  program  notation  "DEC585",  scale  factor  B9,  stored 
as  06200g,  equation  value  100.0.  The  100  corresponds  to  1 .0  x 100, 
where  first  term  is  accelerometer  nominal  scale  factor  (cm/sec  per  count) 
and  second  converts  denominator  in  "PIPJOBB"  from  units  of  centi-seconds 
to  seconds.  Result  has  scale  factor  B14,  imits  cm/sec  (measured 
gravity,  with  integral  part  in  R1  of  N98  and  fractional  part  in  R2). 

K:georgj:  Constant,  progreun  notation  "GEORGEJ",  scale  factor  B-2,  stored 
as  24276  14066g,  equation  value  0.159154942.  Value  corresponds  to 

(l/2ir)  X 2^,  to  convert  between  radians  and  revolutions  (the  interpre- 
tive language  trig  functions  require  angle  measurements  in  revs). 

K:omegms:  Constant,  program  notation  "OMEG/MS",  scale  factor  BO,  units 
gyro  pulses/centi-second,  stored  as  07623  26552^,,  eq^uation  value  „ 
0.243390478.  Value  corresponds  approximately  to  (1/86164.0932)  x 10~  x 
2^^,  where  first  term  is  earth  rotation  period  in  seconds  (used  to  de- 
rive constant),  second  converts  to  centi-seconds,  and  third  is  number 
of  gyro  torquing  pulses  in  one  revolution. 

K:pipasc:  Constant,  program  notation  "PIPASC",  scale  factor  B-7,  stored 
as  04133  02265rt>  equation  value  0.001019989.  Value  corresponds  to 
1.0  X (1/980.482)  X 2'  where  first  term  is  nominal  accelerometer  scale 
factor  (cm/sec  per  co\ant),  second  is  normalization  factor  (acceleration 
due  to  gravity),  and  third  is  scale  factor.  For  convenience  in 
description,  a fourth  factor  of  "i/second"  has  been  assiamed  reflected  in 
this  constant,  giving  for  units  of  result  (in  INTY  etc.)  radians. 
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K:soupyO:  Constant,  program  notation  "SOUPLY",  scale  factor  BO,  stored 
as  35730  00035rt»  equation  value  0,935058704.  Used  in  "ESTIMS"  to 
initialize  ALKl 

K;aoupy2:  Constant,  program  notation  "SOUPLY  +2",  scale  factor  B2, 
stored  as  10317  17550rt>  equation  value  1.05065691,  Used  in 
"ESTIMS"  to  initialize  ALK^- 

K:V06N98:  See  list  of  major  variables. 

K:vesc:  Constant,  program  notation  "VELX",  scale  factor  B-9,  stored 
as  57223  66451rt»  equation  value  -0.001019989.  Value  corresponds  to 
(-1)  X (I/98O.4O2)  X 2°,  where  first  term  is  an  equation  factor, 
second  converts  for  acceleration  due  to  gravity,  and  third  is  scale 
factor. 

L:  See  MATX  section. 

LATITUDE:  Erasable  memory  (double  precision)  constant,  with  scale 

factor  BO,  \mits  revolutions.  It  gives  the  local  vertical  astronomi- 
cal latitude  of  the  pad. 

LENGTHOT:  Single  precision  cell,  scale  factor  BI4,  used  to  contain  time 
duration  information.  It  is  loaded  in  "PIPACHK"  and  "PIPJOBB"  and 
decremented  in  "PIPATASK"  and  "PERFERAS" . 

LOSVEC,  LOSVEC. : Single  precision  cells,  scale  factor  B-1 , units 
revolutions,  used  to  contain  the  value  of  CDU  in  "PIPJOBB"  and 
when  the  program  retvirns  from  erasable  memory,  for  use  in  DSKY 
monitoring  of  performance  (by  an  address-to-be-specified  noun). 

MODREG:  See  DATA  section. 

M0NSAVE1:  See  DATA  section. 

MPAC^:  See  DINT  section. 

NDXCTR:  Single  precision  cell,  scale  factor  B14>  initialized  to  0 in 
"REDO"  and  incremented  to  1 for  a "gimbal  lock"  return  from 
"CALCGA"  (angle  of  60  degrees  or  more). 

NEW JOB:  See  MATX  section. 

NOUT:  See  INTR  section. 

OGC:  See  COOR  section. 

OVFLOWCK:  Single  precision  flag  which  will  terminate  the  IMU  performance 
teat  if  set.  It  is  initialized  to  zero  in  "REDO"  and  set  in 
"SOMEERRR"  to  indicate  overflow  has  occurred  somewhere  in  the 
erasable  memory  program  calculations. 
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PERFDLAY:  Communication  cell  with  routine  calling  "GOEST IMS",  apparently 
not  loaded  by  program  control.  Scale  factor  B28,  units  centi-seconds. 

(the  "LONGCALL"  entrance  to  the  waitlist  system  is  used). 

PIPA:  See  IMUC  section. 

PIPINDEX:  Single  precision  cell,  scale  factor  B.14,  used  to  select 

accelerometer  axis  under  test  (Ojl,  and  2 for  X,  Y,  Z respectively). 

M\ist  be  loaded  manually. 

POSITON:  Single  precision  cell,  scale  factor  BI4,  used  for  indexing  and 
display  purposes  (used  in  previous  programs  to  select  desired  stable 
member  orientation  from  fixed  memory  information).  Must  be  loaded 
manually  (inputs  in  "SHOW"  do  not  change  it.). 

POSNV  , POSNV^:  Values  of  horizontal  displacement  of  launch  vehicle 

in  south  and  east  directions  respectively,  assumed  scale  factor 
B9,  units  cm  (assumed  since  scaling  of  [TRANSMiJ  elements  not 
known,  but  treated  as  B1 ) 

QPLAcE:  Single  precision  cell  used  to  retain  return  address  information. 

RADMODES:  See  RADR  section. 

RESULTCT:  Single  precision  cell,  scale  factor  BI4,  used  to  select  the 
proper  storage  locations  in  "CHECKG";  it  is  set  to  1 at  the  start 
of  the  accelerometer  sampling  interval  and  to  5 at  its  end,  to 
cause  storage  in  appropriate  DATAPL  locations. 

SCOUNT,  SCOUNT^ ; Single  precision  counters,  scale  factor  B14»  used  to  count  cy- 
cles through  the  self-check  and  erasable  memory  test  routines,  respectively. 

SELFRET : Single  precision  storage  for  the  address  of  the  current  position 
in  the  self-check  routine,  for  return  after  other  jobs  are  completed. 

SFAIL:  Single  precision  address  in  the  self-check  routine  where  an  error 
was  detected. 

SKEEP1 : Single  precision  storage  for  the  brsinching  address  in  the 

self-test  routine,  or  for  an  octal  bank  sum  (the  sum  of  the  contents 
of  all  the  cells  in  a bank  of  fixed  memory),  accvunulated  with  end 
around  carry  of  a + or  - overflow  (+1  for  overflow;  -1  for  - overflow). 
(Example  of  end  around  carry  of  overflow:  25701 g + 32405g  = 20307g) 

SKEEP2:  Single  precision  cell  used  in  the  bank  s\mi  display  as  temporary 
storage  for  the  bank  number.  Used  in  the  erasable-memory  self-check 
to  indicate  whether  the  bank  being  checked  is  a normal  bank  or  the 
unswitched  bank.  Used  in  the  fixed-memory  self-check  as  temporary 
storage  for  the  value  in  the  cell  being  checked. 
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SKEEP3:  Single  precision  cell  used  as  temporary  storage  for  the  "bugger 
word"  during  a bank  sum  display.  (The  bugger  word  is  the  last  word  in 
a fixed  memory  bank  which  adjusts  the  a\im  to  make  it  equivalent  to  the 
bank  number.)  Used  in  the  erasable-memory  self-check  as  storage  for 
the  last  address  in  the  bank  to  be  checked.  Used  in  the  fixed-memory 
self-check  as  storage  for  the  address  of  the  next  fixed-memory  cell 
whose  contents  are  to  be  added  to  the  bank  sum. 

SKEEP4:  Single  precision  storage  for  the  value  of  the  EBANK  in  the 
erasable-memory  self-test  routines,  scaled  B6  and  expressed  as  an 
octal  nvunber.  Single  precision  storage  for  the  value  of  the  FBANK 
number  in  the  fixed-memory  self-test  routines,  scaled  B4  and  expressed 
as  sui  octal  number  with  the  SUPERBNK  setting  in  bits  7-5,  the  64ths 
octal  digit. 

SKEEP5:  Single  precision  storage  for  the  contents  of  the  first  of  two 
consecutive  E-memory  cells  being  checked;  or  single  precision  index 
indication  (by  being  set  to  +0  and  then  to  -1)  that  two  consecutive 
fixed-memory  cells  contain  their  own  addresses  (TC  SELF),  thus  sig- 
nifying that  the  remainder  of  a bank  contains  no  information. 

SKEEP6:  Single  precision  storage  for  the  contents  of  the  second  of  two 
consecutive  E-memory  cells  being  checked;  or  a single  precision  flag 
set  to  -0  to  Indicate  a standard  fixed-memory  check  or  1 to  indicate 
a verb  91  bank  sum  display. 

SKEEP7:  Single  precision  address  of  the  first  of  two  consecutive 
E-memory  cells  being  checked;  or  a single  precision  index  counted 
down  to  signal  banks  2 and  3 so  that  they  may  be  addressed  directly 
instead  of  through  the  FBANK  setting. 

SMODE:  Single  precision  index  set  equal  to  +0  to  stop  the  LGC  self-test; 
set  to  -0,  ± 1 , ± 2,  ^ 3,*  6,  ^7,  or  * lOg  to  cause  the  self-test 
routine  to  alternate  between  "ERABCHK"  and  "ROPECHK";  set  to  * 4 to 
cause  the  self -test  routine  to  perform  only  "ERASCHK";  and  set  ± 5 to 
cause  the  self-test  routine  to  perform  only  "ROPECHK".  If  an  error  is 
encountered,  the  self -test  routine  will  return  to  idle  unless  SMODE 
is  negative. 

SNANG  : (i  = X,Y,Z),  value  cf  sine  of  ANGX,  ANGY,  and  ANGZ,  scale  factor 
B-2,  stored  in  push-down  list  locations  10D,  12D,  and  14D  respectively. 

SOUTHDR  • Indexed  cell  used  in  "TORQUE"  to  retain  the  value  of  DRIFTI 

i sp 

for  subsequent  initialization  of  DRIFTT  in  "PIPJOBB",  for  proper 

initialization  (e.g.  to  1 ) and  subsequen?  incrementing  (e.g.  to  2) 
of  POSITON . 

THETAD:  See  ATTM  section. 

TIMENOW:  See  EXVB  section. 
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TORQNDX:  Quantitj  set  to  0 if  no  torqtiing  is  done  and  to  1 (scale  factor 
BO)  if  torquing  is  to  be  done  via  "EARTHR*"  at  the  start  of  "SLEEPIE". 


[TRANSMiJ:  Transformation  matrix  used  as  a sway  transition  matrix, 
contained  in  erasable  memory  (must  be  initialized  to  values  as 
part  of  an  erasable  memory  load  before  running  test).  Ass\amed 
scaling  in  this  writeup  for  all  elements  is  B.1  (after  being  used  to 
perform  multiplication,  a left  shift  of  1 is  done). 


TStraark:  Value  of  time  when  previous  earth-rate  compensation  was  made, 
scale  factor  B28,  units  centi-seconds. 

VLAUN  , VLAUN  : Value  of  horizontal  velocity  of  laimch  vehicle  (due 
to^sway)  in  north-south  and  east-west  directions  respectively, 
scale  factor  B9,  units  cm/sec. 

WANGI:  Value  of  (-cos  LATITUDE)  loaded  in  "REDO",  scale  factor  BO. 

WANGO:  Value  of  (sin  LATITUDE)  loaded  in  "REDO",  scale  factor  BO. 

(XNEJ  : See  COOR  section. 

[XSM]  : See  COOR  section. 

ZERONDX:  Single  precision  cell,  used  as  an  input  parameter  to  an 
erasable  memory  zeroing  routine,  (not  shown  in  this  writeup). 

It  is  loaded  in  "CHECKG"  with  accelerometer  information  whenever 
checks  for  accelerometer  output  are  made  after  an  interruption. 
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TRGL 


Targeting  - Lambert 


P34  Switch  FLAGWRD2  bit  5 (AWLAG)  to  1 
Skip  next  step 

P7A  Switch  FLAGWRD2  bit  5 (AVFLAG)  to  0 

Switch  FLAGWRDl  bits  5 (TRACKFLG)  and  7 (UPDATFLG)  to  1 

Proceed  bo  "GOFLASH"  with  TS  = K;V06N37  (TTPI) 

(if  terminate,  proceed  to  "GOTOPOOH";  If  proceed, 
continue  at  next  step;  other  response,  repeat  this 
step.) 

CENTANG  = K:130DEG 

NN  = 0 (most  significant  half  only) 

Perform  "DISPLAYE" 

Switch  FLAGWRD2  bit  7 (ETPIFLAG)  to  0 
TIG  = TTPI 

If  ELEV  / 0,  switch  FLAGWRD2  bit  7 (ETPIFLAG)  to  1 
Perform  "SELECTMQ" 

Perform  "VN1645" 

P34/P74C  Switch  FLAGWRD7  bit  15  (ITSWICH)  to  1 

If  FLAGWRD2  bit  7 (ETPIFLAG)  = 0: 

Switch  FLAGWRD7  bit  15  (ITSWICH)  to  0 

NOMTPI  = 0 

INTLOOP  TDECl  = TTPI  + NOMTPI 

Perform  "PRECSET"  (get  RACT3,  VACT3,  RPASS3,  VPASS3) 
Perform  "S33/34.1"  (get  ELEV  or  TPI  time) 

If  TSnosol  / 0:  (no  solution) 
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(If  TSnosol  t O) 

Perform  "ALARM"  with  TS  = OO6II0 

o 

Proceed  to  "GOFLASH"  with  TS  = K:V05N09 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
proceed  to  the  second  step  of  "P74";  other 
response,  proceed  to  previous  step.) 

If  FLAGWRD7  bit  15  (ITSWICH)  =1; 

Switch  FLAGWRD7  bit  15  (ITSWICH)  to  0 

Proceed  to  "INTLOOP" 

If  FLAGWRD2  bit  7 (ETPIFLAG)  = 0,  perform  "DISPLAYE" 

If  FLAGWRD2  bit  7 (ETPIFLAG)  = 1; 

Proceed  to  "GOFLASH"  with  TS  = K:V06N37  (TTPI) 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  other  response,  repeat 
this  step.) 

CSTH  = cosCENTANG 

SNTH  = sinCENTANG 

S.VEC  = RPASS3  (both  shifted  left  two  if  necessary  to 

make  the  scaling  B29  and  B7  (earth) 

WEC  = VPASS3  or  B27  and  B5) 

Switch  FLAGWRD7  bit  9 (RVSW)  to  1 

Perform  "TIMETHET" 

INTIME  = TTPI 

TPASS4  = TTPI  + T 

Perform  "S34/35.2"  (get  DELVEET3  and  DELVLVC) 

DELVTPI  = |dELVEET3| 

DELVTPF  = |VPASS4  - VTPRIMEj 
OTEC  = MCT3 
VVEC  = VIPRIME 
Perform  "PERIAPO" 


TRGL  - 2 


POSTTPI  = TShp 
TIG  = TTPI 


Proceed  to  "GOFLASH"  with  TS  = K;V06N58  (POSTTPI, 

DELVTPI,  DELVTPF) 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  other  response,  repeat  this 
step . ) 

Perform  "S34/35.5"  (get  DELVSIN) 

Perform  ■VN1645"  (astronaut  recycle  or  finalize  options) 

Proceed  to  ''P34/P74C" 

DISPLAYE  NORMEX  = return  address 

Proceed  to  "GOFLASH"  with  TS  = K;V06N55  (NN,  ELEV,  and  CENTANG) 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
return  via  NORMEX;  other  response,  repeat  this  step.) 

S34/35.5  SUBEXIT  = return  address 

If  FLAGWRD2  bit  6 (FINALFLG)  = 0: 

Switch  FLAGWRDl  bit  7 (UPDATFLG)  to  1 

Perform  "S34/35.4" 

Proceed  to  "GOFLASH"  with  TS  = K;V06N59  (DVLOS) 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  other  response,  repeat 
this  step.) 

Return  via  SUBEXIT 

Switch  FLAGWED6  bit  3 (NTARGFLG)  to  0 
GDTd2  = DELVLVC 

Proceed  to  "GOFLASH"  with  TS  = K:V06N8l  (DELVLVC) 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  other  response,  repeat  this 
step . ) 
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TSsum  = 0 


NTARGCHK 


P35 


P75 


P35/P75B 


i = 5 


TS  - GDTd2.  - DELVLVC.  (check  for  astronaut  overwrite 
^ ^ of  DELVLVC) 

TSsum  - TSsum  + TS 

If  i>  0: 

i - i - 1 

Proceed  to  "NTARGCHK" 


If  TSsum  0: 

Switch  FLAGWRD6  bit  3 (NTARGFLG)  to  1 
Perform  "S34/35.3" 


mVSIN  = DELVEET3 
Perform  "S34/35.4" 


Proceed  to  "GOFLASH"  with  TS  = K:V06N59  (DVLOS) 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  other  response,  repeat  this 
step.) 


Return  via  SUBEXIT 


Switch  FLAGWRD2  bit  5 (AVFLAG)  to  1 
TK  = ATIGINC 


Skip  next  two  steps 

Switch  FLAGWRD2  bit  5 (AVFLAG)  to  0 

TK  = PTIGINC 

Switch  FLAGWRDl  bits  5 (TRACKFLG)  and  7 (UPDATFLG)  to  1 
Perform  "SELECTMU" 

Perform  "VN1645" 

TSTRT  = TIMENOW 
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TIG  = TSTRT  + TK 


INTIME  - TIG 
TDECl  - TIG 
Perform  "PRECSET" 

ULOS  = unlt(RPASS3  - MCT3) 

UNRM  = unit(MCT3  * VACT3) 

Perform  "S34/35.2"  (Lambert  solution) 

Perform  "S34/35.5"  (get  DELVSIN) 

Perform  "VN1645"  (astronaut  recycle  or  finalize) 

Proceed  to  "P35/P75B" 

S33/34.1  NORMEX  = return  address 
TITER  - -K;posmaxsp 
SECMfi  = K:MAX250 
RAPREC  = RACT3 
VAPREC  - VACT3 
RPPREC  - ^ASS3 
VPPREC  - VPASS3 

ELCALC  ULOS  - unit(pASS3  - RACT3) 

PRM  - unit(RACT3  * VACT3) 

UP  - unit(lILOS  - (ULOS  • unit^CT3)  unitMCT3) 

TSelev  = arccos(lIP  • ULOS  sign(UNRM  * ^CT3  • in')) 

(TSelev  is  positive,  between  0 and  180  degrees  - 0 and  ^ rev) 
If  ULOS  . RACT3  < 0: 

TSelev  = K;posmaxdp  - TSelev 


TRGL  - 5 


If  FLA1WRD7  bit  15  (ITSWICH)  =0: 

TTPI  = TTPI  + NOMTPI 
If  FLAGWRD2  bit  7 (ETTPIFLAG)  --  0 
ELEV  = TSelev 
TSnosol  = 0 
Return  via  NORMEX 
DELELO  = DELEL 
DELEL  = TSelev  - ELEV 
If  ( DELEL i < KiELEPS: 

TSnosol  = 0 
Return  via  NORMEX 
If  TITER  = 1: 

TSnosol  = 1 
Return  via  NORMEX 
TITER  = TITER  - 1 
TSrdif  = 1EPASS31  - lRACT3| 

TS  = (i-  - ELEV)  signTSrdif 
If  TS  < 0:  (desired  ELEV  impossible) 

TSnosol  = TS  O) 

Return  via  NORMEX 

TScsd  = -cos(i-  - ELEV)  l^CT3l  / [ RPASS3 1 
TS  = 1 - jTScsdl 
If  TS  < 0: 

TSnosol  = TS 
Return  via  NORMEX 


TRGL  - 6 


TS16  = j^ASS3l  unitCmJRM  * unit^CT3)  • YACT3 
TS  = unitRPASS3  * VPASS3 

TS16  = TS16  - |MCT3l  unit(TS  * unlt^ASS3)  • VPASS3 

TSs  = unitMCT3  * unitRPASS3  • UNRM 

TSc  = arccos(iinitRACT3  • unitroASS3)  signTSs 

TSca  = (^  - arccosTScsd)  signTSrdif  + ELEV  - ^ + TSc 

TSt  = K:TWOPI  TSca  | MCT3 1 |^ASS3  j / TSl6 

If  jTStl  > SECMAX,  TSt  = SECMAX  signTSt 

If  TITER  < 0;  (first  pass) 

TITER  = U 
DELTEEO  = TSt 

DSLTEE  = TSt 
Proceed  to  "ADTIME" 

If  DELEL  DELELO  < 0:  (solution  is  surrounded) 

SECMAX  = SECMAX  / 3 
DELTEEO  = - |TSt|  slgnDELTEEO  / 2 
DELTEE  = DELTEEO 
Proceed  to  "ADTIME" 

If  iDELELO]  < [DELEL [; 

DELTEEO  = -DELTEEO  / 2 
DELTEE  = 3 DELTEEO 
Proceed  to  "ADTIME" 

DELTEEO  = [TSt I slgnDELTEEO 
DELTES  = DELTEEO 
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ADTIME 


NOMTPI  = NOMTPI  + DELTEE 


Perform  "INTINT"  with  TSv  = VAPREC,  TSr  = MPREC,  TSo  = 0, 
TSt  = NOMTPI,  and  TSlntyp  = NOMTPI 

MCT3  = RATT 

VACT3  = VATT 

Perform  "INTINT"  with  TSv  = VPPREC,  TSr  = RPPREC,  TSo  =0, 
TSt  = NOMTPI,  and  TSlntyp  = NOMTPI 

RPASS3  = RATT 

VPASS3  = VATT 

Proceed  to  "ELCALC" 

S34/35 .2  SUBEXIT  = return  address 

TSv  = VPASS3,  TSr  = RPASS3,  TSo  = INTIME,  and  TSt  = TPASS4 

If  most  significant  half  of  NN  = 0: 

TSintyp  = K:TW0PI 
Perform  "INTINT" 

If  most  significant  half  of  NN  ^ 0; 

TSintyp  = 0 
Perform  "INTINT" 

RTARG  = RATT 

VPASS4  = VATT 

ACTCENT  = arccos(unltRACT3  ' unitRTARG)  slgn(unitMCT3  * 
unltRTARG  * UNRM) 

If  ACTCENT  < 0,  ACTCENT  = Krposmaxdp  + ACTCENT 

DELLT4  = TPASS4  - INTIME 

VTARGTAG  = NN 

CNANGL  = K:EPSF0UR 

RINIT  = pCT3 

VINIT  = VACT3 

Perform  "INITVEL" 
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DELVLVC  = 


-unitRACT3  * UNRM 
-UNRM~ 

-•unitMCT3 


DELVEET3 


Return  via  SUBEXIT 


S34/ 35.3  NORMEX  = return  address 


DELVEET3  = pLVLVC 


-unltRACT3  * UNRM 
-UNRM~ 

-unitRACT3 


Perform  "INTINT"  with  TSv  = myEET3  + VACT3,  TSr  = MCT3 
TSo  = TIG,  TSt  = TPASS4,  and  TSintyp  = Ktposmaxdp 


> 


RTARG  = MTT 


DVLOS  = 


ULOS 

-unit(ULOS  * UNRM)  * ULOS 
-unit (ULOS  * UNRM) 


Return  via  NORMEX 


DELVEET3 


S34/35.4  NORMEX  = return  address 


DVLOS  = 


ULOS 

-unit  (ULOS  * UNRM.) ULOS 
-unit<ULOS  * UNRM) 


Return  via  NORMEX 


PLVEET3 


INITVEL  Switch  FLAGWRDl  bit  2 (GUESSW)  to  1 
HAVEGUES  NORMEX  = return  address 


OTARGl  = RTARG 

If  MUDEX  i 0,  rescale  RINIT,  VINIT,  and  RTARGl 

RTMAG  = I RTARGl I 

ITCTR  = -1 

C0ZY4  = cbsCNANGL 

RIVEC  = RINIT 

R2VEC  = RTARGl 

TDESIRED  = DELLT4 

UN  = unlt(unitRINIT  * VINIT) 

C0ZY4  = (unitpARGl  * unitRINIT)  + C0ZY4 
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INITVEL2 


Switch  FLAGWRD7  bit  10  (NORMSW)  to  0 
If  C0ZY4  < 0: 

Switch  FLAGWRD7  bit  10  (NORMSW)  to  1 

R2VEC  = |R2VEC|  unit(R2VEC  - (j^VEC  * TO)  M) 

If  ITCTR  < 0,  RTARGl  = R2VEC 

XI  = -MUDEX  - 2 (-2  for  earth  sphere,  -10  for  limar  sphere) 

TS  = unitRlVEC  * unitR2VEC 
TSz  = Z component  of  TS 
If  TSz  > 0,  XI  = XI  + 10 


If  TSz  < 0,  XI  = XI  + 2 

If  XI  = 0,  TS.  = -TS 

TS  = (TS  * unitpVEC)  * unit  ^VEC 


If  TS  ZO,  GEOMSGN  = K;MUq 
If  TS  < 0,  GEOMSGN  = -K:MUq 
ITERCTR  =20 
Perform  "LAMBERT" 

Switch  FLAGWRDl  bit  2 (GUESSW) 


(only  most  significant  half  of 
K;MUo  is  used  for  setting  GEOMSGN) 


0 


VIPRIME  = WEC 

If  VTARGTAG  = 0,  proceed  to  "INITVEL7" 

Perform  "INTSTALL" 

Switch  FLAGWRDO  bit  12  (MOONFLAG)  to  0 

If  MUDEX  / 0,  switch  FLAGWRDO  bit  12  (MOONFLAG)  to  1 

RIVEC  = RINIT 

RCV  = RINIT 

VCV  = VIPRIME 

TET  = INTIME 

TDECl  = INTIME  + DELLT4 

Switch  FLAGWRD3  bit  4 (INTYPFLG)  to  0 


TRGL  -10 


Perform  "INTEGRVS" 


INITVEL7 


VTARGET  = VATT 
ITCTR  = ITCTR  + 1 
If  ITCTR  ^ VTARGTAG : 

R2VEC  = pVEC  + RTARGl  - MTT  (bias  target  vector) 

Proceed  to  "INITVEL2" 

PARGI  = R2VEC 

DELVEET3  = VIPRIME  - VINIT 

VTPRIME  = VTARGET 

If  MUDEX  ^ 0,  rescale  2TPRIME,  VIPRIME^  PLVEET3,  and  RTARGl 
MJE  = K:MUTABLE^j^^X 

MUdA  = (MUE)  (RdA)  / R1 
Rescale  MUE 
MUASTEER  = MUE 
MARG  = pARGl 

Switch  FLAGWRD2  bit  8 (XDELVFLG)  to  0 
Return  via  NORMEX 
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Quantities  in  Computations 

ACTCENT:  Double  precision  central  angle  between  active  smd  passive 
vehicles,  scaled  BO  in  units  of  revolutions. 

ATIGINC:  Double  precision  time  between  midcoiurse  burn  targeting  by 
the  active  vehicle  and  TIG,  scaled  B28  in  units  of  centiseconds. 

Part  of  the  erasable  load. 

CENTANG:  Double  precision  central  angle  between  the  passive  vehicle’s 
position  at  TIG  and  at  intercept,  scaled  BO  in  units  of  revolutions. 

CNAHGL:  Double  precision  central  angle  of  a cone  around  -RINIT,  scaled 
BO  in  units  of  revolutions.  Target  vectors  within  this  cone  are  pro- 
jected into  the  orbital  plane  of  the  active  vehicle  because  of  the 
sensitivity  of  the  transfer  plane  orientation  to  a change  in  RTARG 
when  RTARG  is  close  to  -RINIT. 

C0ZY4:  Value  used  by  "INITVEL"  to  determine  if  the  original  target 
position  vector  falls  within  the  cone  specified  by  CNANGL.  Scaled 
62  and  vuiitless. 

CSTH;  See  CONG  section. 

DELEL,  DELELO:  Double  precision  present  and  previous  Increments  to 
ELEV  during  the  TPI-time/elevation-angle  iteration,  scaled  BO 
in  \jnits  of  revolutions. 

DELLT4:  Double  precision  maneuver  transfer  time,  scaled  B28  in  units 
of  centiseconds. 

DELTEE,  DELTEEO:  Double  precision  increment  to  NOMTPI  during  the 
TPI-time/elevation-angle  iteration,  scaled  B28  in  units  of 
centiseconds. 

DELVEET3:  Double  precision  velocity-to-be-galned  vector,  scaled  B7  in 
units  of  meters  per  centisecond.  Calculated  by  the  "INITVEL"  routine. 

DELVLVC:  See  TRGX  section. 

DELVSIN:  See  TRGX  section. 

DELVTPF:  Double  precision  magnitude  of  the  velocity  to  be  gained  in 
the  final  rendezvous  maneuvers  of  the  terminal  phase,  scaled  B7  in 
units  of  meters  per  centisecond. 

DELVTPI:  Double  precision  magnitude  of  velocity  to  be  gained,  as 
calculated  by  P34-P74.  Scaled  B7  in  units  of  meters  per 
centisecond. 
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DVLOS:  Double  precision  velocity-to-be-gained  vector,  scaled  B7  in  units 
of  meters  per  centisecond  and  expressed  in  ”line-of-sight" 
coordinates.  (See  "S34/35.3"  for  definition  of  "line-of-sight" 
coordinates . ) 

ELEV;  Double  precision  elevation  suigle  of  the  line-of-sight  to  the 
passive  vehicle;  measured  from  the  vector  which  is  perpendicular 
to  the  active  vehicle  position  vector,  perpendicular  to  RACT  * ^ASS, 
and  whose  dot  product  with  the  active  vehicle  velocity  vector  is 
positive.  An  angle  between  0 and  1 (0  and  360  degrees)  scaled  BO 
in  units  of  revolutions.  ELEV  is  greater  thsin  (180  degrees)  if 
the  passive  vehicle  is  below  the  active  vehicle's  local  horizontal. 
ELEV  is  an  astronaut  input  in  P32-72  and  an  optional  input  in  P34-74. 

GDTd2:  A temporary  storage  location  for  DELVLVC.  If  DELVLVC  is  over- 
written by  the  astronaut,  the  previous  value  of  DELVLVC  will 
still  be  in  GDTd2,  thus  making  possible  a program  comparison  of 
the  two  values,  and  detection  of  the  astronaut  overwrite. 

GEOMSGN;  Single  precision  flag  to  assiire  that  a unit  normal  vector 
computed  in  "GEOM"  will  have  the  same  relation  to  the  orbital 
plane  of  the  active  vehicle  as  UN  will  have  when  computed  in  "INITVEL". 

INTIME:  Double  precision  time-tag  associated  with  RINIT  and  VINIT, 
scaled  B28  in  units  of  centiseconds. 

ITCTR;  Single  precision  coimter  measuring  the  number  of  Iterations 
through  the  loop  which  biased  a Lambert  target  vector  to  achieve 
a more  accurate  estimate  of  velocity  required,  based  on  precision 
integration  of  the  biased  conic  solution. 

ITERCTR:  See  CONG  section. 

K:130DEG:  Double  precision  constant  stored  as  0.3611111111,  scaled  BO 
in  units  of  revolutions.  Equation  value:  0.3611111111. 

K:ELEPS:  Double  precision  constant  stored  as  0.27777777  x 10”^, 

scaled  BO  in  units  of  revolutions.  Equation  value:  0.00027777777. 
(Equivalent  to  0.1  degrees.) 

K:EPSF0UR:  Double  precision  constant  stored  as  0.0416666666,  scaled 
BO  in  units  of  revolutions.  Equation  value:  0.0416666666. 

(Equivalent  to  15  degrees.) 

K:MAX250:  Double  precision  constant  stored  as  25000  x 2 , scaled 

B28  in  units  of  centiseconds.  Equation  value:  25000. 

K:MUq:  See  ORBI  section. 

K:MUTABLE:  See  CONG  section. 


TRGL  - 13 


K:TWOPI:  Double  precision  constant  stored  as  6.283185307  x 2 
scaled  B4  and  unitless.  Equation  value:  6.283185307. 

MUASTEER:  Equal  to  MUE,  but  rescaled  to  B42  (earth)  or  B36  (moon). 

MUdA;  Ratio  of  gravitational  constant  (MUE)  to  semi -major  axis. 
Scaled  B14  (earth)  or  BIO  (moon). 

MUDEX:  See  CONG  section. 

MUE:  See  TRGZ  section. 

NN:  See  TRGX  section. 

NOMTPI:  Double  precision  iterative  addition  to  TTPI,  scaled  B28 
in  units  of  centiseconds. 

NORMEX:  Single  precision  octal  return  address  storage. 

POSTTPI:  Double  precision  perigee  altitude,  calculated  in  P34-74, 
scaled  B29  in  units  of  meters. 

PTIGINC:  Double  precision  time  between  midcourse  burn  targeting  by 
the  passive  vehicle  and  TIG,  scaled  B28  in  units  of  centiseconds. 
Part  of  the  erasable  load. 

Rl:  See  CONG  section. 

RIVEG,  R2VEC:  See  GONG  section. 

RAGT3,  VAGT3:  Double  precision  position  and  velocity  vectors  of  the 
active  vehicle  prior  to  a particular  burn,  scaled  B29  and  B7 
respectively  in  units  of  meters  and  meters  per  centisecond. 

Both  vectors  are  also  used  as  temporary  storage  for  intermediate 
active  vehicle  position  and  velocity  vectors. 

RAPREG,  VAPREG,  RPPREC,  VPPREG:  Double  precision  vector  storage 
for  RAGT3,  VAGT3  and  ^ASS3,  VPASS3  as  they  were  at  entry  to 
”333734.1".'’ 

MTT,  VATT:  See  ORBI  section. 

^V,  VGV:  See  GONG  section. 

RdA:  See  GONG  section. 

RINIT,  VINIT:  Double  preelsion  active  vehicle  position  and  velocity 
vectors,  scaled  B29  and  B7  respectively  in  units  of  meters  and 
meters  per  centisecond.  Rescaled  at  the  beginning  of  "INITVEL" 
t®  B27  and  B5  respectively  if  the  GSM  is  within  the  moon's 
sphere  of  Influence. 
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RPASSSj  TOASS3  : Double  precision  position  and  velocity  vectors  of 
the  passive  vehicle  prior  to  a particular  burn,  scaled  B29  and 
BY  in  units  of  meters  and  meters  per  centisecond  respectively. 

Both  vectors  are  also  used  as  temporary  storage  for  intermediate 
passive  vehicle  position  and  velocity  vectors. 

RTARG:  Target  position  vector  input  to  "INITVEL".  Scaled  B29  in 
units  of  meters.  Upon  exit,  "INITVEL"  loads  RTARG  with  the 
biased  target  position  vector,  if  such  a biased  vector  is  calculated 

RTARGl:  Value  of  RTARG  used  within  "INITVEL",  scaled  B29  (earth) 
or  B27  (moon),  in  units  of  meters. 

RTMAG:  Magnitude  of  RTARGl,  scaled  B29  (earth)  or  B27  (moon),  in  units 
of  meters . . 

RVEC,  WEC:  See  CONG  section. 

SECMA.X:  Double  precision  maximum  limit  on  changes  to  NOMTPI, 
scaled  B28  in  units  of  centiseconds . 

SNTH:  See  CONG  section. 

SUBEXIT:  Single  precision  octal  return  address  storage. 

T:  See  GONG  section. 

TDEGl:  See  ORBI  section. 

TDESIRED:  See  GONG  section. 

TET:  See  ORBI  section. 

TIG:  See  BURN  section. 

TIMENOW:  See  EXVB  section. 

TITER:  Single  precision  iteration  counter. 

TK:  Double  precision  time  between  the  initiation  of  P35-75  and 

the  ignition  of  a midcourse  correction  burn,  scaled  B28  in  units 
of  centiseconds.  Program  notation  is  "KT". 

TPASS4:  Double  precision  scheduled  time  of  target  intercept, 
scaled  B28  in  units  of  centiseconds. 

TSTRT:  Double  precision  time  of  initiation  of  P35-755  scaled  B28 
in  units  of  centiseconds. 

TTPI:  Double  precision  time  of  terminal  phase  initiation,  scaled 
B28  in  units  of  centiseconds;  an  astronaut  input  in  P.32-72  and 
P34-74. 
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ULOS:  Double  precision  unit  vector  along  the  line-of-sight  vector, 
scaled  B1  and  unitless. 

_yN:  Double  precision  unit  vector  perpendicular  to  the  active 
vehicle  orbital  plane,  scaled  B1  euid  unitless. 

MRM:  Double  precision  unit  vector  perpendicular  to  the  active 
vehicle  orbital  plane,  scaled  B1  and  unitless. 

A unit  vector  perpendicular  to  ^CT3  and  perpendicular  to 
MCT3  * UIXDS,  whose  dot  product  with  ULOS  is  positive,  scaled 
B1  and  unitless. 

VIPRIME:  Double  precision  velocity  vector  computed  by  the  Lambert 
routine  at  the  time  INTIME.  Scaled  B7  in  units  of  meters  per 
centisecond. 

VPASS4:  Double  precision  velocity  vector  of  the  passive  vehicle 

at  the  time  of  target  intercept.  Scaled  B7  in  units  of  meters  per 
centisecond. 

VTARGET:  See  CONG  section. 

VTARGTAG:  Single  precision  cell,  scaled  B14,  which  specifies  the 
number  of  iterations  through  the  LAMBERT/INTEGRVS  routines.  If 
VTARGTAG  = 0,  "LAMBERT"  is  performed  to  obtain  Initial  and  final 
velocity  vectors,  and  "INTEGRVS"  is  not  entered.  If  VTARGTAG  >■  0, 
"INTEGRVS"  output  is  used  to  bias  the  target  position  vector 
in  order  to  obtain  a more  accurate  "LAMBERT"  solution. 

VTPRIME:  Double  precision  velocity  vector,  equal  to  VTARGET, 

which  is  calculated  in  the  "INITVEL"  routine.  Scaled  B7  in  units 
of  meters  per  centisecond. 

XI:  Index  register  1. 
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TRGX 


Targeting  - External  Delta-V 


Switch  FLAGWRDl  bits  7 (UPDATFUS)  and  5 (TRACKFLG)  to  1 

Proceed  to  "GOFIASH"  with  TS  = K:V06N33  (TIG) 

(if  terminate,  proceed  to  "GOTOPOOH" ; if  proceed, 
continue  at  next  step;  other  response,  repeat  this  step.) 

Proceed  to  "GOFIASH"  with  TS  = K:V06n81  (DELVLVC) 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  other  response,  repeat  this  step.) 

Switch  FIAGWRDl  bit  7 (UPIATFLG)  to  0 

Perform  "S30.1" 

Switch  FIAGWRDl  bit  7 (UPDA.TFLG)  to  1 

Switch  FLAGWRD2  bit  8 (XDELVFLG)  to  1 

Proceed  to  "GOFIASH"  with  TS  = K:V06N42  (HAPO,  HPER,  DELVSAB) 
(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  other  response,  repeat  this  step.) 

Switch  FIAGWRD2  bit  6 (FINA.LFLG)  to  1 
Perform  "VNl645" 

Go  back  one  step 

Switch  FIAGWRD2  bit  5 (AVFIAG)  to  1 
Skip  next  step 

Switch  FIAGWRD2  bit  5 (AVFIAG)  to  0 
CENTANG  = 0 


Switch  FIAGWRDl  bits  5 (TRACKFLG)  and  7 (UPDATFLG)  to  1 
NN  = 0 (least  significant  half  only) 

TCSI  = 0 

VN0611  Proceed  to  "GOFIASH"  with  TS  = K:V06N11  (TCSI) 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step;  other  response,  repeat 
this  step.) 

If  - (TCSI)  <0: 

Proceed  to  "VN0655" 
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TDECl  = TETLEM 


Perform  "PEECSET" 

RVEC  = RACT3 
WEC  = VACT3 

Switch  FLAGWRD7  bit  9 (RVSW)  to  1 
RDESIRED  = K:posmaxdp 

Perform  "TIMERAD"  (compute  time  to  apogee) 

TCSI  = T + TDEC2 
Proceed  to  "VNO6II" 

VN0655  Proceed  to  "GOFUSH"  with  TS  = K:V06N55  (NN,  ELEV,  CENTANG) 
(if  terminate,  proceed  to  "GOTOPOOH" ; if  proceed, 
continue  at  next  step;  other  response,  repeat  this 
step.) 

\ 

Proceed  to  "GOFLASH"  with  TS  = K:V06N37  (TTPI) 

' (if  terminate,  proceed  to  "GOTOPOOH";  if  proceed, 

continue  at  next  step;  other  response,  repeat  this 
step. ) 

TIG  = TCSI 

Perform  "SELECTMU".  (switches  FINALFLG  to  O) 

Perform  "VN1645"  (switches  UPDATFLG  to  O) 

P32/P72B  Perform  "ADVANCE"  (advances  LM  and  GSM  vectors  to  TIG, 

sets  XDELVFLG) 

Perform  "INTINT"  with  TSv  ^ WASSl,  TSr  = mSSl,  TSo  = TCSI, 
TSt  = TTPI,  and.TSintyp  = KiTWOPI 

RPASS3  = MTT 

VPASS3  = VATT 

Proceed  to  ’’CSI/A" 

P32/P72C  If  FLAGWRD2  bit  6 (FINALFLG)  = 0: 

Switch  FLAGWRDl  bit  7 (UPDATFLG)  to  1 

Proceed  to  "P32/P72E" 
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P32/P72E  If  T1T0T2  > K:60MIN: 

T1T0T2  = T1T0T2  - K:60MIN 
Proceed  to  "P32/P72E" 
P32/P72F  If  T2TOT3  > K:60MIN: 

T2T0T3  = T2T0T3  - K:60MIN 
Proceed  to  "P32/P72F" 


Proceed  to  "GOFLASH"  with  TS  = K:V06N75  (DIFFALT,  T1T0T2,  T2T0T3) 
(If  terminate,  proceed  to  "GOTOPOOH’'j  if  proceed,  continue 
at  next  step;  other  response,  repeat  this  step.) 


r~  ^ 

- unitMCTl  ypi 

[lvcmatJ  = 

- UPl 

- unitMCTl 

DELVLVC  = [lVCMA'^  DELVEETl 


Proceed  to  "GOFUSH"  with  TS  = K:V06N81  (DELVLVC) 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  continue 
at  next  step;  other  response,  repeat  this  step.) 

DELVSIN  = [lVCMAt]  DELVLVC 

DELVSAB  = |pLVSIn| 


DELVEETl  = DELVSIN 


f* 

- unitMCT2  ^ UPl 

[lvcmatJ  = 

-UPl 

- imitRACT2 

DELVLVC  = [lVCMAt]  DELVEET2 


(MCTi  set  equal  to  RACT2) 


Proceed  to  "GOFLASH"  with  TS  = K:V06N82  (DELVLVC) 

(If  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  continue 
at  next  step;  other  response,  repeat  this  step.) 


TTPIO  = TTPI 

Perform  "VN1645"  (astronaut  recycle  or  finalize) 


Proceed  to  "P32/P72B" 
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m 

m 


P33/P73B 


Svritch  FLAGWRD2  bit  5 (AVFLAG)  to  1 
Skip  next  step 

Switch  FLAGWRD2  bit  5 (AVFLAG)  to  0 

Switch  FLAGWRDl  bits  5 (TRACKFLG)  and  7 (UPDATFLG)  to  1 

Proceed  to  "GOFLASH"  with  TS  = K;V06n13  (TCDH) 

terminate,  proceed  to  "GOTOPOOH";  if  proceed,  continue 
at  next  step;  other  response,  repeat  this  step.) 

TTPI  = TTPIO 

TIG  - TCDH 

Perform  "SELECTMU"  (switches  FINALFLG  to  0) 

Perform  "VN1645"  (switches  UPDATFLG  to  0) 

Perform  "ADVANCE"  (D1  and  CSM  vectors  to  TIG,  set  XDELVFLG) 
Perform  "CDHMVR" 

Perform  "INTINT"  with  TSv  = VACT3,  TSr  = RACT2,  TSo  = TCDH, 

TSt  = TTPI, and  TSintyp  = 0 

RACT3  - RATT 

VACT3  = VATT 

Perform  "INTINT"  with  TSv  = VPASS2,  TSr  = ^ASS2,  TSo  = TCDH, 
TSt  - TTPI  ,and  TSintyp  = 0 

RPASS3  =-  RATT 

VPASS3  - VATT 

Switch  FLAGWRD7  bit  15,  ( ITSWICil)  to  1 
NOMTPI  = 0 

Perfonn  "S33/34*l"  (get  transfer  time  to  TPI) 

If  TSnosol  / 0:  (no  solution) 

Perform  "ALARM"  with  TS  = 006llg 
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(if  no  solution) 


Proceed  to  "GOFLASH"  with  TS  = K:V05N09 

(if  terminate j proceed  to  "GOTOPOOH";  if  proceed, 
continue  at  next  step:  other  response,  proceed  to 
second  step  of  "P73".) 

NOMTPI  = 0 . 

If  FLAGWRD2  bit  6 (FINALFLG)  =0; 

Switch  FLAGWRDl  bit  7 (UPDATFLG)  to  1 
TTPI  = TTPI  + NOMTPI 
T1T0T2  = TTPI  - TCDH' 

P33/P73E  If  T1T0T2  > K:60MIN; 

T1T0T2  = T1T0T2  - K:60MIN 

Proceed  to  "P33/P73E" 


T2T0T3  = TTPI  - TTPIO 
P33/P73F  If  1T2T0T31  > K;60MIN; 

T2T0T3  = T2T0T3  - K:60MIN  signT2T0T3 
Proceed  to  "P33/P73F" 


Proceed  to  "GOFLASH"  with  TS  = K:V06N75  (DIFFALT,  T1T0T2,  T2T0T3) 
(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  continue 
at  next  step;  other  response,  repeat  this  step.) 


[LVCMATj  = 


■-unltRACTl  * UPl 
-UPl 

-unitRACTl 


DELVLVC  = [LVCMATj  DELVEET2 

Proceed  to  "GOFLASH"  with  TS  = K;V06N81  (DELVLVC) 

(if  terminate,  proceed  to  'KIOTOPOOH";  if  proceed,  continue 
at  next  step;  other  response,  repeat  this  step.) 

DELVSIN  = [LVCMAT]’^  DELVLVC 

DSLVSAB  = 1 DELVSIN  1 


DELVEET2  = DELVSIN 
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Perform  "VN1645"  (astronaut  recycle  or  finalize) 

Proceed  to  "P33/P73B’' 

SELECTMU  MUDEX  = 0 

If  FLAGWRD8  bit  12  (CMOONFLG)  = 1,  MUDEX  = 8 
i = MUDEX  + 6 
RQdMU  = KtMUTABLEj^ 

MJE  “ Ks  MUTABLE^ ^2^ 

If  FLAGWRD8  bit  12  (CMOONFLG)  = 1,  rescale  MUE  (sr6) 

Switch  FLAGWED2  Oit  6 (FINALFLG)  to  0 
Return 

VN1645  SUBEXIT  = return  address 
pMGA  = K:DPmp01 

If  FLAGWRD2  bit  6 (FINALFLG)  = 1: 
pMGA  = 2 K:DPmp01 

If  FLAGWRD3  bit  13  (REFSMFLG)  = 1 and  MODRBG  64: 

Perform  "GET+MGA"  with  TS  = DELVSIN 
Perform  "COMPTGO" 

Delay  1 second  (via  "DELAYJOB") 

Proceed  to  "GOFLASH"  with  TS  = K:Vl6N45  (TRKMKCNT,  TTOGO,  pMGA) 
(If  terminate,  contine  at  next  step;  if  proceed,  proceed,  to 
"N45PR0C";  other  response,  proceed  to  "CLUPDATE". ) 

DISPDEX  - Z (to  stop  computation  of  TTOGO) 

Proceed  to  "GOTOPOOH" 

NA5PROC  If  FLAGWRD2  bit  6 (FINALFLG)  = 1: 

DISPDEX  = Z 
Proceed  to  "GOTOPOOH" 
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CLUPDATfl 


S30.1 


ADVANCE 


Switch  FLACWRD2  bit  6 (FINALFLG)  to  1 
DISPDEX  = Z 

Switch  FLAGWRDl  bit  7 (UPDATFLG)  to  0 

Return  via  SUBEXIT 

QTEMP  = return  address 

TDECl  = TIG 

Perform  "LEMPREC" 


RTIG  = mT 


VTIG  = VATT 


[LVCMATj  = 


■-unit (VTIG  * miG)  ^ unitKIG 
unit  (VTIG  » RTIG) 

_-unltRriG 


DELVSIN  = DELVLVC  [LVCMAT] 
DELVSAB  = I DELVSIN 1 


TSr  = RTIG 

TSv  = VTIG  + DELVSIN 
Perform  "PERIAPOl” 

HPER  = TShp  (perlcenter  altitude) 
If  HPER  > K:MAXNM: 


HPER  = KzMAXNM 

HAPO  = TSha  (apocenter  altitude) 
If  HAPO  > K:MAXNM: 

HAPO  = K:MAXNM 
Return  via  QTEMP 
SUBEXIT  = return  address 
TDECl  = TIG 
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Perform  "PRECSET" 


PRECSET 


Switch  FLAGWRD2  bit  8 (XDELVFLG)  to  1 

VPASS2  = VPASS3 

VPASSl  = VPASS3 

^ASS2  = WASS3 

^ASSl  = ^ASS3 

UPl  = unit  (unit^ASSl  ^ VPASSl) 
raiG  = ^CT3 

MCT2  = lMCT3l  unit(RACT3  - (MCT3  • UPl)  UPl) 
MCTl  = RACT2 
VTIG  = VACT3 

VACT2  ^ lVACT3|  unit(VACT3  - (VACT3  • FD  UPl) 

VACTl  = VACT2 

Return  via  SUBMIT 

NORMEX  = return  address 

TDEt32  - TDECl 

Perfom  "LEMPREC" 

If  FLAGWRD2  bit  5 (AVFLAG)  = 1: 

MCI  3 = RATT 
VACT3  ■=  VATT  . 

If  FLAGWRD2  bit  5 (AVFLAG)  = 0; 

FASS3  = MTT 
VPASS3  = VATT 
TDECl  = TDEC2 
Perform  "CSMPREC" 
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If  FLAGWRD2  bit  5 (AVFLAG)  = 1; 

RPASS3  = 

VPASS3  = VATT 

If  FLAGWRD2  bit  5 (AVFLAG)  =0; 

MCT3  = RATT 
VACT3  = VATT 
Return  via  NOHMEX 
INTINT  RTRN  = return  address 
Perform  "INTSTALL" 

Switch  FLAGWRD3  bit  4 (INTYPFLG)  to  0 

If  TSintyp  ^ 0,  Switch  FLAGWRD3  bit  4 to  1 (conic  integration) 
TDECl  = TSt 

Switch  FLAGWRDO  bit  12  (MOONFLAG)  to  1 

If  FLAGWRD8  bit  12  (CMOONFLG)  = 0,  Switch  FLASWRDO  bit  12  to  0 

TET  = TSo 

RCV  = TSr 

VCV  = TSv 

Perform  "INTEIRVS" 

Return  via  RTRN 

CDHMVR  SUBEXIT  = return  address 
UNVEG  = unitMCT2 
CSTH  = unit^ASS2  * UNVEC 
TS  = - ^CT2  * ^ASS2  • UPl 
SNTH  = - CSTH^  signTS 

WEC  = VPASS2 
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CSI/A 


CSI/B 


C3I/B1 


CSI/B2 


WEC  = J^ASS2 

Switch  FLAGWRD7  bit  9 (R\rSM)  to  0 
Perform  "TIMETHET" 

DIFFALT  = |TSrl  - 1MCT21 
SMALLA  = R1  / RdA 


TSa  = (TSv  • IMfEC) 


SMALLA 

SMALLA  - DIFFALT 


/2  MUE  ' MOE  „„  2 

TSb  = ViRACT2|  “ SMALLA  - DIFFALT  " 

VACT3  = TSa  UNVEC  + TSb  anit(UPl  ^ UNVEC) 

DELVEET2  = VACT3  - VACT2 


Return  via  SUBEXIT 

Switch  FLAGWRD6  bits  12  (S32.IF3B)  and  14  (S32.1F2)  to  1 
Switch  FLAGWRD6  bits  13  (S32.1F3A)  and  15  (S32.1F1)  to  0 
LOOPCT  = 0 
CSIALRM  = 0 

TS  = jMCTll  (1  + [MCTlj  / 1RPASS31) 

TS  = V2  MUE  / IS 

DELVCSI  = TS  - unit(UPl  unitMCTl)  • VACTl 
DELDV  = KtINITST 
LOOPCT  = LOOPCT  + 1 


If  LOOPCT  > KrLOOPMX,  proceed  to  "SCNDSOL"  with  TSsp  = 6 


If  1 DELVCSI 1 > KtDVMAXl; 

If  FLAGWRD6  bit  15  (S32.1F1)  = 1 or  if  FLAGWRD6  bits 
12  (S32.1F3B)  and  13  (S32.ir3A)  both  equal  1,  proceed 
to  "SCNDSOL"  with  TSsp  = 7 

Switch  FL^WRD6  bit  15  (S32.1F1)  to  1 
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(If  |DELVCSl|  > KtDVMAXl) 

DELVCSI  = K:DVMAX2  signDELVCSI 
DELVEETl  = DELVCSI  unit(UPl  * unitMCTl) 

VACT4  = VACTl  + DELVEETl  (ignoring  overflow  if  any) 
WEC  = VACT4 
OTEC  = RACTl 

Switch  FLAGWRD7  bit  9 (WSW)  to  1 
SNTH  = K.;SN359+ 

CSTH  = K;CS359+ 

Perform  "TIMETHET" 

HAFPAl  =.T/  2 
Perform  "PERIAPO" 

POSTCSI  = TShp 

If  CENTANG  7^  0,  proceed  to  "CIRCL" 

If  ECC  < KtONETHTH,  proceed  to  "CIRCL" 

If  (j^ACTl  • VACT41  / Rl)  < KtNICKELDP,  proceed  to  "CIRCL" 

TScs  = P - 1 

TS  = </P  Rl  RTldMU  / Rl 

If  FLAGWRD8  bit  12  (CMOONFLG)  = 1,  rescale  TS  (3I3) 
RDOTV  = RACTl  • VACT4 
TSsn  = 1 RDOTV  1 TS 
TSden  = V^Scs^  + TSsn^ 

SNTH  = TSsn  / TSden 
CSTH  = TScs  / TSden 
VVEC  = -VACT4  signRDOTV 
mEG  = MCTl 
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Switch  FLAGWRD7  bit  9 (HVSW)  to  1 
Perform  "TIMETHET" 

If  BDDTJ  < 0;  TCDH  = NN  HAFPAl  - HAFPAl  + T + TCSI 
If  RDOTV  > 0,  TCDH  = TCSI  + M HAFPAl  - T 
Skip  next  step 

CIRGL  TCDH  = TCSI  + NN  HAFPAl 

If  TTPI  < TCDH,  proceed  to  "SCNDSOL"  with  TSgp  = 5 

Perform  "INTINT"  with  TSv  = VACT4,  TSr  ^ ^CTl,  TSo  = TCSI, 
TSt  = TCDH,  and  TSintyp”=  K:TW0PI 

MCT2  = ^T 

VACT2  = VATT 

Perform  "INTINT"  with  TSy  = VPASSl,  TSr  = ^ASSl,  TSo  = TCSI, 
TSt  = TCDH,  and  TSintyp“=  K;TW0PI 

^ASS2  = ^T 

VPASS2  = VATT 

Perform  "CDHMVR" 

TSr  = MCT2 

TSv  = VACT3 

Perform  "PERIAPOl" 

POSTCDH  = TShp 

Perform  "INTINT"  with  TSv  = VACT3,  TSr  = RACT2,  TSo  = TCDH, 
TSt  = TTPI,  and  TSintyp  = KrTWOPI 

MCr3  = ^T 

VACT3  = VATT 

TSu  = cosELEV  ianit(UPl  * unit^CT3)  + sinELEV  unitMCT3 
TSrsin  = TSu  • MCT3 

TS  = ^ASS3  • RPASS3  - MCT3  » MCT3  + TSrsin^ 
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If  TS  < 0: 


If  LOOPCT  =1; 

CSIALRM  = 1 
Proceed  to  "ALMXIT" 

(If  TS  < 0) 

DSLDV  = DELDV  / 2 
D3LVCSI  = DVPREV  - DELDV 
Proceed  to  "CSl/Bl" 

TSk2  = -T  Sr  sin  - 
TSkl  = -TSrsln  + 

TS  = TSk2, 

If  lTSk2l  > jTSkll,  TS  = TSkl 
ipiPESTIM  = unlt(^CT3  + TS  TSu) 

TS  = (unit^ASS3  URPESriM)  • (uaitVPASS3  * unit^ASS3) 
GAMP32  = arccosCURPESTIM  • unitRPASS3)  signTS 
If  FLAGWRD6  bit  U (S32.1F2)  = 1,  proceed  to  "FRSTPAS" 
TSslope  = (GAMP32  - GAMPREV)  / (DELVCSI  - DVPREV) 

DVPREV  = DELVCSI 

If  FLAGWRD6  bits  12  (S32.1F3B)  and  13  (S32.1F3A)  are  both  1: 
TS  = GAMPREV  (GAMP32  - GAMPREV) 

If  TS  > 0,  proceed  to  "FIFTYFPS" 

DELDV  = K:INITST  sign  DELDV 
Switch  FLAGWRD6  bit  13  (S32.1F3A)  to  1 
Switch  FLAGWRD6  bit  12  (S32.1F3B)  to  0 
Proceed  to  "FRSTPAS" 


THGX  - 13 


If  FLAGWRDe  bits  12  (S32.1F3B)  and  13  (S32.1F3A)  are  both 
0,  proceed  to  "FIFTYFPS" 

DfiLDV  = GAMP32  / TSslope 

GAMPREV  = GAMP32 

If  [DELDVl  < K:EPSILN1,  proceed  to  "CSl/SOL" 

If  IDELDVj  > KtDELMAXl,  DELDV  = K:DELMAX1  signDELDV 
DELVCSI  = DELVCSI  - DELDV 
Proceed  to  "CSl/Bl" 

FRSTPAS  GAMPREV  = GAMP32 
DVPREV  = DELVCSI 
DELVCSI  = DELVCSI  - DELDV 
Switch  FLAGWRD6  bit  U (S32.1F2)  to  0 
Proceed  to  "CSl/Bl" 

FIFTYFPS  DELDV  = KrFIFPSDP  sigtiTSslope  signGAMPREV 
DELVCSI  = DELVCSI  - DELDV 
GAMPREV  = GAMP32 

Switch  FLAGWRD6  bits  12  (S32.1F3B)  and  13  (S32.1F3A)  to  1 
Proceed  to  "CSI/B2" 

SCNDSOL  If  FLAGWRD6  bit  12  (S32.1F3B)  = 0 or  bit  13  (S32.1F3A)  = 1: 

Proceed  to  "ALMXIT" 

CSIALRM  = TSsp 

Switch  FLAGWRD6  bits  12  (S32.1F3B),  13  (S32.1F3A),  and  15  (S32.1F1) 
to  0 

Switch  FLAGWRD6  bit  14  (S32.1F2)  to  1 
LOOPCr  = 0 
Proceed  to  "CSI/B" 
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ALMXIT  TS  = 03600g  + CSIALRM  - 1 (l.e.,  006058  if  CSIALRM  = 6) 


Perfom  "VARALAM" 

Proceed  to  "GOFLASH"  with  TS  = K:V05N09 

(if  terminate,  proceed  to  "GOTOPOOH";  if  proceed,  repeat 
this  step;  other  response,  continue  at  next  step.) 

Proceed  to  third  step  of  "P72" 

CSI/SOL  i = MUDEK 

If  POSTCSI  < K:PMINj^,  proceed  to  "SCNDSOL"  with  TSsp  = 2 
If  POSTCDH  < K:PMINi.,  proceed  to  "SCNDSOL"  with  TSsp  = 3 
T1T0T2  = TCDH  - TCSI 

If  T1T0T2  < K:TMIN,  proceed  to  "SCNDSOL"  with  TSsp  = 4 
T2TOT3  - TTPI  - TCDH 

If  T2T0T3  < K;TMIN,  proceed  to  "SCNDSOL"  with  TSsp  = 5 


Proceed  to  "P32/P72C" 


GET.LVC  DELVLVC  = 


■ unite  (RINIT  ^ VINIT)  RINIT) 
-unit(RINIT  * VINIT) 

-unitRINIT 


TS 


Switch  FLAGWRD5  bit  2 (MGLVFLAG)  to  1 
Return 


Gfil+MGA  IGAX  = (REFSMMAT21,  RSFSMJdAr22,  REFSMMAT23) 
pMGA  = arcsin(unitTS  • IGAX) 

If  pMGA  < 0,  pMGA  = 1 + pMGA 

Switch  FLAGWRD5  bit  2 (MGLVFLAG)  to  0 

Return 
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Quantities  in  Computations 


CENTANG:  See  TRGL  section. 

CSIALRM:  Single  precision  decimal  number  that  is  converted  to  octal  and 
added  to  00577g  to  be  displayed  to  indicate  any  failure  in  the  CSI 
targeting  iteration. 

CSTH:  See  CONG  section. 

DELDV:  Double  precision  increment  to  DELVCSI  in  one  CSI  iteration,  scaled 
B7  in  units  of  meters  per  centisecond. 

DELVCSI : Double  precision  magnitude  of  velocity  bo  be  gained  during  the 
CSI  bum,  scaled  B7  in  units  of  meters  per  centisecond. 

D^ELVEETl : Double  precision  vector  corresponding  to  the  velocity-to-be- 
gained  vector  for  the  CSI  burn,  scaled  B7  in  \mits  of  meters  per  centi- 
second. Parallel  to  the  orbital  plane  of  the  passive  vehicle  and 

perpendicular  to  the  active  vehicle  position  vector  at  TCSI. 

D^ELVEET2:  Double  precision  vector  corresponding  to  the  velocity-to-be- 
gained  vector  for  the  CDH  burn,  scaled  B7  in  units  of  meters  per  centi- 
second. Parallel  to  the  orbital  plane  of  the  passive  vehicle. 

DELVLVC:  Double  precision  velocity  vector  expressed  in  local  vertical 
coordinates,  scaled  B7  in  xmits  of  meters  per  centisecond.  In  the 
local  vertical  coordinate  system,  X is  along  the  horizontal  component 
of  velocity,  Z points  toward  the  center  of  attraction,  and  Y completes 
a right-handed,  orthogonal  system. 

DELVSAB:  Double  precision  magnitude  of  velocity  to  be  gained  for  input 
to  the  thrusting  programs,  scaled  B7  in  \mits  of  meters  per  centisecond. 

DELVSIN:  Double  precision  velocity  vector  for  input  to  the  thrusting 
programs,  scaled  B7  in  units  of  meters  per  centisecond  and  expressed 
in  reference  coordinates. 

DIFFALT:  Double  precision  difference  of  passive  and  active  vehicle 

altitudes  at  the  time  of  CDH,  scaled  B29  in  units  of  meters;  negative 
if  the  passive  vehicle  is  below  the  active  vehicle  at  CDH,  and  displayed 
to  the  astronaut  during  P32-72  and  P33-73. 

DISPDEX:  See  BURN  section. 

DVPREV:  Previous  value  of  DELVCSI. 

ECC:  Double  precision  eccentricity,  scaled  B3  and  unitless. 

ELEV:  See  TRGL  section. 

GAMP32,  GAMPREV:  Double  precision  error  angle  (and  previous  value  of 
that  angle)  between  projected  rendezvous  point  and  desired  rendezvous 
point,  scaled  BO  in  units  of  revolutions. 
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HAFPAl : Double  precision  time  corresponding  to  half  of  a period  in  the 
post-CSI,  pre-CDH  orbit,  scaled  B28  in  units  of  centiseconds . 

HAPO,  HPER:  Double  precision  heights  above  the  earth  or  moon  at  apogee 
and  at  perigee  respectively,  scaled  B29  in  units  of  meters. 

IGAX;  Double  precision  unit  vector  along  the  inner  gimbal  axis,  scaled 
B1  and  expressed  in  reference  coordinates. 

K:60MIN:  Double  precision  constant  stored  as  360000  x 2 , scaled  B28 

in  units  of  centiseconds.  Equation  value:  360000. 

K:CS359+:  Double  precision  constant  stored  as  0.499999992,  scaled  B1 
and  unitless.  Equation  value:  0.999999984. 

_7 

K:DELMAX1:  Double  precision  constant  stored  as  0.6096000  x 2 , scaled 

B7  in  units  of  meters  per  centisecond.  Equation  value:  0.6096. 
(Equivalent  to  200  feet' per  second.) 

K:DPmp01:  Double  precision  constant  stored  as  77777g  6l337g,  scaled  BO 
in  units  of  revolutions.  Equation  value:  -0.455078125  X 2“^^. 
(Equivalent  to  - 0.01  degrees.) 

_7 

K:DVMAX1:  Double  precision  constant  stored  as  3.0480  x 2 , scaled  B7 

in  units  of  meters  per  centisecond.  Equation  value:  3-0480. 
(Equivalent  to  1000  fps.) 

-7 

K:DVMAX2:  Double  precision  constant  stored  as  3.014472  x 2 , scaled  B7 

in  units  of  meters  per  centisecond.  Equation  value:  3-014472. 
(Equivalent  to  989  fps . ) 

_7 

K:EPSILN1:  Double  precision  constant  stored  as  0.0003048  x 2 , scaled 

B7  in  units  of  meters  per  centisecond.  Equation  value:  O.OOO3O48. 
(Equivalent  to  0.1  fps.) 

-7 

K:FIFPSDP:  Double  precision  constant  stored  as  -0.152400  x 2 , scaled 

B7  in  units  of  meters  per  centisecond.  Equation  value:  -0.1524. 
(Equivalent  to  - 50  fps.) 

_7 

K:INITST:  Double  precision  constant  stored  as  O.O3048  x 2 , scaled  B7 

in  units  of  meters  per  centisecond.  Equation  value:  0.03048. 
(Equivalent  to  10  fps.) 

—28 

K:L00PMX:  Double  precision  constant  stored  as  I6  x 2 , scaled  B28  and 

unitless.  Equation  value:  I6. 

K:MA1NM:  See  EXV6  section. 

KiMUTABLEj^yjjg^:  See  CONG  section. 

K:NICKELDP:  Double  precision  constant  stored  as  0.021336  x 2 , 

scaled  B7  in, units  of  meters  per  centisecond.  Equation  value: 
0.021336.  (Equivalent  to  7.0  fps) 

_3 

K:0NETHTH;  Double  precision  constant  stored  as  0.0001  x 2 , 

scaled  B3  and  unitless.  Equation  value:  0.0001. 
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-29 

K:PMINq;  Double  precision  constant  stored  as  157420  x 2 , scaled  B29 

in  units  of  meters;  program  notation  PMINE.  Equation  value:  157420. 

—29 

K:PMINg!  Double  precision  constant  stored  as  10668  x 2 , scaled 

B29  in  units  of  meters;  program  notation  PMINM.  Equation  value:  10668. 

K:SN359t:  Double  precision  constant  stored  as  -0.000086601,  scaled 
B1  and  unitless.  Equation  value:  -0.000173202. 

—28 

K:TMIN;  Double  precision  constant  stored  as  60000  x 2 , scaled 

B28  in  units  of  centiseconds . Equation  value:  60000. 

K:TW0PI:  Double  precision  constant  stored  as  6.283185307  x 2~^,  scaled 
B4  and  unitless.  Equation  value:  6.283185307. 

LOOPCT:  Double  precision  Iteration  counter,  scaled  B28  and  unitless. 

[^LVCMATJ:  Double  precision,  3x3  transfomatlon  matrix  defined  such 
that  Alv  = flVCMATj  ^ef , where  A is  a vector  expressed  in  local 
vertical  and  reference  coordinates  respectively. 

MODREG:  See  DATA  section. 

MUDEX:  See  CONG  section. 

MUE:  Double  precision  gravitational  constant,  scaled  B36  in  imits  of 
meters  cubed  per  centisecond  squared. 

NN:  Double  precision  number  designating  the  apsidal  crossing  after 
CSI  at  which  the  CDH  burn  will  be  executed,  scaled  Bl4  and 
unitless.  (NN  = 1 Indicates  that  the  CDH  burn  will  be  executed 
at  the  first  apsidal  crossing  after  CSI.  ) NN  is  used  in  P34-74  and  P35 
-75  as  a flag  to  specify  precision  or  conic  integration.  In 
"334/35.2"  , it  is  used  to  set  VTARGTAG. 

NOMTPI : See  TRGL  section. 

N0RI4EX:  Single  precision  octal  return  address  storage. 

P:  See  CONC  section. 

pMGA:  Double  precision  middle  gimbal  associated  with  a desired  thrust 
direction,  scaled  BO  in  units  of  revolutions. 

POSTCDH:  Double  precision  height  above  the  earth  or  the  moon  at  the 
perigee  of  the  orbit  of  the  active  vehicle  after  the  CDH  burn, 
scaled  B29  in  units  of  meters. 

POSTCSI : Double  precision  height  above  the  earth  or  the  moon  at  the 

perigee  of  the  orbit  of  the  active  vehicle  after  the  CSI  bum,  scaled 
B29  in  units  of  meters. 

QTEMP:  Single  precision  octal  return  address  storage. 
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R1 : See  CONG  section. 


MCTl,  VACTl:  Double  precision  position  and  velocity  vectors  of 
the  active  vehicle  at  TCSI,  prior  to  the  CSI  burn,  scaled  B29 
and  B7  in  xinlts  of  meters  and  meters  per  centisecond  respectively; 
rotated  into  the  orbital  plane  of  the  passive  vehicle . 

MCT2,  VACT2:  Double  precision  position  and  velocity  vectors  of  the 
active  vehicle  at  TCDH,  prior  to  the  CDH  burn,  scaled  B29  and 
B7  in  units  of  meters  and  meters  per  centisecond  respectively; 
rotated  into  the  orbital  plane  of  the  passive  vehicle . 

MCT3,  VACT3:  See  TRGL  section. 

MTT,  VATT:  See  ORBI  section. 

RCV,  VCV;  See  CONG  section. 

RdA:  See  GONG  section. 

RDESIRB3):  See  GONG  section. 

FIDOTV:  Double  precision  dot  product  (fiAGTl  * YA-GT4)  scaled  B36  in 
units  of  meters  squared  per  centisecond. 

[REFSMMATJ  ; See  GOOR  section. 

RINIT,  VINIT:  See  TRGL  section. 

RPASSl,  VPASSl:  Double  precision  position  and  velocity  vectors  of  ■ 
the  passive  vehicle  at  TGSI,  scaled  B29  and  B7  in  units  of  meters 
and  meters  per  centisecond  respectively. 

^ASS2,  VPASS2;  Double  precision  position  and  velocity  vectors  of 
the  passive  vehicle  at  TGDH,  scaled  B29  and  B7  in  units  of  meters 
and  meters  per  centisecond  respectively. 

M’ASS3,  WASS3 : See  TRGL  section. 

RTldMU : Double  precision  storage  for  the  inverse  of  the  sqrare 
root  of  MUE,  scaled  B-17  (earth)  or  B-14  (moon)  in  units  of 
centiseconds/meters  to  tihe  three-halves  power. 

RTIG,  VTIG:  Double  precision  position  and  velocity  vectors  for 
input  to  the  thrusting  programs,  scaled  B29  and  B7  in  \mits  of 
meters  and  meters  per  centisecond. 

RTRN:  Single  precision  octal  return  address  storage. 

RVEG,  VVEG : See  GONG  section. 
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SMALLA;  Double  precision  semi -major  axis,  in  units  of  meters. 

SNTH:  See  CONG  section. 

SUBEXIT:  Single  precision  octal  return  address  storage. 

T:  See  CONG  section. 

T1T0T2 : Double  precision  transfer  time  between  CSI  and  GDH,  scaled  B28 
in  units  of  centlseconds ; displayed  to  the  astronaut  in  P32-P72. 

Transfer  time  between  GDH  and  TPI  when  displayed  to  the  astronaut  in 
P33-P73 . 

T2T0T3 : Double  precision  transfer  time  between  GDH  and  TPI  (P32-P72)  or 
time  difference  between  TTPI  in  P33  and  TTPI  used  in  P32  (displayed 
in  P33-P73);  scaled  B28  in  units  of  centlseconds. 

TCDH : Double  precision  time  of  ignition  of  the  GDH  burn,  scaled  B28 
in  units  of  centlseconds;  an  astronaut  input  in  P33-P73. 

TGSI:  Double  precision  time  of  ignition  of  the  GSI  burn,  scaled  B28  in 
imits  of  centlseconds.  It  may  be  either  an  astronaut  input  or 
computed  by  the  program. 

TDEGl:  See  ORBI  section. 

TDEG2:  Temporary  storage  for  TDEGl  to  assure  that  both  active  and 
passive  states  are  advanced  to  the  same  time. 

TET:  See  ORBI  section. 

TETLEM:  "Permanent"  time  value  for  the  LM  state  vector,  sca].ed  B28 
in  units  of  centlseconds. 

TIG:  See  BURN  section. 

TRKMKGNT:  See  RNAV  section. 

TTOGO;  See  BURN  section. 

TTPl : See  TRGL  section. 

TTPIO:  Double  precision  storage  for  TPI  time  used  in  P32-72  for  information 
in  P33-73,  scaled  B28  in  imlts  of  centlseconds. 

UPl:  Double  precision  imit  vector  perpendicular  to  the  orbital  plane 
of  the  passive  vehicle,  scaled  B1  and  unitless. 

UNVEG : Double  precision  unit  vector  along  RAGT2,  scaled  B1  and  \initless. 

U^RPESTIM:  A unit  vector  in  the  direction  of  the  passive  vehicle  position 
vector  that  would  satisfy  the  required  TPI  conditions,  derived  from 
the  estimate  of  DELVCSI. 
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VACT4:  Double  precision  velocity  vector  of  the  active  vehicle  at 
TCSI  after  the  addition  of  the  velocity  gained  in  the  CSI  bum, 
scaled  B7  in  -units  of  meters  per  centisecond. 

Z:  Z register,  or  program  counter.  Contains  address  of  the  next  step 
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TABLES 


Program  and  Routine  List 


Programs  Routines 


Number 

Title  in 

Page 

Number 

Title  in 

Page 

(GSOP) 

this  document 

(GSOP) 

this  document 

00 

POOH 

PGSR-6 

00 

GOTOPOOH 

PGSR-11 

06 

P06 

PGSR-13 

01 

ABCLOAD 

DATA-19 

07 

SYSTEST 

EXVB-10 

02 

R02B0TH 

IMUC-19 

12 

P12IM 

ASCT-1 

03 

DAPDATAl 

DAPB-19 

20 

PR0G20 

RNAV-1 

04 

R04 

EXVB-7 

21 

PR0G21 

RNAV-6 

05 

SBANDANT 

EXVB-27 

22 

PRDG22 

RNAV-1 

09 

R10,R11 

SERV-14 

25 

PR0G25 

RNAV-7 

10 

LAND  ISP 

SERV-15 

27 

V7xUPDAT 

EXVB-8' 

11 

R10,R11 

SERV-14 

30 

P30 

TRGX-1 

12 

MUNRETRN 

SERV-7 

32 

P32 

TRGX-1 

13 

LUNLAND 

•DESC-4 

33 

P33 

TRGX-4 

20 

RADAREAD 

RADR-19 

34 

P34 

TRGIr-1 

21 

R21LEM 

RNAV-13 

35 

P35 

TRGL-4 

22 

R22LEM 

RNAV-17 

40 

P40LM 

BURN-1 

23 

R23LEM 

RNAV-19 

41 

P41LM 

BURN-2 

24 

R24LEM 

RHAV-20 

42 

P42LM 

BURN-1 

25 

RRAUTCHK 

RADR-1 

47 

P47LM 

BURN-13 

26 

R21LEM4 

RNAV-14 

51 

P51 

ALIN-1 

29 

R29 

RNAV-31 

52 

PR0G52 

ALIN-14 

30 

V82CALL 

EXVB-17 

57 

P57 

ALIN-25 

31 

V83CALL 

EXVB-24 

63 

P63LM 

DESC-1 

33 

ALINTIME 

EXVB-6 . 

64 

STARTP64 

DESC-4 

36 

R36 

EXVB-26 

65 

P65START 

DESC-5 

40 

DVMON 

SERV-3 

66 

STARTP66 

DESC-11 

41 

MIDTOAVl 

ORBI-19 

68 

LANDJUNK 

DESC-18 

47 

AGSINIT 

EXVB-12 

70 

P70  or  P70A 

ASCT-3 

50 

CAL53A 

ALIN-18 

71 

P71  or  P71A 

ASCT-3 

51 

R51 

ALIN-19 

72 

P72 

TRGX-1 

52 

R52 

ALIN-21 

73 

P73 

TRGX-4 

53 

AOTMARK 

ALIN-3 

74 

P74 

TRGL-1 

54 

CHKSDATA 

ALIN-13 

75 

P75 

TRGL-4 

55 

R55 

ALIN-22 

76 

P76 

ORBI-23 

56 

TRMTRACK 

EXVB-6 

57 

MARKRUPT 

ALIN-6 

58 

PLANET 

ALIN-12 

59 

R59 

ALIN-30 

60 

R60LEM 

ATTM-1 

61 

R61LEM 

RNAV-10 

62 

R62DISP 

ATTM-U 

63 

V89CALL 

ATTM-11 

65 

R65LEM 

RNAV-10 

76 

TESTXACT 

EXVB-2 

77 

R77 

EXVB-9 
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The  foUowlisg  Is  an  Interpretation  of  the  list  of  nouns  that  are  used 
or  defined  in  the  LUMINARY  progran  (See  DATA  section).  Other  nouns 
are  either  illegal  or  meaningless  when  used  with  the  LUMINARY  program. 

The  list  includes  the  tag  assigned  to  the  components  of  each  noun 
(in  this  document)}  the  number  of  components  in  each  noun;  the  magnitude 
and  units  used  in  a decimal  displa7  of  each  noun;  the  section  in  which  each 
component  of  each  noun  is  defined;  and  an  indication  if  the  noun  is  a 
"no-load"  or  "decimal  onl7"  noun.  Routines  making  use  of  a noun  are  listed 
in  parentheses  under  the  above  Information. 

Special  Considerations: 

1.  The  1,  Y.and  Z components  of  a vector  quantlt7  are  dl8pla7ed  in  R1 -R3 
respectivsl7  with  the  same  scaling  and  units  for  each  componen't. 


2.  Single  component  nouns  appear  in  R1  onl7. 


Noun 

^ Comp. 

Def. 

m unlay 

Qgfflmen;^ 

00 

spare 

01 

3 — — .XHXX  without  regard 

to  scaling  or  units 
(0HWELL1,  0HWELL2,  SDISPLAY) 

Address 

supplied 

02 

3 

(UPVERIFY) 

— — — 

HXXY.  without  regard 
to  scaling  or  units 

Address  supplied 

03 

3 

(none) 

— 

ZZX.XZ  degrees 

Address 

supplied 

04 

DSPTEMl  1 
(GVBITER) 

DATA 

ZZX.ZZ  degrees 

05 

DSPTEMl  1 DATA 

(R22LEM,  CHESDATA) 

UI.XX  degrees 

06 

0PTI0N1  3 

0PTI0N2 

0PTI0N3 

(DSP0PTN,G0PERF4, 

DATA  Octal  01317 

DATA  Octal  onl7 

DATA  Octal  onl7 

GOPISffAR)  rjOPFr-F-P. 

Ofunmant 


Noun 

Tag 

Como. 

Def. 

Decimal  Disnlav 

07 

XREG 

3 

DATA 

Octal  only 

IREG 

DATA 

Octal  only 

ZREG 

DATA 

Octal  only 

(none) 

(See 

"ABCLOAD"  routine) 

When  used  with  verb  25, 
noun  7 le  used  to  switch  a 
specified  bit  or  bits  of  a 
flagword  or  channel.  In  that 
case,  ECADR  of  the  flagword 
or  channel  is  loaded  into 
XREG,  bits  to  be  changed  are  set 
in  IREG  (01004g  indicates  that 
bite  10  ^ -are  to  be 

switched),  ZREG  is  set  to  zero 
if  bits  are  to  be  reset,  non- 
zero if  bits  are  to  be  set. 


08 

ALMCADR-  3 

PGSR 

Octal  only 

almcadr!: 

ERCOUNT 
( none ) 

PGSR 

Octal  only 

TEST 

Octal  only 

09 

FAILREGf,  3 

PGSR 

Octal  only 

failreg: 

failreg' 

PGSR 

Octal  only 

PGSR 

Octal  only 

(used  whenever 

alarm  codes  are  displayed) 

10 

( none ) 

— 

Octal  only 

11 

TCSI  3 

(VN0611) 

TRG! 

00!!!.  hours 

000!!.  minutes 

0!!.!!  seconds 

12 

OPTION!  2 

E!VB 

Octal  only 

OPTION!! 
(VBCOARK,  V82Ci 

E!VB 

Octal  only 

RO4Z, 

V89CALL) 

13 

TCDH  3 

(P33,  P73) 

TRG! 

00!!!.  hours 

000!!.  minutes 

0!!.!!  seconds 

U 

DSPTEM!_  3 
DSPTEM!^ 
DSPTEMX2 
(none) 

DATA 

!!!!!.  without  regard 

DATA 

XXXXX.  to  scaling 

DATA 

XXXXX.  or  units 

Channel  to  be 
specified 

Decimal  only-  three 
components  must  be 
supplied 


Decimal  only-  three 
coipo)twnts  must  be 
supplied 
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Noun 

Tm.  Comp.  Daf. 

CnnmniTfc 

15 

1 Octal  onl7 

Increment  machine 

(none) 

address 

16 

DSPTEMI.  3 DATA  OOXH.  hours 

P OOOIZ.  minutes 

Decimal  only  - three 

components  must  be 

OIZ.IZ  seconds 

(AGSDISPK,  R36,  AGSVCALC) 

supplied 

17 

spare 

18 

FDAI  3 ATIM  XXX. n degrees 

rV89RECL,T0BALLA,  REDOMANC) 

19 

spare 

20 

CDU  3 IMUC  XXX. XX  degrees 

Tgicoahs,  VBZERO,  VBCOARK) 

21 

PIPA  3 IMUC  XXXXA.  pulses  for  each 

Inone) 

22 

THEXAD  3 IMUC  IXZ.IX  degrees 

tVBCOARK,  IMUATTCK,  P51 , R62DISP,  P52D,  INITBl) 

23 

spare 

24 

DSPIEMX.  3 data  OOXXX.  hours 

OOOU.  minutes 

Decimal  only-  three 

components  must  be 

OZI.ZX  seconds 

(ALINTIME) 

supplied 

25 

DSPTEMIf.  3 DATA  XXxXX.  without  regard 

DSPTEMI^  DATA  XZXZX.  to  scaling 

DSPXEMI^  DATA  ZZZZX.  or  units 

(GOPKRPt,  GOPERFIR,  R04X) 

26 

DSPTEMIq  3 DATA  Octal  only 

Used  to  load  address, 

DSPTEM1.  DATA  Octal  only 

DSPXKMl:  DATA  Octal  only 

bank  and  priority  or 

delay  Information  before 

(none?' 

a verb  30  or  verb  31 

27 

SMODE  1 TEST  XXXXX.  unitless 

(none) 

28 

spare 

7 


Noun 

Tag 

Como. 

Def. 

Decimal 

■ Display 

29 

spsnre 

30 

spare 

31 

spare 

32 

mTPER 

3 

EX7B 

oom. 

hours 

OOOXI. 

minutes 

(none) 

OH. XI 

seconds 

33 

TIG 

3 

BURN 

OOIXX. 

hours 

oooxx. 

minutes 

oil. IX 

seconds 

(P76,  P30, 

, ORBCHffiQ^  P12LM)'^F' 

2ixy 

34 

DSPTEM1 , 
dp 

3 

DATA 

OOIXX. 

hours 

OOOXI. 

minutes 

oxx.xx 

seconds 

(PR0G2P;«P52B9  '«570PT)B 

35 

TTOGO 

3 

BDRN 

ooxxx. 

hours 

oooxx. 

minutes 

(none) 

oxx.xx 

seconds 

36 

TIMENOW 

3 

EX7B 

ooxxx. 

hours 

oooxx. 

minutes 

(none) 

oxx.xx 

seconds 

37 

TTPI 

3 

TRGL 

ooxxx. 

hotirs 

oooxx. 

minutes 

oxx.xx 

seconds 

(VN0655, 

P34, 

P74,  INTLOOP) 

38 

TET 

3 

ORBI 

ooxxx. 

hovirs 

oooxx. 

minutes 

(none) 

oxx.xx 

seconds 

39 

spare 

Gnmmftnt. 


Decimal  only-  three 
components  must  be 
supplied 


Decimal  only  - three 
components  must  be 
supplied 


(=TALI(aj)  Decimal  only 
three  components  must 
be  supplied 


Decimal  only  - three 
components  must  be 
supplied 


Decimal  only  - three 
components  must  be 
supplied 


Decimal  only  - three 
components  must  be 
supplied 


Decimal  only  - three 
components  must  be 
supplied 
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Nowi 

40 

Tas  Como. 

Def. 

BURN 

Decimal  Dlanlav 

Comment 

TTOGO  3 

XI  ZZ  mln-sec 

'Vo  load  - decimal 

DELVSAB 

TRGI 

ZZZZ<Z  fps 

only 

DVTOTAL  ' 

SERV 

IZIZ.Z  fps 

(POSTBURN,  CLOKJOB,  V99R1CYC) 

41 

DSPTEMIf,  2 

DATA 

ZZZ.ZZ  degrees 

DSPTKMl!: 

(REDO) 

DATA 

ZZ.ZZZ  degrees 

42 

HAPO  3 

TRGI 

ZZZI.I  nautical  miles 

Decimal  only 

HP£R 

TRGI 

IZZZ.I  nautical  miles 

DELVSAB 
(P30  ) 

TRGI 

ZZZZ.I  fps 

43 

LAT  3 

COOR 

ZZZ.ZZ  degrees 

Decimal  only 

LONG 

COOR 

IZZ.IZ  degrees 

ALT 

COOR 

IIZZ.Z  nautical  miles 

(P21VSAVE,  LANDJUNK) 

44 

HAPOX  3 

EI7B 

ZZZI.I  nautical  miles 

No  load  - decimal 

HPERI 

EI7B 

ZZZZ.I  nautical  miles 

only 

TFF 

EXVB 

IZ  ZZ  min  - sec 

(V82G0FLP,  V82G0N) 

45 

TRKMKCNT  3 

RNAV 

mil.  unitless 

No  load  - decimal 

TTOGO 

BURN 

II  ZI  mln-sec 

only 

pMGA 

?rai645) 

TRGI 

nz.U  degrees 

46 

DAPDATR1  1 
(DAPDATA1) 

DAPB 

Octal  only 

47 

LEMMASS  2 

DAPB 

mil.  pounds  mass 

Decimal  only 

CSMMASS 

(DAPDATA2) 

DAPB 

nZZZ.  poiinds  mass 

48 

PITTIME  2 

DAPB 

lU.II  degrees 

Decimal  only 

ROLLTIME 

DAPB 

IZI.IZ  degrees 

(DAPDATA2,  TRIMDONE) 

49 

R22DISPR  3 

RNAV 

ZZZZ.I  nautical  miles 

Decimal  only 

R22DISPT 

RNAV 

ZZZZ.I  fps 

WHCHREAS 

RNAV 

IXZZZ. 

(N49DSP  (R22LEM96)) 
50  spare 
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Nouo 

Tas  ComD. 

Def. 

Decimal  Disnlay 

Comment 

51 

PITCHANG  2 

EXVB 

IZZ.IX  degrees 

Decimal  only 

YAUANG 

(SBANDEX) 

EX7B 

XU. XX  degrees 

52 

ACTCENT  1 
(none) 

TRGL 

XXX. XX  degrees 

53 

spare 

54 

RANGE  3 

EITO 

XXX. XX  nautical  miles 

Decimal  only 

RRATE 

EXVB 

XXXX.X  fps 

RTHETA 

(DISPN5X) 

EX7B 

XXX. XX  degrees 

55 

NN  3 

TRGX 

XXXXX.  imitless 

Decimal  only 

ELEV 

TRGL 

XXX. XX  degrees 

CENTANG 

TRGL 

XXX. XX  degrees 

(DISPLAYE,  VN0655)  . 

56 

RR-AZ  2 

RNAV 

XXX. XX  degrees 

RR_ELEV 

(DSPRRLOS) 

RNAV 

XXX. XX  degrees 

57 

spare 

.T  - . 

58 

POSTTPI  3 

TRGL 

XXXX.X  nautical  miles 

Decimal  only 

DELVTPI 

TRGL 

XXXX.X  fps 

DELVTPF 

TRGL 

XXXX.X  fps 

(INTLOOP)  ' 

'•i ' 

59 

DVLOS  3 

TRGL 

XXXX.X  fps 

Decimal  only 

(S34/35.5,  NTARGCHK) 

60 

FORVEL  3 

SERV 

XXXX.X  fps 

Decimal  only 

HDOTDISP 

SERV 

XXXX.X  fps 

HCALC1 

(VERTDISP) 

DESC 

XXXXX.  feet 

61 

TTFDISP  3 

DESC 

XX  XX  min-sec 

No  load  - Decimal 

TTOGO 

BURN 

XX  XX  min-see 

only 

ODTOFPLN 

DESC 

XXXX.X  nautical  miles 

(CLOKJOB) 
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Noun  Tag 


Comp.  Def. 


nnmn^ftnt 


62 

ABVEL  3 

SERV 

XXXX.Z  fps 

No  load  - decimal 

TTOGO 

BURN 

XX  XX  mln-sec 

only 

DVTOTAL 

SERV 

XXXX.X  fps 

(CLOKJOB,  V99BECIC) 

63 

ABVEL  3 

SERV 

XXXX.X  fps 

Decimal  only 

HDOTDISP 

SERV 

XXXX.X  fps 

HGALC1 

D33G 

XXXXZ.  feet 

(CLOKJOB,  P63DISPS,  CUTOFF,  V99RECIC  , ASCTERMl) 

64 

FUNNTDSP  3 

DESC 

XX  XX 

No  load  - decimal 

HDOTDISP 

SERV 

XXXX.X  fps 

only 

HCALC 

(P64DISPS) 

SERV 

XXXXX.  feet 

65 

SAMPTIME  3 

DSKI 

OOXXX.  hours 

Decimal  only  - three 

OOOXX.  minutes 

components  must  be 

(none) 

OXX.XX  seconds 

supplied 

66 

RSTACK,  2 

RADR 

XXXXX.  feet 

No  load  - decimal 

Bits  7-6 

— 

OOOOX.  unitless 

only 

of  Channel 
33 


(R04X) 

67 

RSTACK_  3 
RSTACKp 

RADR 

XXXXX.  fps 

RADR 

XXXXX.  fps 

RSTACKT 

RADR 

XXXXX.  fps 

(R04X)^ 

68 

RANCSDSP  3 

DESC 

XXXX.X  nautical  miles 

No  load  - decimal 

TTFDISP 

DESC 

XX  XX  min  - sec 

only 

DELTAH 

(DSP68,  WAIT68) 

SERV 

XXXXX.  feet 

/ 

Decimal  only . Components 

69 

D^iANS  3 

I^SCr 

XXZX?.  feet 

Tnone ) 

in  z,y,x  order.. 

'0 

' " 3 

ALIN 

■Jote  that  noun  70  ii. 

70 

AOTCODS.  3 

AQflCODB^ 

ALIN 

Octal  only 

Ithrati  iMidJlt  TKa-±s 

— 

Octal  only 

dhapiayed^with  verb  "Ol . 

AOTCODE^ 

— 

Octal  only 

Ti&apdseeistd  aaisd  mbiaind  g 

(R52,  E59) 

dca^ionents  are  meaning- 
less. 
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Noun 

Tae  Como. 

Def. 

Decimal  Disolay 

Comment 

71 

AOTCODEf.  3 

aotcodeI: 

aotcode' 

ALIN 

Octal  only 

Like  noun  70 

— 

Octal  only 

— 

Octal  only 

(GETDAT,  CHANGEVB,  GETMKS) 

72 

CDU.  2 

RADR  . 

XXX. XX  degrees  (360  degrees  - CDU.  displayed) 

CDU"^ 

RADR 

XXX. XX  degrees 

V 

(R0|X,  VBZERO, 

VBCOARK, 

R21DISP) 

73 

TANG„  2 

tang!: 

(VBCiARK) 

RADR 

XXX. XX  degrees  (display  of  TANG_  is  the  comp- 

RADR 

XXX. XX  degrees  lement 

of  the  value  stored) 

74 

TTOGO  3 

BURN  ■ 

XX  XX  min-sec 

No  load  - decimal 

YAW 

ASCT 

XXX. XX  degrees 

only 

PITCH 

ASCT 

XXX. XX  degrees 

(CLOKJOB,  V99RECYC) 

75 

DIFFALT  3 . 

TRGX 

XXXX. X nautical  miles 

No  load  - decimal 

T1 T0T2 

TRGX 

XX  XX  min-sec 

only 

T2T0T3  TRGX 

TRGX 

XX  XX  min-sec 

(P32/P72F^  P33/P73F) 

76 

ZDOTD  3 

ASCT 

XXXX.X  ft/sec 

Decimal  only 

RDOTD 

ASCT 

XXXX.X  ft/sec 

XRANGE 

(P12LM) 

ASCT 

XXXX.X  nautical  miles 

77 

TTOGO  2 

ASCT 

XX  XX  min-sec 

No  load  - decimal 

YDOT  proT 

(none) 

ASCT 

XXXX.X  fps 

only 

78 

DNRRANGE  3 

RADR 

XXX. XX  nautical  miles 

No  load  - decimal 

DNRRDOT 

RADR 

XXXXX.  fps 

only 

TTOTIG 
(R04X ) 

RADR 

XX  XX  min-sec 

79 

CURSOR  3 

ALIN 

XXX. XX  degrees 

Decimal  only.i 

SPIRAL 

ALIN 

XXX. XX  degrees 

POSCODE 

X ALIN 

XXXXX.  unitless 

(DSPV6N79,  79DISP) 

80 

DATAGOOD  2 

RNAV 

XXXXX.  unitless 

OMEGDISP 

(R24LEM) 

RNAV 

XXX. XX  degrees 

81 

DELVLVC  3 

TRGX 

XXXX.X  fps 

Decimal  only 

Tp30,  S34/35.5, 

P32/P72F 

, P33/P73F) 
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Mo\m 

IM 

Conn. 

Declaal  Display 

Comment 

82 

DSLVLVC 

3 

TRGI 

XZXX.X  fps 

Decimal  onl7 

rP32/1>72F) 

83 

DELVIMU 

TP47B0DY) 

3 

BURN 

mx.x  fps 

Decimal  only 

84 

DELVOV 

Tp76) 

3 

ORBI 

XXXX.X  fps 

Decimal  only 

85 

VCaBODI 

3 

BURN 

XIXX.X  fps 

Decimal  only 

TtIGNOW,  I 

CUTOFF, 

P4im, 

TIG-30A) 

86 

DELVLVC 

(none) 

3 

TRGI 

XXXX.X  fps 

Decimal  only 

87 

AZ 

2 

ALIN 

XXX. XX  degrees 

EL 

ALIN 

ZXX.XX  degrees 

(GETDAT, 

GSTAZEL) 

88 

STAIIAD„ 

Tplanet) 

3 

ALIN 

.XXXXX  xinltless 

Decimal  only 

89 

LANDLAT 

3 

ALIN 

XX. XXI  degrees 

Decimal  only 

LANDLONG 

ALIN 

XX. XXX  degrees 

LANDALT 

(N89DISP) 

ALIN 

XXX. IX  nautlcsd  miles 

90 

RANGE 

3 

EIVB 

XXX. IX  nautical  miles 

Decimal  only 

RRATE 

EZVB 

XXXX.X  fps 

RTHETA 

(R36) 

EX7B 

XXX. XX  degrees 

91 

P21ALT 

3 

RNAV 

XXXXXB.  nautical  miles 

P21VEL 

RNAV 

XXXXX.  ft/sec 

P21GAM 

RNAV 

XXX. XX  degrees 

92 

(none) 

THRDISP 

3 

DESC 

XXXXX.  percent 

HDOTDISP 

SERV 

XXXX.X  fps 

HCALC1 

(none) 

DESC 

XXXXX . feet 

93 

OGC 

3 

COOR 

XX. XXX  degrees 

IGC 

COOR 

XX. XXX  degrees 

MGC 

COOR 

XX. XXX  degrees 

(IMDFINEK 

, R55, 

INITBY) 

94 

spare 

95 

spare 

96 

speure 
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Noun 

Tae  Como. 

Def. 

Decimal  DisulaTr 

Comment 

97 

DSPTEM1  3 

DSPTEMi!: 

DSPTEMI^ 

DATA 

XXXZI.  unitless 

DATA 

niZX.  unitless 

DATA 

mix.  unitless 

(none) 

98 

DSPTEM2f.  3 

flS(P5iai£' 

DATA 

XXZXX.  uhltless 

DATA 

.mu  unitless 

DATA 

XXXII.  unitless 

(SHOW)  ^ 

99 

WWPOS  3 

RNAV 

XXZXX.  feet 

Decimal  only 

WWVEL 

RNAV 

XXXX.X  fps 

WWBIAS 

RNAV 

XX. XXX  radians 

(V67CALL,  GOTOPOOH  - In 

GOTOPOOH , the  no\an 

is  not  processed) 
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Alarm  Codes 


All  alarm  codes  are  listed  in  octal.  The  names  of  the  "Routines”  where 
each  code  is  generated  refer  to  the  titles  as  they  appear  in  this  document. 


Alarm 


Routines  Significance 


00107 

L 

YMKRUFT 

L 

SURF AG AN 

00111 

L 

MARKCHEX 

00112 

L 

MARKRUFT 

00113 

L 

SOMEKEY 

00114 

L 

YMKRUFT 

00115 

L 

MARKRUFT 

00206 

L 

IMUZERO 

00207 

L 

IMUMON 

00210 

L 

IMUCHK 

L 

R02B0TH 

L 

IMUZERO 

00211 

L 

C0ARS2 

00212 

L 

FIPFREE 

L 

C33TEST 

00213 

L 

TNONTEST 

00214 

L 

IMUMON 

00217 

L 

CURTAINS 

00220 

L 

AGSINIT 

L 

R02B0TH 

00401 

L 

KALCMAN3 

L 

CALCGA 

L 

DCMCL 

00402 

L 

NOATTCNT 

00404 

D 

R59ALM 

00405 

D 

R51 

00421 

L 

WMATEND 

00501 

F 

R23LEM 

00502 

L 

RRDESNB 

00503 

L 

RRDESK2 

P 

R21LEM 

F 

R21LEM1 

00510 

L 

RRZERO 

00511 

L 

MUNRETRN 

00514 

F 

F20LEMB7 

00515 

L 

RRCDUCHK 

00520 

L 

RADAREAD 

Five  or  more  mark  pairs  already  recorded 
Mark  missing 

Mark  or  mark  reject  attempted  with  the  respective 
routine  inoperative 
No  inbits  in  channel  16 
Wrong  mark 

Mark  reject  when  no  marks  taken  to  reject 

ICDU  zero  attempted  while  in  coarse  align  because 

of  gimbal  lock  warning 

ISS  turn-on  request  not  present  for  90  seconds 
IMU  not  operating  when  required 


Coarse  align  error 

FIFA  fail  when  primary  FIFA  fall  monitor  has 
been  disabled  (FIFA  not  in  use) 

"Turn-on  delay  initiate"  signal  from  IMU  present 

without  "IMU  operate"  signal 

Frogram  using  IMU  when  it  was  turned  off 

Bad  return  from  stall  routine  (e.g. , switching 

fail) 

IMU  not  aligned  - no  REFSMMAT 
Desired  gimbal  angles  yield  gimbal  lock 


FINDCDUW  not  controlling  attitude 
Desired  star  not  available  in  any  detent  position 
"R56"  did  not  find  star  pair  for  optical  sitting 
W-matrlx  overflow 

ManueuL  RR  acquisition  not  within  limits 
Bad  RR  gimbal  angle  input  (verb  4I) 

RR  designate  failure 


RR  zero  requested  (verb  40)  with  RR  auto  discrete 
absent 

LR  not  in  proper  position 

RR  auto  discrete  removed  while  RR  in  use 

RR  CDU  fail  discrete  detected 

RR  read  interrupt  initiated  when  not  called  for 
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Alarm 

Routines 

Significance 

00521 

L 

RAD  ARE  AD 

No  data  good  while  reading  radar 

L 

RESAMPLE 

00522 

L 

DORSAMP 

LR  position  change  during  LR  reading 

00523 

L 

LRPXOMM 

LR  position  2 not  achieved  in  23  seconds 

P 

POSALARM 

00525 

P 

R22LEM 

Actual  RR  LOS  differs  from  computed  LOS  by- 
more  than  3'^ 

00526 

P 

P20LEM1 

Range  greater  than  400  nautical  miles 

P 

CSMINT 

00527 

L 

LRS24.1 

LOS  not  in  mode  limits 

00530 

P 

60TIMES 

LOS  not  in  coverage  (P22)  less  than  10  minutes 
from  now 

00600 

D 

CIRCL 

Imaginary  roots  on  first  iteration  of  CSI  solution 

00601 

D 

CSI/SOL 

CSI/SOL 

Projected  perigee  altitude  after  CSI  less  than 
minimum 

00602 

D 

Projected  perigee  altitude  after  CDH  less  than 
minimum 

CSI/SOL 

00603 

D 

Time  between  CSI  and  CDH  less  them  minimum 

00604 

D 

CSI/SOL 

Time  between  CDH  and  TPI  less  them  minimum 

D 

CIRCL 

00605 

D 

CSI/BI 

Too  many  iterations 

00606 

D 

CSI/B2 

Projected  DELVCSI  exceeds  maximum 

00611 

D 

INTLOOP 

No  TPI  ignition  time  solution  for  given  elevation 

D 

P33/P73B 

angle 

00701 

D 

DSPOPTN 

Illegal  option  code  was  selected 

00777 

L 

SETISSW 

ISS  warning  caused  by  PIPA  fail 

01102 

L 

PRERRORS 

AGC  self  test  error 

01105 

L 

DWTMFAST 

Downlink  too  fast 

01106 

L 

UPTMFAST 

Uplink  too  fast 

01107 

L 

G0PR0G3 

Phase  table  discrepancy;  restart  failure;  causes 
fresh  start. 

01301 

L 

ARCSUB 

Arcsin  or  arccosine  input  too  large 

01406 

L 

1406ALM 

Bad  return  from  ROOTPSRS  routine  during  descent 
guidance 

01407 

L 

VGAIN* 

VG  increasing 

OUlO 

L 

EXVERT 

Unintentional  overflow  in  descent  (P63  or  P64) 
guidance 

01412 

L 

EXGSUB 

Calculation  of  descent  ignition  time  not  converging 

01520 

L 

V37 

Verb  37  not  permitted  at  this  time 

01600 

L 

SOMEERRR 

Overflow  in  drift  test 

01601 

L 

S0MERR2 

Bad  IMU  torque 

01703 

L 

MIDTOAVl 

Insufficient  time  remaining  before  scheduled 

L 

CKMID2 

ignition 

01706 

D 

P40ALM 

Incorrect  program  requested  for  vehicle  configuration 

02001 

L 

TRYUOEV 

Jet  failures  have  disabled  Y-Z  translation 

02002 

L 

+XORULGE 

Jet  failures  have  disabled  X translation 

02003 

L 

SELECTP 

Jet  failures  have  disabled  P rotation 

02004 

L 

FAILOOP 

Jet  failures  have  disabled  U-V  rotation 

03777 

L 

SETISSW 

ISS  warning  caused  by  ICDU  fail 

04777 

L 

SETISSW 

ISS  warning  caused  by  ICDU  and  PIPA  fall 

07777 

L 

SETISSW 

ISS  warning  caused  by  IMU  fail 
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Alarm 

Routines 

Significance 

10777 

L 

SETISSW 

ISS  warning  caused  by  IMU  fail  and  PIPA  fail 

13777 

L 

SETISSW 

ISS  warning  caused  by  IMU  and  ICDU  fail 

14777 

L 

SETISSW 

ISS  warning  caused  by  IMU,  ICDU  and  PIPA  fall 

20105 

AOTMARK 

Optical  mark  routine  called  when  already  busy 

20430 

GOBAQUE 

Acceleration  overflow  in  integration 

20607 

TIMERAD,TIMETHET  No  solution 

COMMNOUT 

21103 

CCSHOLE 

Theoretically  impossible  branch  taken 

21204 

DLY2 

LONGCALL 

Zero  or  negative  time  applied  to  waitlist,  delay 
or  LONGCALL 

21302 

SQRT 

Negative  argument  input  to  square  root  routine 

21406 

1406P00 

Bad  return  from  ROOTPSRS  routine  during  descent 
pre-ignition  phase 

21501 

DSPALARM 

Invalid  display  interface  Information  from 
internal  program 

31104 

DELLOOP 

Too  many  users  of  delay  routine 

31201 

FINDVAC2 

Too  many  jobs  requiring  working  storage 

31202 

N0VAC3 

Too  many  jobs 

31203 

DLY2 

WTLST5 

Too  many  tasks 

31206 

NV50DSP 
FLASKS UB 

More  than  one  program  active  in  disolav  interface 
routines  at  one  time 

31207 

AOTMARK 

No  working  storage  available  for  marks 

31210 

GOMANUR 

IMUSTALL 

AOTSTALL 

RADSTALL 

Two  users  of  the  same  device  or  routine  (radar, 
ACT,  IMU,  KALCMAN3) 

31211 

AOTMARK 

Illegal  interrupt  of  extended  verb 

31502 

MAKEPLAY 

MAKEPRIO 

FLASHSUB 

Illegal  flashing  display 

32000 

PAXIS 

DAP  still  in  progress  from  last  TIME5  interrupt 
when  another  TIME5  interrupt  is  Initiated 

L Alarm  lights  "Program  Caution"  light  and  the  code  is  stored  in  noun  09 
(which  is  on  telemetry) 

D Alarm  does  all  of  "L"  plus  the  alarm  code  is  displayed  as  part  of 
program  logic 

P Alarm  does  all  of  "D"  functions  except  with  a priority  display. 

If  the  first  number  is  a 3 in  the  code,  the  alarm  does  all  of  "L"  functions 
plus  a "BAILOUT"  or  software  restart. 

If  the  first  number  is  a 2 in  the  code,  the  alarm  does  all  of  "L"  functions 
plus  a "POODOO"  which  terminates  all  program  activity. 
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Cheekllst  Codes 


Checklist 

Code  Routine  Meaning 


13  P52D  Key  in  Normal  Coarse  Align  or  Gyro  Torque  Coarse 

Align 

Terminate:  Proceed  to  "GOTOPOOH" 

Proceed:  Do  Normal  Coarse  Align;  "REGCOARS" 

Enter  or  Resequence:  Do  Qyro  Torque  Coarse 
Align 

P57P0ST  Key  in  Fine-  Alignment  Option 

Terminate:  Proceed  to  "GOTOPOOH" 

Proceed:  Align  LM  based  on  keyed  in  option 
( "ATTCHK" ) 

Enter  or  Resequence:  Determine  LM's  position  from 
gravity  vector  if  option  2 alignment 

R5IK  Key  in  Fine  Alignment  Option 

Terminate:  Proceed  to  "GOTOPOOH" 

Proceed:  Check  alignment  by  recycling  through 
Routine  51 

Enter  or  Resequence:  Exit  Routine  5I 


U 

t 


ASTNRET  Key  in  Fine  Alignment  Option 

Terminate:  Proceed  to  "GOTOPOOH" 

Proceed:  Check  alignment  by  performing  Routine 
51  and  continuing 

Enter  or  Resequence:  Continue  without  check 


15  P5TD  Perform  Celestial  Body  Acquisition;  Key  in  Proceed 

Option 

Terminate:  Proceed  to  "GOTOPOOH" 

Proceed:  Continue  to  marking  proceed 
Enter  or  Resequence:  Perform  Coarse  Aligh  to 
zero  IMU;  Then  redisplay  code  15 


R5I  Perform  Celestial  Body  Acquisition;  Key  in  Proceed 

Option 

Terminate:  Proceed  to  "GOTOPOOH" 

Proceed:  Continue  with"R51" 

Enter  or  Resequence:  Proceed  to  "R5IE" 
(maneuver  LM  and  mark) 


62  P06  Switch  AGC  Power  down;  Enter  standby  mode 
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Checklist 

Code  Routine  Meaning 


201  RO4X  Switch  RR  to  automatic  tracking  mode 

Terminate:  Exit  Routine  04 

Proceed:  Continue  with  Routine  04  (after 

checking  that  RR  is  switched  to  auto  mode) 
Enter  or  Resequence:  Repeat  checklist  request 

P20LEMB7  Switch  RR  to  automatic  tracking  mode 
Terminate:  Exit  Program  20  or  22 
Proceed:  Continue  Program  20  or  22 
Enter  or  Resequence:  Perform  "R23I<EM" 

(manual  acquisition  monitor)  if  not  on  lunar 
surface;  then  continue  Program  20 


203  P4OAUTO  Switch  Control  to  PGNCS;  switch  DAP  to  AUTO: 

switch  Throttle  Control  to  Auto  (if  descent) 

Terminate:  Proceed  to  "GOTOPOOH" 

Proceed:  Continue  present  program  if  switches  are 
properly  set 

Enter  or  Resequence:  Continue  present  program 
regardless  of  switch  setting 


205  R23IiEM  Perform  Manual  Acquisition  of  CSM  with  RR 

Terminate:  Exit  Program  20 
Proceed:  Continue  in  Routine  23 
Enter  or  Resequence:  Perform  Automatic  Maneuver; 
then  continue  in  Routine  23 


500  ASTNRET  Switch  LR  antenna  to  position  1 

Terminate:  Proceed  to  "GOTOPOOH" 

Proceed:  Initialize  Landing  Radar  Control 

("SETP0S1"),  if  LR  is  in  position  1 and 
continue 

Enter  or  Resequence:  Initialize  Landing  Radar 
Control  ("SETP0S1")  and  continue  regardless 
of  Landing  Radar  position 
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apt Ion  Codes 


This  is  a list  of  the  option  codes  displayed  in  R1  in  conjunction 
with  a V04N06  (OPTIONI ) or  V04N12  (OPTIONXq)  to  request  the  astronaut  to 
load  into  R2  the  option  he  desires  for  program  LUMINARY  (0PTI0N2  or 
OPTIONXq  respectively).  In  the  case  of  option  code  10  in  R1 , an  0PTI0N3 
is  also  defined  as  a flagword  indicator  which  is  set  by  the  program  and 
loaded  into  R3.  V05  is  used  in  this  case. 


Option 

Code 

R1 

Purpose 

Input  of  R2 

Routine 

Option 

Code 

Types 

00001 

Specify  IMU 
Orientation 

1-  Preferred  Attitude 

2-  Nominal  Attitude 

3-  Attitude  specified  by 
present  REFSMMAT 

4-  Landing  Site  Attitude 

P52B 

P570PT 

R1 -OPTIONI 
R2-0PTI0N2 

00002 

Specify  Vehicle 

1-  This  Vehicle  (LM) 

2-  Other  Vehicle  (CSM) 

PR0G21 

R1 -OPTIONI 
R2-0PTI0N2 

V82CALL 

R1  -OPTIONXf. 
R2-0PTI0NX^ 

00003 

Specify 

Tracking 

Attitude 

1-  Point  Z-axis  (preferred) 

2-  Point  X-axis 

V89CALL 

R1 -OPTIONXq 
R2-0PTI0NX^ 

00004 

Specify  Radar 

1-  RR  (Rendezvous  Radar) 

2-  LR  (Landing  Radar) 

a04Z 

R1  -OPTIONXq 
R2-0PTI0NX^ 

00006  ■ 

Specify  BR 
Coarse  Align 
Option 

. ' c xi ;/  hi- 

/iXign 

1-  |j(bck*-on 

2-  Contdiluous, Designate 

- k-on 

.i-  Coi.  i riu.  US  Designate 

VBCOARK 

R1 -OPTIONX 
R2-0PTI0Nx!j' 

^ u xo r i 
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Option 

Code 

R1 

Purpose 

Input  of  R2 

Routine 

Option 

Code 

Types 

00010 

Specify 

Alignment 

Option 

0-  Time  critical  - Stored 

LM  Attitude  or  Present 
REFSMMAT 

DSPOPTN 

R1 -OPTIONI 
R2-0PTI0N2 
R3-OPTION3 

1-  REFSMMA.T  + Lunar  Gravity- 
Vector 

2-  Two  Bodies 

3-  One  Body  + Lunar  Gsravity 
Vector 


R3-0PTI0N3  Definition 


Bit  7 = 1 
= 0 
Bit  4 = 1 
= 0 


REFSMMAT  is  defined 
REFSMMAT  is  not  defined 
Stored  LM  attitude  available 
Stored  LM  attitude  not  available 


All  other  bits  are  zero 

00012  Specify  GSM  1-  No  Orbit  Change 

Orbit  Option  2-  Change  Orbit  to  pass 

over  the  LM 


ORBCHGO  R1 -OPTION 1 

R2-0PTI0N2 
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Job  Priorities 


Priority 

Job 

Routine  Where  Priority  Established  ( or  chan 

35 

NBDONLY 

SVCT3 

33 

MAKETLAY 

MAKEPLAY  (change) 

32 

HIGATJDB 

MMRETRN 

■ .'I;''’' 

JAMTERM 

NVDSP 

LRVJOB 

VAKECHK 

LRHJOB 

R10,R11 

31 

TTFINCR 

TTFINCR  (change) 

30 

TSTLTS3 

TSTLTS2 

HONDO 

MONREQ 

CHARIN 

KEYRUPT1  UPRUPT 

UP  JOB 

UPSTORE 

PROCKEY 

PROCEEDE 

DSPMMJOB 

TSTLTS3  REDO  UPUPDATE  UP0UT4  V37XEQ  G0PR0G3 
ENDTEST1  P65START  STARTP66  STARTP64 

27 

1/ACCSET 

DAPIDLER 

1 /ACC JOB 

VOPENED  RCSMONIT  SETMINDB  SETMAXDB  PFLITEDB 

N49DSP 

R22LEM96 

CLOKJOB 

CLOKTASK 

26 

DODES 

MOREDES 

PR0G20 

PRDG20  fcha;. 

P20LEMB 

P20LEMB  ( change ) 

P20LEMC3 

P20LEMD1 

R22LEM42 

P20IEMC1 

PRDG25 

PR0G25  (charifc-. , 

R61C+L01 

R61C+L06 

R29RDJ0B 

R29READ 

NEWDELHI 

UPDTCALL 

R21EEM10 

R21LEM9 

. RELINUS 

RELINUS  ( change ) 

25 

TICKTEST 

DORSAMP 

RADSAMP 

DATGDCHK 

CALLDGCH 

COMFAIL 

DVMON 

23 

POSQOOD 

POSGOOD  ( change ) 

22 

REDO 

SYSTEST 

NORMLIZE 

PREREAD 

GETRVN 

GETRVN  (change) 

RDDCOMP 

RODTASK 
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Priority 

Job 

Routine  Where  Priority  Established 

(or  changed)^ 

21 

R29REM0J 

R29 

R29D0DES 

BEGDES29 

1/GYRO 

1/PIPA 

LASTBIAS 

PREREAD 

20 

ALFLT 

ALLOOP 

PIP JOBS 

PIPATASK 

RRDESK2 

VBCOARK 

S40.13 

P40SJUNK 

P47B0Dy 

STARTP47 

SERVICER 

READACCS 

TTFINCR 

TTFINCR  (change) 

POSTAND 

P06 

17 

CUTOFF 

GOCUTOFF  ENGOFFSI 

P41 BLANK 

TIG-35 

TIG-30A 

TIG-30. 1 

UPTHROT 

. .‘Ff 

UPTHROT  ( change ) 

r 

16 

TIGNOW 

TIGTASK 

15 

PLAYJUM1 

NORMRET 

CHANGEVB 

REMARK 

GETDAT 

AOIHAHK 

14 

P25LEM1 

RELINUS  P25LEM1  V37RET 

( 

13 

ADDGRAV 

GRABGRAV 

ASTNRET 

CLOKJOB 

P76 

V37XEQ 

P75 

V37XEQ 

P74 

V37XEQ 

P73 

V37XEQ 

P72 

V37XEQ 

P35 

V37XEQ 

P34 

V37XEQ 

P33 

V37XEQ 

P32 

V37XEQ 

P30 

V37XEQ 

LAND JUNK 

V37XEQ 

P63LM 

V37XEQ 

P57 

V37XEQ 

PR0G52 

V37XEQ 

P51 

V37XEQ 
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Priority 

Job 

Routine  Where  Priority  Established  (or  changed) 

13  (cont. ) 

P47I1M 

V37XEQ 

P42LM 

V37XEQ 

P41LM 

V37XEQ 

P40LM 

V37XEQ 

PR0G25 

.V37XEQ 

PR0G22 

V37XEQ 

PR0G21 

V37XEQ 

PR0G20 

V37XEQ 

P12LM 

V37XEQ 

PO6 

V37XEQ 

12 

POSTBURN 

GOPOST  ENGINOFF 

10 

TRIMDONE 

PITCHOFF 

R62DISP 

CREWMANU 

ATTACH IT 

ATTACHED 

V89CALL 

V89PERF 

RELINUS 

CHKLINUS 

S40.9 

UPDATEVG 

7 

DAPDATA1 

DAPDISP  ( change ) 

ALINTIME 

ALINTIME  (change) 

V82CALL 

V82PERF  (change) 

R36 

V90PERF 

V82G0FF1 

V82GOFLP 

V82GON1 

V82GON 

SH0WSUM2 

SH0WSUM2  (change). 

5 

RRLOSDSP 

DSPRRLOS 

V67CALL 

V67 

DISPN5X 

R31 CALL 

SBANDEX 

SBANDEX  (change) 

STATINT1 

STATE INT  POOH 

DYNMDISP 

P41LM 

4 

DSPRRLOS 

DSPRRLOS  (change) 

AGSINIT 

V47TXACT 

SBANDANT 

VB64 

SBANDEX 

SBANDEX  (change) 

3 

V83CALL 

R31CALL 

GETRVN 

GETRVN  ( change ) 

0 

DUMMY JB2 

(not  established  - proceeded  to  by  EJSCAN) 

same  as 

MAKEPLAY 

GODSPRSl 

user 

ENDRET 

ENDRET  ( change ) 

NV50DSP 

NV50DSP  (change) 

( caller ) 

GOODMANU 
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Ind««  of  Routlnaa 


Thla  indax  Ineludaa,  1b  addition  to  tha  Hat  of  all  routines 
daserlbad  and  their  loeatloaa  In  this  doexaaent,  alliat  of  each 
place  tha  routine  is  "refereneed."  This  Includes  any  reference 
to  a routine  by  name,  for  exB]q)le,  by  naans  of  "Perfom",  "Proceed 
to"»  Ustabllsh",  checking  of  routine  address,  etc.  It  does  not 
InelAde,  as  a reference,  routines  that  flow  Into  (are  followed 
directly  by)  another  routine. 


DSKI-IO 

dlMTOOT  DSPSIGM 

+IORtILGB 

DAPA-19 

RCS 

-OH 

DSKT-IO 

DSPSIGN 

*ERTER 

BURH-IO 

V99RECTC 

•PROCUDI? 

BURN- 5 

V99RBCTC 

l/ACCJOB 

DAPB-1 

PFLITEDB  RCSMOMIT  SETMAXDB  SETMINDB  VOPEHED 

l/ACC0!fT 

DAPB-4 

l/ACCS 

l/ACCRET 

DAPB-11 

DXKTEST 

l/ACCS 

DAPB-1 

l/ACCJQB  SERVODT 

l/ACCSET 

DAPB-1 

DAP  IDLER 

l/GTRO 

IMX-1 

l/PIPA  NBD2 

1/PIPA 

IMDC-2 

ADDGRAV  ALFLT  SERVICER 

iAloop 

CQMC-11 

iAjloop 

IIDSPIM 

DSKr-13 

-(»  DSP2DEC  SGNCOM  -K)N 

I406ALM 

DESC-17 

TTF/8CL 

T406P00 

PESC-I7j 

TTF/8CL 

1STAR 

ALIN-30 

ASTAR  P570PT3 

1ST02S 

MATX-8 

INCAZ 

X - 1 I 


1T02SUB 

MATX-8 

1ST02S  2V1ST02S  V1ST02S 

2BLANK 

DSKI-1 3 

5BLANK  DSHIMJOB  MMCHANG  NOUN  REQMM 

2INT0UT 

DATA-1 4 

DECDSP3 

2STARS 

ALIN-30 

P570PT2 

2V1ST02S 

MATX-8 

360-CDUO 

DATA-U 

DECDSP3 

5BLAM 

DSKY-1 2 

2INT0UT  BLANKSDB  CLEAR  REQDATZ 

60TIMES 

RNA¥-1  5 

60TIMES 

79DISP 

ALIN-32 

INCAZ 

81 92AUG 

■ IMUC-12 

8192AUG  STRTGYR2 

A-PCHK 

ORBI-16 

CKMID2  TESTLOOP 

ABCLOAD 

DATA-1 9 

VERBFAN 

ABLOAD 

DATA-1 9 

VERBFAN 

ABORT 

PGSR-1 3 

ABORTALl^ 

ASCT-7 

P70  P71 

ABRTIGN 

BDRN-5 

IGNITION 

ABRTJASK 

ASCT-3 

P71A 

ACCOMP 

ORBI-8 

NBRANCH  NEXTCOL 

ACCTHERE 

DAPB-7 

BOTHAXES 

ACDT1-C12 

DAPA-31 

D0NEIET2  PAXFILT 

ADDGRAV 

ALIN-35 

GRABGRAV 

ADRS+1 

TEST-8 

ADRSGHK 

ADRSGHK 

TEST-7 

COMADRS 

X - 2 


ADTIME 


TRQL-S 


ELCALC 


ADVAN 

ADVANCE 

AFCCALC1 


MAIZ-XO  CHECENJ 
IRGI-7  P32A72B  P33A73B 

DESC-7  VERTGUID 


AFTERTJ 

AGSDISPK 

AGSINIT 


DAPA-24  BACKHAND  MINRTN  TJLAW4 
EZVB-12  AOSDISPE 
EIVB-12  V47TXACT 


AQSVCALC  EIVB-12  AGSDISPK 

ALARM  PGSR-11  INTLOOP  P33A73B  CALCGA  WMATEND  MIDTOAV1 

CKMID2  UPIMFAST  DNTMFAST  PRIOLAHM  RRDESK2 
IilP2C0^}M  V37  GOPROG3  RADAREAD  LRS24.1 

RRCDUCHK  RRDESNB  RRZERO  RESAMPLE  SOMEKEI 
IMKRDPT  MARKCHEX  R51  DSPOPTN  R59ALM  SETISSW 
IMUZERO  C0ARS2  IMDCHK  MARKRUPT  KALCMAN3  AGSINIT 
PIPPREE  IMDMON  TNONTEST  C33TEST  R02B0TH 
VGAIN*  1406ALM  MUNRETRN  P40AEM  DCMCL  NOATTCNT 
EXGSUB  STEER?  TRYDTORV  SELECT?  +XORULGE  P66 
PAILOOP  SOMEERRR  SOME3iR2  SUflFAGAN  DORSAMP 


ALARM1 

PGSR-14 

ARCSUB 

ALARM2 

PGSR-11 

BAILOUT  BAILOUn  CURTAINS  POODOO  P0ODO01 
VARALARM  ALARM1  PRERRORS 

ALFLT 

IEST-16 

ALLOOP 

ALGORTHM 

DAPA-2S 

NEGUSUM 

ALINTIME 

EXVB-6 

GOEZTVB 

ALLCOAST 

DAPA-32 

SEUDOPOO  COASTSET  GOPOST  GOCUTOFF 

ALLOOP 

IE3T-15 

ESTIMS  ALLOOP 

AL^V^SND 

EZVB-2 

GOEZTVB  TESTACT  VBZERO  IMUFINEK  IMUATTCK 

GREWMANU  R77  V89PERF  GOSHOSUM  VBCOARK 

SrSTEST  RDRUSECK  attached  VBTSTLTS 
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ALMCICLE 

DATA-1 7 

TESTNN  ABLOAD  ABCLOAD  PUTCOM  PUTNORM 
PDTDCSF2  BINROUND  DPINSP+-2  DEGINSF  HMSIN 
MMCHANG 

ALMXIT 

IRGX-15 

CIRCL  SCNDSOL 

ALOAD 

DATA-1 8 

VERBFAN 

ALOADED 

ORBI-4 

INTEGRV 

ALTDSPLI 

DAPA-3 

CHEISITS 

ALTOUT1 

SERV-18 

LANDISP 

ALIROUT1 

SERV-17 

LANDISP 

AOTMARK 

ALIN-3 

P51C  R51E  R590UT 

AOTSTALL 

ALIN-3 

P51C  R51E  R590UT 

APSIDES 

CONC-2 

PERIAPO 

ARCCOS 

MATI-3 

ARCSIN 

MATX-3 

ARCSUB 

MATI-3 

ARCCOS  ARCSIN 

ARCTAN 

COOR-5 

LAT-LONG  RANGEBQ  BALLANGS 

ARCIRGSP 

BDRN-24 

NB2CDDSP 

ARCTRIG 

AROUTISF 

ARTOUTSF 

COOR-6 
DATA-27 
DATA-1 0 

CALCGA  CALCGTA  RRANGLES  RRLOSDSP 

DECDSP3 

DECDSP3  LRPOSOUT 

ASCENT 

ASCT-7 

ATMAG  P12LM 

ASCIERM 

ASCT-1 1 

■ CMPONENT 

ASCTERM1 

ASCT-1 1 

ATMAG 

ASTAR 

ALIN-33 

R59RET 

ASTNRET 

DESC-3 

CLOKJOB 

ASTOK 

RNAV-37 

R22LEM96 

ATMAG 

ASCT-7 

UPTHROT  ABRTIGN 

X - 4 


ATTACHED 

EXVB-8 

GOEXTVB 

ATTACHIT 

EXVB-28 

ATTACHED 

ATTCHK 

ALIN-26 

GVDETER  P57POST  SURFDISP 

ATTCK2 

IMDC-19 

IMDATTCK 

attsteer 

DAPA-23 

CHEKSTIK  RHCACTIV  TSNEITS 

AYEIT 

ALIN-10 

JUSTOA 

AVERAGEG 

■■sm-3  I 

AVESTAR 

ALIN-10 

AVEIT 

AVETOMID 

ORBI-18 

AVGEND 

AVGEND 

SERV-5 

READACCS 

AXISGEN 

ALIN-U 

INITBI  R51E  P51C 

AZEL 

.ALIN-21 

R52 

BACKHAND 

DAPA-23 

BACKHAND  FAILOOP  FEEDBACK  DOROTAT  TJLAW4 

BACKP 

DAPA-7 

BADRAD 

RADR-22 

RADAREAD  RENDRAD  RESAMPLE 

BAILOUT 

PGSR-12 

PAHS  MAKEPLAY  MAKEPRIO  NV50DSP  FLASHSUB 

BAILODT1 

PGSR-12 

FINDVAC2  NOVAC3  GOMANUR  RADSTALL  DLY2 
IMUSTALL  AOTMARK  AOTSTALL  DELLOOP  WTLST5 

BALLANGS 

ATTM-2 

R60LEM  R6lC+K)2  REDOMANC  V89RECL 

BANKCALL 

MATI-25 

BANEJUMP 

MATI-25 

BEGDES 

RADR-9 

DOHREPOS  RR1AX2  STARTDES  6OTIMES 

BEGDES29 

RHAV-34 

BEGDES29  R29.L0S 

BIGIQ 

DAPB-22 

COMMEQS 

X - 5 


B INROUND 

DATA-24 

PUTDCSF2 

BITSOFFl 

DATA-21 

CHANBITS 

BrrS0FF2 

DATA-21 

CHABBITS 

BLANKDSP 

DATA-2 

NVSUB 

BLANKET 

DINT-6 

CHKLINUS  R04Z  DBPRRLOS  R21DISP 

VBCOARK  SBANDEX 

DAPDATA1  DAPDATA2  TRIMDONE 

BLANKSUB 

DSKI-11 

PASIEVB  NV50DSP 

BLOAD 

DATA-18 

VERBFAN 

BOTHAXES 

DAPB-5 

STMIN- 

BOTHPAD 

EXVB-18 

V82G0FF1 

BOTHSGN 

DSKI-5 

NEGSGN  POSGN 

BRNCHCTR 
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CDDLOGIC 
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PIPACHK  PIPJOBB  CHKCIG 

X - 7 


CHECKNJ 
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AGSVCALC  VBZERO  1/GYRO  COARSE  R55 
INITBI  GICOARS  EARTHR* 
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IMUZERO 

MIC -13 

REDO  AGSVCALC  VBZERO 

IMnZER02 

IMUC-U 

IMDZERO 

[ INCAZ 

ALIN-31 

INCAZ 

INC0R2-3 

RNAV-37 

NEWZCOMP 

INCORP1 

RNAV-37 

LGCUPDTE 

INC0RP2  . 

RNAV-38 

ASTOK 

INFINITY 

CONC-1 2 

WLOOP  1/WLOOP  POLYCOEF 

INITBY 

ALIN-28 

SURFLINE  • 

INITCDUW 

BDRN-20 

GOABORT  P41SP0T 

INITREAD 

RADR-17 

LRALT  LRVELI  LRVELI  LRVELZ  RRRDOT  RRRANGE 

INITV 

CONC-8 

LAMBLOOP  SUFFCHEK 

1 INITVEL 

TRGL-9 

S40.1B  334/35. 2 

INITVEL2 

TRGL-10 

INITVEL2 

INITVEL7 

TROL-ll 

INITVEL2 

INJTARG 

A3CT-5 

GOABORT 

IHTECJRV 

ORBI-3 

STATINT1  CSMPREC  LIMPREC  CSMCONIC  LEMCONIC 
DIFEQ+2  AVKTOMID  MIDTOAV2  L3R22.3  LSR22.4 
ORBCHGO  DPPSV  PR0G21  UPPS74 

j INTEGRVS 

ORBI-4 

EXGSOB  P76  INITVEL2  INTINT  P21C0NT  OTHINT  REV! 

INTEXIT 

ORBI-5 

TESTLOOP 

INTGRATE 

ORBI-8 

TIMESTEP  LDNSPH 

INTINT 

TRaX-9 

ADTIME  S34/35.2  S34/35.3  P32/P72B  P33/P73B 
CIRCL 

INTLOOP 

TRGL-1 

INTLOOP 

INTLZE 

SERV-1  5 

LANDISP 

INTSTALL 

/ 

ORBI-21 

EIGSDB  STATINT1  CSMPREC  LEMPREC  CSMCONIC 
LEMCONIC  AVETOMID  MIDT0AV2  P76  INITVEL2 

INTINT  UP JOB  GETRTO  . OTHCONIC  ATTACHIT  CANV37 
INC0RP2  LSR22.3  LSR22.4  UPPSV  V67CALL  ORBCHGO 
INTSTALL  TRMIRACK  REV83  PR0G21 
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INTWIKE 

ORBI-21 

INTEXIT  AVETOMID  ATTACHIT  FAZAB3 
V67CALL 

INTWAKE1 

ORBI-22 

INTWAKEU  P76 

ORBCHGO 

INTWAKEU 

ORBI-22 

UPEND70  UPEND71 

UPEND72  DPERROUT 

INVRSEQN 

CONC-1 1 

GETX  WLOOP 

ISSZERO 

IMUC-7 

IMUMON  TNONTEST 

ITERATOR 

CONC-1 2 

LAMBLOOP 

ITDRN0N2 

IMUC-10 

IMUWON 

JAMTERM 

DINT-18 

NVDSP 

JETSOFF 

DAPA-17 

TSNEXTP  DETENTCK  PURGENCI  PJETSLEC  SELECTP 

JOBSLEEP 

MATX-15 

REDO  TCGETCAD 

JOBWAKE 

MATX-17 

WAKER 

J0BWAKE4 

MATX-17 

J0BWAKE4 

JOBXCHS 

DINT-9 

MAKEMARK  MAKEPRIO 

JTLST 

DAPA-2 

PJETSLEC  DOROTAT 

JUSTOA 

ALIN-1 2 

SURFSTAR 
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KALCMAN3 

ATTM-4 

GOMANDR 

KEPCONVG 

CONG -5 

KEPLOOP  BRNGHCTR 

KEPLERN 

CONG -3 

: PPPRIP  ^ ! 

KEPLOOP 

GONG -4 

BRNGHGTR 

kepprep 

ORBI-15 

RVGON  GOBAQDE  NBRANGH 

KEYRUPT1 

DSKI-1 

Galled  via  program  interrupt  #5 

KILUOT 

ALIN-36 

(BTDAT  PASTIT  DSPV6N79 

KT.F.T<’.TJT<rX 

DINT-5 

LALOTORV 

GOOR-4 

N89DISP 

LAMBERT 

GONG-6 

INIT7EL2 

LAMBLOOP 

GONG -7 

HIENERGY  LAMBLOOP 

LAMENTER 

GONG-1 2 

INITV 

LANDISP 

SERV-1  5 

R10,R11 

LANDJDNK 

DESG-  18 

LASTBIAS 

IMDG-3 

PREREAD 

LAT-LONG 

GOOR-3 

LANDJUNK  N89DISP  P21VSAVE 

LEMGONIG 

ORBI-3 

S52.3  V89REGL  LPS20.1  LRS24.1  SBANDANT 

LEMPREG 

ORBl-2 

LOGSAM  P57D  AGSVGALG  V82G0FF1  V83GALL 

REV83  R36  . ' S30.1 

PRECSET  P12LM  S40.1B  P63LM 

LE317EG 

EXVB-9 

GOEXTVB 

LGGUPDTE 

RNAVJ6 

RANGEBQ 

LIGHTSET 

PGSR-10 

GOPROG  GOPROG2A 
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LITIT 

RADR-25 

ONLITES 

LOADLV 

DINT-14 

ALOAD  BLOAD  CLOAD  ABLOAD 
HMSIN  GOLOADLV  BITSOFF2 

ABCLOAD  PUTNORM 

LOCSAM 

ALIN-1 3 

PLANET  R51 

LODNNTAB 

DATA-4 

TESTNN  ALOAD  BLOAD  CLOAD 
UPDATNN 

ABLOAD  ABCLOAD 

LOENERGY 

CONG -8 

LAMBLOOP 

LOGSUB 

MATX-6 

LONGCALL 

MATX-23 

LONGCYCL 

MATX-23 

LONGCALL  LONGCYCL 

LPS20.1  ' 

RNAV-8 

P20LEM1  R21LEM1  R61C+L02  READRDOT  60TIMES 

LRALT 

RADR-17 

DORSAMP  LRHJOB 

LRHEIGHT 

RADR-20 

RADAREAD 

LRHJOB 

SERV-1 2 

R10,R11 

LROFF 

EXVB-7 

GOEXTVB 

LRON 

KIVB-7 

GOEITVB 

LRP2C0MM 

EXVB-30 

LRP0S2K1 

LRP0S2 

RADR-23 

LRP2C0MM  HIGATJOB 

LRP0S2K 

EIVB-7 

GOEITVB 

LRP0S2K1 

EXVB-7 

IJIP0S2K 

LRPOSCAN 

RADR-23 

' LRP0S2  LRPOSCAN 

LRPOSOUT 

DATA-1 1 

DECDSP3 

LRS22.1 

RNAV-21 

R22LEM 

LRS24J 

RNAV-28 

DATGDCHK  R24LEM 
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LRVELX 

RiDa-17 

DORSAMP  LRVJOB 

LRVELI 

RADR-I? 

DORSAMP  LRVJOB 

LRVELZ 

RADR-I? 

DORSAMP  LRVJOB 

LRVJOB 

SERV-12 

VALTCHK 

LSORIENT 

ALIN-18 

P52LS  P57D 

LSPOS 

COOR-7 

LQCSAM  SBANDANT  TIMESTEP  LUNSPH  ACCOMP 

LSR22.3 

RNAV-23 

R22LEM 

LSR22.4 

RNAV-24 

LSa22.3 

LUNDESCH 

RADR-24 

RRANGLES 

LUNG 

ALIN-34 

GVDETER 

LDNLAND 

DSSC-4 

P63IC»f 

LUNSPH 

ORBI-7 

TIMESTEP 

M/SOUT 

DATA-13 

DECDSP3 

MAINENG 

ASCT-S 

MAEECADR 

MATI-26 

maeemark 

DINT-7 

MAKEPLAY 

MAKEPLAY 

DINT-6 

G0PLASH2  GODSPRS1  BLANKET 

MAKEPRIO 

DINT-8 

MAKEPLAY 

MANUSTOP 

ATTM-8 

NENANGL 
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MARKCHEZ 

ALIN-9 

PASTIT  SDRFAGAN 

MARKPLAY 

DINT-8 

MAKEMARK  JOBICHS  XCHSLEEP  NV50DSP  MARKWAKE 
PINBRNCH 

MARKRET 

DINT-16 

TERMATE 

MARKRDPT 

ALIN-6 

Called  via  program  Interrupt  #6 

MAREWAKE 

DINT-1 7 

NORMRET 

MFREF 

COOR-8 

SAMETIP  P570PT3 

MIDT0AV1 

ORBI-19 

P41 SPOT 

MIDT0AV2 

0RBI-20 

P47LM 

MINIMP 

EXVB-9 

GOEXTVB 

MINOR 

DAPA-21 

TSNEITS 

MINRTN 

DAPA-21 

FAILOOP  FEEDBACK  DOROTAT  TJLAW4 

MIXNOUN 

DATA-5 

TESTNN 

mkreleas 

ALIN-4 

AVEIT 

MMCHANG 

DATA-26 

ENTER  VERBFAN 

M0DE2CHK 

RADR-7 

RRLIMNB 

ICNDO 

DATA-1 6 

MONREQ 

MONITOR 

DATA-1 5 

VERBFAN 

MONREQ 

DATA-1 5 

MONITOR  MONREQ 

MOONMX 

COOR-3 

PI 2LM  P63LM  LANDJDNK  OBLATE  DSEPIOS 

LAT-LONG  LALOTORV  MFREF  REFMF  P52LS  P57POST 

MOREDES 

RADR-10 

STDESIG 

MOREIDLE 

DAPA-3 

DAPIDLER  PAXIS  CHEKBITS 

MOVEACSM 

ORBI-17 

ENDSTATE  A-PCHK  INTWAKEU  P76  ORBCHGO  FAZAB3 

movealem 

ORBI-18 

ENDSTATE  A-PCHK  AVETOMID  INTWAKEU 

FAZAB3 
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MOVEPCSM 

OBBI-16 

iiTioaT  rAzc 

MOV£PL£iM 

ORBI-17 

INTEQRV  FAZC  ATTACHIT 

MONCmV 

SERV-7 

PI 2LM  P41 SPOT  NORMLIZE  RVBOTH  NOREASON 
IQNALOOP 

MDIiRETRN 

SZRV-7 

RVBOTH 

N45PROC 

TRGI-6 

VN1645 

N49DSP 

RNAV-  19 

R22LEM96 

N89DISP 

ALIN-1 6 

P52LS  P57POST 

NB2CDUSP 

BDRN-23 

DCMCL 

NBD2 

IMDC-2 

LASTBIAS 

NBDONLI 

IMDC-I 

SVCT3 

NBRANCH 

ORBI-12 

ACCOMP  DOW. . 

NBTOSM 

COOR-1 

VMEASCHK  COMPDISP  DODES  RANGEBQ  AVESTAR  JUSTOA 
P570PT1  P570PT3  INITBY  GVDETER  P57POST  RODCOMP 

NEEDLER 

DAPA-4 

ALTDSPLI 

NEEDLES 

DAPA-5 

NEGPROD 

BDRN-18 

RASTEER1 

NEGSGN 

DSKI-4 

CHARII 

NEGUSDM 

DAPA-29 

GTS  ALGORTHM  NEODSUM 

NEWANGL 

ATTM-6 

NEWDELHI 

NEWDELHI 

ATTM-8 

DPDTCALL 

NEWSTATE 

CONC-12 

COMMNODT 

NEWZCOMP 

RNAV- 38 

INCORP1 

NEITCOL 

ORBI-14 

DIFEQ+2 
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NEXTINSL 

TELE-  3 

mFEASSZ  ^ 

NOATTCNT 

BURN-23 

FINDCDUW  DCMCL 

NOGO 

ATTM-8 

KALCMAN3  NEWDELHI 

NOMINIMP 

EXVB-9 

GOEXTVB 

N0R29N0W 

SERV-1 1 

COPICIC1  R29  R29.L0S 

NOREASON 

SERV-9 

DPDATCHK 

NORMBNCH 

DINT-18 

PINBRNCH 

NORMLIZE 

SERV-2 

preread 

NORMRET 

DINT-16 

TERMATE  ENDEXT 

NORMWAKE 

DINT-1 7 

NORMRET 

NORRCMDN 

RADR-^2 

RRCDUCHK  RRGIMON  RRAUTCHK 

NOTMUCH 

DAPB-6 

BOTHAXES 

NOUN 

DSKY-2 

CHARIN 

NOVAC 

MATX-12 

N0VAC2 

MATX-12 

FINDVAC2 

NOVAC3 

MATX-12 

NOVAC3 

NTARGCHK 

TRGL-4 

NTARGCHK 

NDM 

DSKI-2 

CHARIN 

NV50DSP 

DINT-1 1 

NV50DSP 

NVDSP 

DINT-1 1 

NV50DSP  TERMATE  NORMBNCH  PLAIJDM1  MARKPLAI 

REDOPRIO 

NVSUB 

DATA-1 

NV50DSP  ENDRET  PINBRNCH  TESTXACT 

NVSDBEND 

DATA-2 

NVSUB  DSPALARM 

NITBNK 

TEST-8 

SDISPLAI 

X 
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• 

OANB 

ALIN-5 

AZEL  INGAZ  OPTAXIS 

OBLATE 

OUBI-IO 

ACCOMP 

OCCULT 

ALlN-24 

PIC3 

OHWELL1 

EXVB-U 

DPUPDATE  OHWELL1 

0HWELL2 

EXVB-U 

UPDPDATE  0HWELL2  DPVERIFI 

OKTOCOPI 

DINT-9 

JOBXCHS 

OKTOPLAI 

DINT-6 

MAKEPLAY 

OMEGCALC 

RNAV-30 

ONLITES 

RADR-25 

RADLITES 

OPTAXIS 

ALIN-5 

GETDAT 

ORBCHGO 

RNAV-1 

ORIGCHNG 

ORBI-7 

TIMESTEP  LDNSPH 

OTHGONIC 

EXVB-25 

REV83 

OTHINT 

EXVB-25 

GETRVN 

OUTSNDFF 

EXVB-9 

GOEXTVB 
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P06 

P12IGN 

P12INIT 

P12LM 

P12RET 

PICHK 

P20LEM1 

P20LEM 

P20LEMB 

P20LEMB1 

P20LEMB3 

P20LEMB7 

P20LE1C 

P20LEMC1 

P20LEMC3 

P20LEMD1 

P20LEMF 

P20LEMWT 

P21C0NT 

P21VSAVE 

P25LIM1 

P2CHI 

P30 

P32 

P32A’72B 

P32/P72C 

P32/P72E 

P32/P72F 


PGSR-13 

BUEN-5 

ASCT-6 

ASCT-1 

ASCT-2 

SERV-8 

RNAV-3 

RNAV-3 

RNAV-4 

RNAV-4 

RNAV-4 

RNAV-4 

RNAV-5 

RNAV-5 

RNAV-5 

RNAV-5 

RNAV-5 

RNAV-5 

RNAV-7 

RNAV-6 

IUIAV-6 

SERV-^ 

TRGX-1 

rRGi-11 

TRGX-  1 
TRGX-2 
TRGX-2 
TRGX-3 
TRGX-3 


P06 

IGNITION 
P12LM  GOABORT 


CMPONENT 

POSALARM 

R24END  CSMINT  P20LEM1 
R21LEM1  R22LEM 
P20LEMB1  P20LEMB7 
R23LEM 

P20LEMB7  P20LEMB3 
R22LEM 

R22LEM  R22RSTRT  UPPSV4 
RELINUS  V37RET  P20LEMWT  R22WAIT  P20LEMC1 
P20LEMD1  R21LEM1  R21LEM 
P20LEMC  P20LEMD1 
P20LEMD 

P20LEMB3  R21DISP  R22WAIT  P20LEMB  R61C+L02.  R21LEM1 

PR0G21 

P21C0NT 

V37RET  P25LB41  RELINUS 
POSALARM 


P32/P72F 

CSI/SOL 

P32/P72E  P32/P72C 
P32/P72F 
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P33 

TRGX-4 

P33/P73B 

TRGX-4 

P33/P73F 

P33/P73E 

TRGX-5 

P33A73E 

P33/P73F 

TRGX-5 

P33/P73F 

P34 

TRGL-1 

P34/P74C 

TRGL-1 

INTLOOP 

P35 

TRGL-4 

P35/P75B 

TRGL-4 

P35/P75B 

P40AIM 

BURN-2 

P40D!  P42IM 

P40AUTO 

BURN-13 

UPTHROT  BURNBABY  P4OAUTO 

P40IGN 

BURN-6 

ICWITION 

P40IN 

BURN-1 

P4om 

P40IM 

BURN-1 

P40SJUNK 

BURN-4 

TIG-5 

P40SP0T 

BURN-3 

BURNBABY 

PAOZOOM 

BURN-7 

P41BLANK 

BURN -4 

TIG-35 

P41LM 

BURN-2 

P41SP0T 

BURH-3 

BURNBABY 

P42IGai 

BURN-6 

P6aiGN  ABRTICaJ  IGNITION 

P42IM 

BURN-1 

P42STACffl 

BURN-1 

REP4QALM 
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P47B0DI 

BTraN-13 

STARTP47  P47B0DY 

P47m 

BDRN-13 

P51 

ALIN-1 

P51  P51C 

P51B 

ALIN-1 

P51 

P51C 

ALIN-1 

P51C 

P52B 

ALIN-15 

P52D 

ALIN-16 

P52B  P52D  P52LS 

P52LS 

ALIN-15 

P57 

ALIN-25 

P57D 

ALIM-26 

P 57  OPT 

P570PT 

ALIN-25 

P570PT 

P570PT0 

ALIN-27 

ATTCHK 

P570PT1 

ALIN-27 

ATTCHK 

P570PT2 

ALIN-28 

ATTCHK 

P570PT3 

ALIN -28 

ATTCHK 

P57POST 

ALIN-36 

SURFLINE  INITBY  SORFDISP 

P63DISPS 

DESC-9 

DISPEXIT 

P63IGN 

BORN-6 

IGNITION 

P63LM 

DESC-1 

P 63 ZOOM 

BORN-7 

ZOOM 

P64DISPS 

DESC-9 

DISPEXIT  P64DISPS 

P65START 

DESC-5 

P66 

P66HZ 

P66VERT 

DESC-1 1 LUNLAND 

DESC-lla  P66 

DESC-1 2 VERTGUID  P66HZ 
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P70 

ASCT-3 

V3V 

P70A 

ASCT-3 

RlO.Rll 

P71 

ASCT-3 

V37 

P7U 

ASCT-3 

P70A  RIO, RIO 

P72 

TRGX-2 

P73 

TRGX-4 

P74 

TRQL-1 

P75 

TRGL-4 

P76 

ORBI-23 

PACKOPTN 

ALIN-26 

P570PT 

PARAM 

CONC-9 

TIMERAD  APSIDES  TIMETHET 

PASTEVB 

DATA-16 

MONDO  DSPALARM 

PASTIT 

ALIN-6 

CHANGEVB 

PAXFILT 

DAPA-10 

PAXIS 

PAXIS 

DAPA-6 

STARTDAP  SPSCONT 

PERFERAS 

TEST-17 

ALFLT 

PEGI 

DAPA-15 

RATERROR 

PERIAPO 

CCWC-13 

INTLOOP  CSI/B2 

PERIAPOl 

CONC-13 

S30.1  CIRCL 

PERIODCH 

CCWC-3 

PERIODCH 

PFAILOK 

IMUC-10 

DNZ2 

PFLITEDB 

DAPB-18 

P12RET  P40IN  ASTNRET 
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PICl 

ALIN-22 

PICl  PIC 3 

PIC  3 

ALIN-22 

PIC  3 

PICEND 

ALIN-24 

PICl 

PINBRNCH 

DINT-17 

TSTLTS3  ABORTALM  VBRELDSP  IDLERET3  ALM/END 

VBZERO  RRDESEND  TRMTRACK  LROFF  LRP2C0MM 

DAPATTER^  TOTATTER  SNDFFODT  CSMVEG  DNEDUMP 
ODTSNUFF  MINIMP  N(MINIMP  R77END  WMATRXNG  UPDATOFF 
ATTACHIT  V37BAD  R04Z  RATEDSP  V59GP63 

PIPACHK 

TEST-12 

REDO  TORQUE 

PIPASR 

SERV-1 

PREREAD  READACCS  NBDONLY  LUNG  GRABGRAV 

PIPATASK 

TEST-12 

PIPACHK  PIPATASK 

PIPFREE 

IMUC-3 

AVGEND 

PIPJOBB 

TEST-13 

PIPATASK 

PIPUSE 

IMUC-3 

LASTBIAS 

PITCHOFF 

DAPB-21 

TRIMGIMB 

PITFALL 

DESC  -16 

Called  via  program  interrupt  #10 

PJETSLEC 

DAPA-16 

TSNEXTP  PEGI  PURGENCY 

PLANET 

ALIN-12 

P51C  R51E  AZEL  R59BETAASERR 

PLAYJTJMl 

DINT-7 

OKTOPLAY  XCHSLEEP  NV50DSP  NORMRET  NORMWAKE 
NORMBNCH 

POLYCOEF 

CONC-11 

WLOOP 

POODOO 

PGSR-12 

-'MAN  UR  AOTMARK  T4D6P00  DSPALARM  ' kT.  .. 

....rAUAl.  . : o.  ; /UASUSUB  POODOOl  CCSHOLE 

GOBAQUE  COMMNOUT  TIMETHET  TIMERAD 

p6?)5)'B?i^ 

POOH 

PGSR-6 

CANV37 

POSALARM 

SERV-8 

P2CHK 

POSGN 

DSKY-4 

CHARIN 

POSGOOD 

SERV-8 

PICHK  P2CHK 

POSTAND 

P GSR-13 

POSTAND  P06 
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POSTBDRN 

BDRN-8 

ENGINOFF  GOPOST  POSTBURN 

POSTHRST 

DAPB-17 

SPSRCS  SPSSTART 

POST  JIMP 

MATX-25 

PRECSET 

TRGX-8 

INTLOOP  P35/P75B  ADVANCE  VN0611 

PREPOS29 

RNAV— 32 

R29 

PREREAD 

SERV-1 

HllBSTOT 

PRERRORS 

TEST -6 

ERASLOOP  CNTRLOOP  SOPTION 

PRIOCHNG 

MATX-15 

RELINUS  SH0WSDM2 

PRIODSP 

DINT-5 

R22LEM  N49DSP 

PRIODSPR 

DINT-5 

PRIOLARM  R24LEM 

PRIOLARM 

DINT-18 

POSALARM  P20LEM1  R21LEM1  R22LEM  R23LEM  P20LEMB7 
R2TnEM  CSMTNT  60TIMES 

PROCEED 

DINT-15 

RECALTST 

PROCEEDE 

INTR-3 

T4RDPT 

PROCKEI 

INTR-3 

PRXEEDE 

PR0G20 

RNAV-1 

PR0G20A 

RNAV-3 

PR0G20  ORBCHGO 

PR0G21 

RNAV-i 

P21VSAVE 

PR0G22 

RNAV-1 

PROG25 

RNAV^V 

PROG52 

ALIN-U 

PROGLABM 

PGSR-n 

ALARM2 

PURGENCY 

DAPA-16 

TSNEXTP  DETENTCK  RATERROR 

PUTCOM 

DATA-21 

ALOAD  BLOAD  CLOAD  ABLOAD  ABCLOAD 

PDTCCM2 

SATA-25 

PUTCOM  PUTNGKM  BDmOUNS  SPD(SP^2  SSGINSF 
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PUTDCSF2 

DATA-23 

PUTCOM  PUTNORM 

PUTNORM 

DATA-22 

PUTCOM 

CJERRCALC 

DAPA-18 

MORE IDLE  QRAXIS 

QRAXIS 

DAPA-18 

SKIPPAXS  PJETSLEC  JETSOFF 

QRTIME 

DAPA-23 

ENTERUV 

QUADGUID 

DESC-7 

QUICTRIG 

BURN-23 

FINDCDUW  SERVICER  VMEASCHK  R29DODES 

QUIKDSP 

INTR-4 

T4RDPT 

R02B0TH 

IMaC-19 

V89CALL  PROG52  P12LM  P4OLM  P47LM  P63LM 
P42STAGE  P41LM  PR0G2CIA  PROG25 

R04- 

EXVB-7 

GOEXTVB 

R04END 

RADR-1 5 

R04Z  R04X 

R04X 

RADR-13 

RO4X 

R04Z 

RADR-1 3 

RO4  R77 

R10,R11 

SERV-14 

R10,R11  READACCS  ABRTJASK 

R21DISP 

RNAV-16 

R21LEM1 

R21IEM 

RNAV-13 

P20LEMF 

R21LEM1 

RNAV-13 

R21LEM2 

RNAV-13 

DORROUT 

R21LEM4 

RNAV-14 

R21LEM1 

R21LEM8 

RNAV-16 

60TIMES 

R21LEM9 

RNAV-1 6 

R21LEM8 

R21LEM10 

RNAV-13 

R21LEM  R21LEM9 

R22LEM 

RNAV-1 7 

R22LEM96  R22RSTRT  R22LEM  R22LEM42 

R22LEM42 

RNAV-1 6 

P20LEM)1 

R22LEM 

R22LEM96 

RNAV-1 8 

LGCUPDTE 

R22RSTRT 

RNAV-1 9 

R22WAIT 

RNAV-1 8 

R22LEM 
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R23LEM 

RNAV-T19 

P20LBMB7  R23LEM3 

R23LEM2 

RNAV-2D 

R23I£M 
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